Hi,
the SDK-Version is numbered "iControl SDK 10.0.0"
my BIG-IP Version 10.2.1 build 297.0
And here my codeblock ...
!/usr/bin/perl
use SOAP::Lite + trace => qw(method debug);
use SOAP::Lite;
use MIME::Base64;
BEGIN { push (@INC, ".."); }
use iControlTypeCast;
----------------------------------------------------------------------------
Arguments
----------------------------------------------------------------------------
my $sProtocol = "https";
my $sHost = 'myip'; changed
my $sPort = 443;
my $sUID = 'myuser'; changed
print('Password: ');
my $sPWD = 'secret'; changed
----------------------------------------------------------------------------
Transport Information
----------------------------------------------------------------------------
sub SOAP::Transport::HTTP::Client::get_basic_credentials
{
return "$sUID" => "$sPWD";
}
$soap = SOAP::Lite
-> uri('urn:iControl:System/SystemInfo')
-> proxy( "$sProtocol://$sHost:$sPort/iControl/iControlPortal.cgi",
proxy => ["https" => 'http://proxy.domain.dom:8080/'] );
eval { $soap->transport->http_request->header
(
'Authorization' => 'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '')
); };
&getSystemId();
----------------------------------------------------------------------------
sub getSystemId
----------------------------------------------------------------------------
sub getSystemId()
{
$soapResponse = $soap->get_system_id();
if ( $soapResponse->fault )
{
print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n";
}
else
{
my $SystemId = $soapResponse->result;
print "System Id: '", $SystemId, "'\n";
}
}
bye Andreas