]#!/usr/bin/perl
use strict;
use SOAP::Lite +trace => 'debug';
use SOAP::WSDL;
my $NS= "urn:FortiAnalyzerWS";
my $WSDL_URL= "https://10.0.111.1:8080/FortiAnalyzerWS?wsdl";
my $URI= "https://10.0.111.1:8080/FortiAnalyserWS";
my $PROXY=$URI;
my $USERNAME="soap";
my $PASSWORD="soap";
my $Client = SOAP::Lite
->service($WSDL_URL)
->proxy($PROXY);
$Client->readable(1);
my $Serializer = $Client->serializer();
$Serializer->register_ns($NS, 'ns2');
my $header = SOAP::Data->name("ns2:Header" =>
\SOAP::Data->value(
SOAP::Data->name("ns2:UserName" => $USERNAME),
SOAP::Data->name("ns2:Password" => $PASSWORD)
)
)
;
my $body =
SOAP::Data->name("ns2:Body" =>
\SOAP::Data->value(
SOAP::Data->name("ns2:FortiAnalyzerGetArchive" =>
\SOAP::Data->value(
SOAP::Data->name('ns2:Type' => 'IPS')
->type('ns2:ArchiveTypes')
,
SOAP::Data->name('ns2:DeviceID' => 'FGT60C3G11022932')
->type('ns2:string63')
,
SOAP::Data->name('ns2:FileName' => '670277741')
->type('ns2:string63')
,
SOAP::Data->name('ns2:Compression' => 'None')
->type('ns2:CompressionType')
,
SOAP::Data->name('ns2:Password' => '')
->type('ns2:string255')
)
)
)
)
;
#my $body = SOAP::Data->name("ns2:Body" =>
# \SOAP::Data->value(
# SOAP::Data->name("ns2:FortiAnalyzerGetSystemStatus")
# )
# )
#;
my $Response = $Client->call( SOAP::Data->name('ns2:FortiRequestEl')
=> ($header, $body)
);
print $Response->result();
####
SOAP::Transport::HTTP::Client::send_receive: POST https://10.0.111.1:8080/FortiAnalyserWS HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 1195
Content-Type: text/xml; charset=utf-8
SOAPAction: "urn:FortiAnalyzerWS#FortiRequestEl"
soap
soap
IPS
FGT60C3G11022932
670277741
None
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error
Connection: close
Server: gSOAP/2.7
Content-Length: 672
Content-Type: text/xml; charset=utf-8
Client-Date: Mon, 14 May 2012 13:57:48 GMT
Client-Peer: 10.0.111.1:8080
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /CN=FL10VM0000000000/O=Fortinet/OU=Fortilog/C=US/ST=California/L=Sunnyvale/emailAddress=support@fortinet.com
Client-SSL-Cert-Subject: /CN=FL10VM0000000000/O=Fortinet/OU=Fortilog/C=US/ST=California/L=Sunnyvale/emailAddress=support@fortinet.com
Client-SSL-Cipher: AES256-SHA
Client-SSL-Warning: Peer certificate not verified
SOAP-ENV:ClientFatal error
####
type="xsd:string"/>
The System Status
The Configurations in CLI syntax
Set configurations in CLI syntax
Service definition of function ns__FortiRequestgSOAP 2.7.7 generated service definition