blob: 76c766c41167b8d6b257ab16fbd97d6d2c07add8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl -w
#
# This is for testing only; the thought is to add content handlers
# to http.c to deal with 1) REST (default), 2) XML/XMLRPC,
# 3) SOAP http data input
#
# Do not expect this to do anything right now
use SOAP::Lite;
print SOAP::Lite
-> uri('http://localhost:1234/astmanproxy')
-> proxy('http://localhost:1234/')
-> astman('Action: Ping')
-> result . "\n";
exit(0);
|