1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!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/',
# 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 transport
# proxy => ['local:', dispatch_to => 'My::Examples'], # LOCAL transport
# 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 transport
# proxy => 'ftp://login:password@ftp.somewhere.com//absolute/path/to/file.xml', # FTP transport
# 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 transport
;
print SOAP::Lite->new->getStateName(1)->result;
|
