Drop 4.next
[buildfarm-server.git] / cgi-bin / get_bf_status_soap.pl
1 #!/usr/bin/perl
2
3 =comment
4
5 Copyright (c) 2003-2010, Andrew Dunstan
6
7 See accompanying License file for license details
8
9 =cut 
10
11 use SOAP::Lite ;
12
13 my $obj = SOAP::Lite
14     ->uri('http://buildfarm.exim.org/EximBuildFarm')
15     ->proxy('http://buildfarm.exim.org/cgi-bin/show_status_soap.pl')
16     ;
17
18 my $data = $obj->get_status->result;
19 my @fields = qw( branch sysname stage status 
20                                  operating_system os_version
21                                  compiler compiler_version architecture
22                                  when_ago snapshot build_flags
23                  );
24
25 print "Content-Type: text/plain\n\n";
26
27 my $head = join (' | ', @fields);
28 print $head,"\n";
29
30 foreach my $datum (@$data)
31 {
32     my $line = join (' | ', @{$datum}{@fields});
33     print $line,"\n";
34 }