15 |
my $debug = 0; |
my $debug = 0; |
16 |
my $list_name = 'SOAP test'; |
my $list_name = 'SOAP test'; |
17 |
|
|
18 |
|
$debug = 1 if (@ARGV); |
19 |
|
|
20 |
my $aliases = Cwd::abs_path($0); |
my $aliases = Cwd::abs_path($0); |
21 |
$aliases =~ s#/[^/]*$#/#; |
$aliases =~ s#/[^/]*$#/#; |
22 |
$aliases .= 'aliases'; |
$aliases .= 'aliases'; |
52 |
->uri('http://localhost/Nos/SOAP/') |
->uri('http://localhost/Nos/SOAP/') |
53 |
->proxy($daemon->url); |
->proxy($daemon->url); |
54 |
|
|
55 |
$soap->on_debug(sub{print "# CLIENT ",@_}) if ($debug); |
$soap->on_debug(sub{print "## ", join("\n## ",@_), "\n";}) if ($debug); |
56 |
|
|
57 |
# NewList |
# NewList |
58 |
|
|