Make soap client work.
authorAndrew Dunstan <andrew@dunslane.net>
Mon, 7 Nov 2011 16:24:51 +0000 (08:24 -0800)
committerAndrew Dunstan <andrew@dunslane.net>
Mon, 7 Nov 2011 16:24:51 +0000 (08:24 -0800)
cgi-bin/get_bf_status_soap.pl

index f7772fa7aa926f834fb74a256365beec6741c225..78152073f4b8a0141391a4f870b6d48fa54110a6 100755 (executable)
@@ -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")
+    ->proxy('http://www.pgbuildfarm.org/cgi-bin/show_status_soap.pl')
     ;
 
 my $data = $obj->get_status->result;