#!/usr/bin/perl
-use strict;
+=comment
+Copyright (c) 2003-2010, Andrew Dunstan
-use vars qw($dbhost $dbname $dbuser $dbpass $dbport);
+See accompanying License file for license details
+
+=cut
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+use strict;
+
+use vars qw($dbhost $dbname $dbuser $dbpass $dbport);
-use lib "/home/community/pgbuildfarm/lib/lib/perl5/site_perl";
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
use SOAP::Transport::HTTP;
-SOAP::Transport::HTTP::CGI->dispatch_to('PGBuildFarm')->handle;
+SOAP::Transport::HTTP::CGI->dispatch_to('EximBuildFarm')->handle;
exit;
-package PGBuildFarm;
+package EximBuildFarm;
use DBI;
my $statement =<<EOS;
- select (now() at time zone 'GMT')::timestamp(0) - snapshot as when_ago,
- sysname, snapshot, b.status, stage, branch, build_flags,
- operating_system, coalesce(b.os_version,s.os_version) as os_version,
- compiler,
- coalesce(b.compiler_version, s.compiler_version) as compiler_version,
- architecture
- from buildsystems s,
- (
- select distinct on (bs.sysname, bs.branch, bs.report_time)
- sysname, snapshot, status, stage, branch, build_flags,
- report_time ,compiler_version, os_version
- from build_status bs
- left join
- personality p
- on (p.name = bs.sysname and p.effective_date <= bs.report_time)
- order by bs.sysname, bs.branch, bs.report_time,
- p.effective_date is null, p.effective_date desc
- ) as b
- natural join
- (select sysname, branch, max(snapshot) as snapshot
- from build_status
- group by sysname, branch
- having max(snapshot) > now() - '30 days'::interval
- ) m
- where name = sysname
- and s.status = 'approved'
+ select (now() at time zone 'GMT')::timestamp(0) - snapshot as when_ago, dsh.*
+ from dashboard_mat dsh
order by branch = 'HEAD' desc,
branch desc,
snapshot desc
}
1;
-
-
-
-
-