X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/fe7ec2278d5dfdb0cc4512a9822e7e315a66858d..aedede4030eba1aea92af8cacd0f09dc8ec26169:/cgi-bin/show_stage_log.pl diff --git a/cgi-bin/show_stage_log.pl b/cgi-bin/show_stage_log.pl index 5dd1ae4..fc40fa6 100755 --- a/cgi-bin/show_stage_log.pl +++ b/cgi-bin/show_stage_log.pl @@ -1,5 +1,13 @@ #!/usr/bin/perl +=comment + +Copyright (c) 2003-2010, Andrew Dunstan + +See accompanying License file for license details + +=cut + use strict; use DBI; use Template; @@ -23,7 +31,8 @@ my $query = new CGI; my $system = $query->param('nm'); $system =~ s/[^a-zA-Z0-9_ -]//g; my $logdate = $query->param('dt');$logdate =~ s/[^a-zA-Z0-9_ -]//g; -my $stage = $query->param('stg');$stage =~ s/[^a-zA-Z0-9_ -]//g; +my $stage = $query->param('stg');$stage =~ s/[^a-zA-Z0-9._ -]//g; +my $brnch = $query->param('branch') || 'HEAD'; $brnch =~ s/[^a-zA-Z0-9._ -]//g; use vars qw($tgz); @@ -33,6 +42,20 @@ if ($system && $logdate && $stage) die $DBI::errstr unless $db; + if ($logdate =~ /^latest$/i) + { + my $find_latest = qq{ + select max(snapshot) + from build_status_log + where sysname = ? + and snapshot > now() - interval '30 days' + and log_stage = ? || '.log' + and branch = ? + }; + my $logs = $db->selectcol_arrayref($find_latest,undef,$system,$stage,$brnch); + $logdate = shift(@$logs); + } + my $statement = q( select branch, log_text @@ -40,8 +63,6 @@ if ($system && $logdate && $stage) where sysname = ? and snapshot = ? and log_stage = ? || '.log' ); - - my $sth=$db->prepare($statement); $sth->execute($system,$logdate,$stage); @@ -55,13 +76,11 @@ if ($system && $logdate && $stage) $sth->finish; $db->disconnect; - print "Content-Type: text/plain\n\n", $logtext, + print "Content-Type: text/plain\n\nSnapshot: $logdate\n\n", $logtext, "-------------------------------------------------\n\n", - "Hosting for the PostgreSQL Buildfarm is generously ", - "provided by: CommandPrompt, The PostgreSQL Company"; - - exit; + "Hosting for the Exim BuildFarm is generously ", + "provided by: Todd Lyons"; } @@ -69,74 +88,5 @@ else { print "Status: 460 bad parameters\n", "Content-Type: text/plain\n\n"; - exit; -} - -if ($system && $logdate) -{ - - my $db = DBI->connect($dsn,$dbuser,$dbpass); - - die $DBI::errstr unless $db; - - my $statement = q( - - select log_archive - from build_status - where sysname = ? and snapshot = ? - - ); - - - - my $sth=$db->prepare($statement); - $sth->execute($system,$logdate); - my $row=$sth->fetchrow_arrayref; - $tgz=$row->[0]; - $sth->finish; - $db->disconnect; - } -unless ($stage) -{ - - print - "Content-Type: application/x-gzip\n", - "Content-Disposition: attachment; filename=buildfarmlog.tgz\n", - "\n", - $tgz; - exit; -} - -my $template = "buildlogXXXXXX"; -my ($fh, $filename) = tempfile($template, - DIR => '/home/community/pgbuildfarm/buildlogs', - UNLINK => 1); -print $fh $tgz; -close($fh); - -my $output = `tar -z -O -xf $filename $stage.log 2>&1`; - -print "Content-Type: text/plain\n\n", $output, - - "-------------------------------------------------\n\n", - "Hosting for the PostgreSQL Buildfarm is generously ", - "provided by: CommandPrompt, The PostgreSQL Company"; - -; exit; - -# using

 like this on huge files can make browsers choke
-
-print "Content-Type: text/html\n\n";
-
-print <
-
--$output
-
-
-
-
-EOHTML