Parent Directory
| 
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 |