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