Parent Directory
| 
Revision Log
Revision 3227 - (view) (download) (as text)
| 1 : | gage | 3227 | #!/usr/bin/perl -w |
| 2 : | |||
| 3 : | |||
| 4 : | use SOAP::Lite; | ||
| 5 : | my $soap = SOAP::Lite | ||
| 6 : | -> uri('http://devel.webwork.rochester.edu:8002/WebworkXMLRPC') | ||
| 7 : | -> proxy('http://devel.webwork.rochester.edu:8002/mod_soap/WebworkWebservice') | ||
| 8 : | ; | ||
| 9 : | |||
| 10 : | |||
| 11 : | my $result = $soap->hi(); | ||
| 12 : | |||
| 13 : | unless ($result->fault) { | ||
| 14 : | print $result->result(); | ||
| 15 : | } else { | ||
| 16 : | print join ', ', | ||
| 17 : | $result->faultcode, | ||
| 18 : | $result->faultstring; | ||
| 19 : | } | ||
| 20 : | |||
| 21 : |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |