#!/usr/bin/perl =comment Copyright (c) 2003-2010, Andrew Dunstan See accompanying License file for license details =cut use SOAP::Lite +trace; 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") ; my $data = $obj->get_status->result; my @fields = qw( branch sysname stage status operating_system os_version compiler compiler_version architecture when_ago snapshot build_flags ); print "Content-Type: text/plain\n\n"; my $head = join (' | ', @fields); print $head,"\n"; foreach my $datum (@$data) { my $line = join (' | ', @{$datum}{@fields}); print $line,"\n"; }