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 Notes |
+ Date |
+ Notes |
+
+
+ $info_row->{sys_notes_date} |
+ $info_row->{sys_notes} |
+
+
+EOHTML
+
+ }
+
for my $logstage (@log_file_names)
{
print "
Stage Logs | \n"
@@ -265,9 +285,28 @@ print <$info_row->{architecture}
$info_row->{owner_email} |
-
+
EOHTML
+ if ($info_row->{sys_notes})
+ {
+ print <
+
+
+ System Notes |
+ Date |
+ Notes |
+
+
+ $info_row->{sys_notes_date} |
+ $info_row->{sys_notes} |
+
+
+EOHTML
+
+ }
+
for my $logstage (@log_file_names)
{
print "