git://git.exim.org
/
buildfarm-server.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
{
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;
die $DBI::errstr unless $db;
@@
-79,7
+79,20
@@
if ($system && $logdate)
$sth=$db->prepare($statement);
$sth->execute($system);
$info_row=$sth->fetchrow_hashref;
$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);
# $sysinfo = join(" ",@$row);
+ if ($latest_personality)
+ {
+ $info_row->{os_version} = $latest_personality->[0];
+ $info_row->{compiler_version} = $latest_personality->[1];
+ }
$sth->finish;
$db->disconnect;
}
$sth->finish;
$db->disconnect;
}