Add 4.97+security

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

diff --git a/cgi-bin/show_stage_log.pl b/cgi-bin/show_stage_log.pl
index 5dd1ae43fb5c378781f7e87d1422ea64c6e15872..e560089beff5fac67e3ef8c7682f7be31effe623 100755 (executable)
--- 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,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: Mythic Beasts Ltd";
 
 }
 
@@ -69,74 +88,4 @@ 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 <pre> like this on huge files can make browsers choke
-
-print "Content-Type: text/html\n\n";
-
-print <<EOHTML;
-<html>
-<body>
-<pre>
-$output
-</pre>
-</body>
-</html>
-
-EOHTML