#!/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;
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;
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 <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
+else
+{
+ print "Status: 460 bad parameters\n",
+ "Content-Type: text/plain\n\n";
+}
git://git.exim.org / buildfarm-server.git / blobdiff