View of /tags/rel-2-2-pre2/webwork2/clients/hello_world_xmlrpc_client.pl

    1 #!/usr/bin/perl -w
    2 
    3 #
    4 use XMLRPC::Lite;
    5   my $soap = XMLRPC::Lite
    6    # ->uri('http://webwork-db.math.rochester.edu/Demo/')
    7   -> proxy('http://devel.webwork.rochester.edu:8002/mod_xmlrpc/');
    8 
    9 
   10   my $result = $soap->call("WebworkXMLRPC.hi");
   11 
   12 
   13   unless ($result->fault) {
   14     print $result->result(),"\n";
   15   } else {
   16     print join ', ',
   17       $result->faultcode,
   18       $result->faultstring;
   19   }