[system] / trunk / xmlrpc / soapclient.pl Repository:
ViewVC logotype

Annotation of /trunk/xmlrpc/soapclient.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 279 - (view) (download) (as text)

1 : gage 279 #!/usr/local/bin/perl -w
2 :    
3 :    
4 :     use SOAP::Lite;
5 :     my $soap = SOAP::Lite
6 :     # -> uri('http://www.soaplite.com/Temperatures')
7 :     # -> proxy('http://services.soaplite.com/temper.cgi');
8 :     -> uri('http://webwork-db.math.rochester.edu/Demo/')
9 :     -> proxy('http://webwork-db.math.rochester.edu/mod_soap/');
10 :    
11 :     my $result = $soap->bye();
12 :     unless ($result->fault) {
13 :     print $result->result();
14 :     } else {
15 :     print join ', ',
16 :     $result->faultcode,
17 :     $result->faultstring;
18 :     }
19 :    
20 :    
21 :     # use SOAP::Lite
22 :     # on_fault => sub { my($soap, $res) = @_;
23 :     # die ref $res ? $res->faultstring : $soap->transport->status, "\n";
24 :     # };
25 :     # my $soap = SOAP::Lite
26 :     # -> uri('http://www.soaplite.com/home/soaplite/modules/Temperature')
27 :     # -> proxy('http://http://services.soaplite.com/home/soaplite/modules/');
28 :     # eval {
29 :     # print $soap->c2f(37.5)->result;
30 :     # 1 } or die;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9