X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/7696f262f27714edbcf520399a61be1dc7e3e158..ec2bcb4768cc662362eb942ec52af9fe1046afaa:/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 old mode 100644 new mode 100755 index 02059e7..514de3b --- 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"; } -