#!/usr/bin/perl
-use lib "/home/community/pgbuildfarm/lib/lib/perl5/site_perl";
+=comment
-use SOAP::Lite +trace;
+Copyright (c) 2003-2010, Andrew Dunstan
+
+See accompanying License file for license details
+
+=cut
+
+use SOAP::Lite ;
my $obj = SOAP::Lite
- ->uri('http://www.pgbuildfarm.org/PGBuildFarm')
- ->proxy('http://127.0.0.1/cgi-bin/show_status_soap.pl')
- ->request->header("Host" => "www.pgbuildfarm.org")
+ ->uri('http://buildfarm.exim.org/EximBuildFarm')
+ ->proxy('http://buildfarm.exim.org/cgi-bin/show_status_soap.pl')
;
my $data = $obj->get_status->result;
my $line = join (' | ', @{$datum}{@fields});
print $line,"\n";
}
-