Add 4.97+security

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

diff --git a/cgi-bin/show_status_soap.pl b/cgi-bin/show_status_soap.pl
old mode 100644 (file)
new mode 100755 (executable)
index e51db59..82a6dc7
--- a/cgi-bin/show_status_soap.pl
+++ b/cgi-bin/show_status_soap.pl
@@ -1,21 +1,27 @@
 #!/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;
 
@@ -38,32 +44,8 @@ sub get_status
     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
@@ -95,8 +77,3 @@ EOS
 }
 
 1;
-
-
-
-
-