X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/684f5456cad92a4690fa4e67cb40ea8d2cd4d0dc..7a251a65acd9d84242e15b47fd7c01405322b2ed:/cgi-bin/show_log.pl

diff --git a/cgi-bin/show_log.pl b/cgi-bin/show_log.pl
index b462cc7..21c6ec5 100755
--- a/cgi-bin/show_log.pl
+++ b/cgi-bin/show_log.pl
@@ -34,7 +34,7 @@ use vars qw($info_row);
 if ($system && $logdate)
 {
 
-	my $db = DBI->connect($dsn,$dbuser,$dbpass);
+	my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0});
 
 	die $DBI::errstr unless $db;
 
@@ -79,7 +79,20 @@ if ($system && $logdate)
 	$sth=$db->prepare($statement);
 	$sth->execute($system);
 	$info_row=$sth->fetchrow_hashref;
+
+	my $latest_personality = $db->selectrow_arrayref(q{
+	    select os_version, compiler_version
+	    from personality
+	    where effective_date < ?
+	    and name = ?
+	    order by effective_date desc limit 1
+	}, undef, $logdate, $system);
         # $sysinfo = join(" ",@$row);
+	if ($latest_personality)
+	{
+	    $info_row->{os_version} = $latest_personality->[0];
+	    $info_row->{compiler_version} = $latest_personality->[1];
+	}
 	$sth->finish;
 	$db->disconnect;
 }