X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/a59c49981887fdcc58a1c3b00ebfb1e9f80b9699..a78d9bf85e4e91b05abc18852c06e3ba65aff0aa:/cgi-bin/get_bf_status_soap.pl diff --git a/cgi-bin/get_bf_status_soap.pl b/cgi-bin/get_bf_status_soap.pl index 02059e7..514de3b 100755 --- a/cgi-bin/get_bf_status_soap.pl +++ b/cgi-bin/get_bf_status_soap.pl @@ -1,13 +1,18 @@ #!/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; @@ -27,4 +32,3 @@ foreach my $datum (@$data) my $line = join (' | ', @{$datum}{@fields}); print $line,"\n"; } -