[system] / trunk / xmlrpc / soapclient.pl Repository:
ViewVC logotype

View of /trunk/xmlrpc/soapclient.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 279 - (download) (as text) (annotate)
Fri May 17 21:44:04 2002 UTC (17 years, 4 months ago) by gage
File size: 866 byte(s)
Experimental xmlrpc WeBWorK webservices

    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;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9