X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/2e86f437603ee6977c9ca751e97e490ce2768584..d12dd0f9631357ac568bb2163dc7a292688e3f10:/cgi-bin/show_stage_log.pl diff --git a/cgi-bin/show_stage_log.pl b/cgi-bin/show_stage_log.pl index dbc3649..e560089 100755 --- a/cgi-bin/show_stage_log.pl +++ b/cgi-bin/show_stage_log.pl @@ -1,5 +1,14 @@ #!/usr/bin/perl +=comment + +Copyright (c) 2003-2010, Andrew Dunstan +Copyright (c) 2022, The Exim Maintainers + +See accompanying License file for license details + +=cut + use strict; use DBI; use Template; @@ -8,9 +17,8 @@ use File::Temp qw(tempfile); use vars qw($dbhost $dbname $dbuser $dbpass $dbport @log_file_names); - -require "$ENV{BFConfDir}/BuildFarmWeb.pl"; -#require "BuildFarmWeb.pl"; +use FindBin qw($RealBin); +require "$RealBin/../BuildFarmWeb.pl"; die "no dbname" unless $dbname; die "no dbuser" unless $dbuser; @@ -23,75 +31,61 @@ 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); -if ($system && $logdate) +if ($system && $logdate && $stage) { - 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 = ? + 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 + from build_status_log + where sysname = ? and snapshot = ? and log_stage = ? || '.log' + ); my $sth=$db->prepare($statement); - $sth->execute($system,$logdate); + $sth->execute($system,$logdate,$stage); my $row=$sth->fetchrow_arrayref; - $tgz=$row->[0]; + my ($branch, $logtext) = ("unknown","no log text found"); + if ($row) + { + $branch = $row->[0]; + $logtext =$row->[1]; + } $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, + 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: Mythic Beasts Ltd"; -# using

 like this on huge files can make browsers choke
-
-print "Content-Type: text/html\n\n";
-
-print <
-
--$output
-
-
-
+}
 
-EOHTML
+else 
+{
+    print "Status: 460 bad parameters\n",
+    "Content-Type: text/plain\n\n";
+}