X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/c3ad6df34e5ec30c6be887033dad6d834ddf8fb1..7a251a65acd9d84242e15b47fd7c01405322b2ed:/cgi-bin/show_history.pl

diff --git a/cgi-bin/show_history.pl b/cgi-bin/show_history.pl
index f1fa13c..b55c381 100755
--- a/cgi-bin/show_history.pl
+++ b/cgi-bin/show_history.pl
@@ -28,6 +28,13 @@ my $branch = $query->param('br'); $branch =~ s/[^a-zA-Z0-9_ -]//g;
 my $hm = $query->param('hm');  $hm =~ s/[^a-zA-Z0-9_ -]//g;
 $hm = '240' unless $hm =~ /^\d+$/;
 
+my $latest_personality = $db->selectrow_arrayref(q{
+            select os_version, compiler_version
+            from personality
+            where name = ?
+            order by effective_date desc limit 1
+	}, undef, $member);
+
 # we don't really need to do this join, since we only want
 # one row from buildsystems. but it means we only have to run one
 # query. If it gets heavy we'll split it up and run two
@@ -37,7 +44,8 @@ my $statement = <<EOS;
   select (now() at time zone 'GMT')::timestamp(0) - snapshot as when_ago,
       sysname, snapshot, b.status, stage,
       operating_system, os_version, compiler, compiler_version, architecture,
-      owner_email
+      owner_email,
+      sys_notes_ts::date AS sys_notes_date, sys_notes
   from buildsystems s, 
        build_status b 
   where name = ?
@@ -56,8 +64,14 @@ $sth->execute($member,$branch);
 while (my $row = $sth->fetchrow_hashref)
 {
     $row->{owner_email} =~ s/\@/ [ a t ] /;
-	push(@$statrows,$row);
+    if ($latest_personality)
+    {
+	$row->{os_version} = $latest_personality->[0];
+	$row->{compiler_version} = $latest_personality->[1];
+    }
+    push(@$statrows,$row);
 }
+
 $sth->finish;
 
 $db->disconnect;