#!/usr/local/bin/perl -w

#
use XMLRPC::Lite;
  my $soap = XMLRPC::Lite
   # ->uri('http://webwork-db.math.rochester.edu/Demo/')
	-> proxy('http://webwork-db.math.rochester.edu/mod_xmlrpc/');
    
	
  my $result = $soap->call("Demo.hi");
  

  unless ($result->fault) {
    print $result->result(),"\n";
  } else {
    print join ', ',
      $result->faultcode,
      $result->faultstring;
  }
#  
#  
#use SOAP::Lite
#    on_fault => sub { my($soap, $res) = @_;
#      die ref $res ? $res->faultstring : $soap->transport->status, "\n";
#    };
#my $soap = SOAP::Lite
#    -> uri('http://www.soaplite.com/Temperatures')
#    -> proxy('http://http://services.soaplite.com/temper.cgi');
#  eval {
#    print $soap->c2f(37.5)->result;
#  1 } or die;

#!perl -w
#!d:\perl\bin\perl.exe 

# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

#use SOAP::Lite 
#  uri => 'http://www.soaplite.com/My/Examples',
#  proxy => 'http://localhost/mod_soap/My/Examples/', 
## proxy => 'http://localhost/cgi-bin/soap.cgi', # local CGI server
## proxy => 'http://localhost/',                 # local daemon server
## proxy => 'http://localhost/soap',             # local mod_perl server
## proxy => 'https://localhost/soap',            # local mod_perl SECURE server
## proxy => 'tcp://localhost:82',                # local tcp server
## proxy => 'http://login:password@localhost/cgi-bin/soap.cgi', # local CGI server with authentication
#
## proxy => 'jabber://user:password@server:port/to@address/', # Jabber server
#
## following examples are one-way only, they don't return any response
## proxy => 'ftp://login:password@ftp.somewhere.com/relative/path/to/file.xml', # ftp server
## proxy => 'ftp://login:password@ftp.somewhere.com//absolute/path/to/file.xml', # ftp server
#
## you can always pass more than one parameter for proxy
## proxy => ['mailto:destination.email@address', smtp => 'smtp.server', From => 'your.email', Subject => 'SOAP message'], # smtp server
#;
#
#print SOAP::Lite->new->getStateName(1)->result;