perl/soapclient.pl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl -w

use SOAP::Lite;

print SOAP::Lite
    -> uri('http://localhost:1234/astmanproxy')
    -> proxy('http://localhost:1234/')
    -> astman('Action: Ping')
    -> result . "\n";

exit(0);