URI escape branch names in URLs. Don't strip + from branch name.

[buildfarm-server.git] / 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 f7772fa7aa926f834fb74a256365beec6741c225..514de3b2f9e3adcd8b5bbb0d156b5456ff0cfb5f 100755 (executable)
--- a/cgi-bin/get_bf_status_soap.pl
+++ b/cgi-bin/get_bf_status_soap.pl
@@ -8,12 +8,11 @@ See accompanying License file for license details
 
 =cut 
 
-use SOAP::Lite +trace;
+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;
@@ -33,4 +32,3 @@ foreach my $datum (@$data)
     my $line = join (' | ', @{$datum}{@fields});
     print $line,"\n";
 }
-