Drop 4.next

[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
index 5d12800beec2440501b1ce7074314fbc290dfc0f..82a6dc795d4dc38d057e51a2b669136e0279e067 100755 (executable)
--- 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;
 
@@ -71,8 +77,3 @@ EOS
 }
 
 1;
-
-
-
-
-