X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/2c084dd5486f92cfee50ca4a078fc0342e9bf107..fde3f9a45b8788bfa3d2e0c414df0d268c57c103:/cgi-bin/show_log.pl diff --git a/cgi-bin/show_log.pl b/cgi-bin/show_log.pl index 414b9e6..839af54 100755 --- a/cgi-bin/show_log.pl +++ b/cgi-bin/show_log.pl @@ -66,7 +66,8 @@ EOS select operating_system, os_version, compiler, compiler_version, architecture, - replace(owner_email,'\@',' [ a t ] ') as owner_email + replace(owner_email,'\@',' [ a t ] ') as owner_email, + sys_notes_ts::date AS sys_notes_date, sys_notes from buildsystems where status = 'approved' and name = ? @@ -76,7 +77,7 @@ EOS $sth=$db->prepare($statement); $sth->execute($system); $info_row=$sth->fetchrow_hashref; - $sysinfo = join(" ",@$row); + # $sysinfo = join(" ",@$row); $sth->finish; $db->disconnect; } @@ -162,6 +163,25 @@ if ($stage eq 'OK') EOHTML + if ($info_row->{sys_notes}) + { + print < + + + + + + + + + + +
System NotesDateNotes
$info_row->{sys_notes_date}$info_row->{sys_notes}
+EOHTML + + } + for my $logstage (@log_file_names) { print "
\n" @@ -265,9 +285,28 @@ print <$info_row->{architecture} -
Stage Logs$info_row->{owner_email}
+ EOHTML + if ($info_row->{sys_notes}) + { + print < + + + + + + + + + + +
System NotesDateNotes
$info_row->{sys_notes_date}$info_row->{sys_notes}
+EOHTML + + } + for my $logstage (@log_file_names) { print "
\n"
Stage Logs