undo reorganization

[buildfarm-server.git] / cgi-bin / show_log.pl

diff --git a/cgi-bin/show_log.pl b/cgi-bin/show_log.pl
index b462cc7f4cf993719976397526bc1a4163f187fe..21c6ec570b9a0d168cfbc395a034df78605e5b36 100755 (executable)
--- 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;
 }