View of /trunk/xmlrpc/soapclient.pl

    1 #!/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;