| 1 | #!/usr/bin/perl -w |
1 | #!/usr/bin/perl -w |
| 2 | |
2 | |
| 3 | # |
3 | # |
| 4 | use XMLRPC::Lite; |
4 | use XMLRPC::Lite; |
| 5 | my $soap = XMLRPC::Lite |
5 | my $soap = XMLRPC::Lite |
| 6 | # ->uri('http://webwork-db.math.rochester.edu/Demo/') |
6 | -> proxy('https://math.webwork.rochester.edu:443/mod_xmlrpc/'); |
| 7 | -> proxy('http://devel.webwork.rochester.edu:8002/mod_xmlrpc/'); |
7 | #-> proxy('https://devel.webwork.rochester.edu:8002/mod_xmlrpc/'); |
| 8 | |
8 | # -> proxy('http://localhost/mod_xmlrpc/'); |
|
|
9 | |
| 9 | |
10 | |
| 10 | my $result = $soap->call("WebworkXMLRPC.hi"); |
11 | my $result = $soap->call("WebworkXMLRPC.hi"); |
| 11 | |
12 | |
| 12 | |
13 | |
| 13 | unless ($result->fault) { |
14 | unless ($result->fault) { |