Forum Discussion
access2AE_25064
Mar 02, 2017Nimbostratus
Hi,
Please find the snippet below:
sub SOAP::Transport::HTTP::Client::get_basic_credentials
{
return "$sUID" => "$sPWD";
}
$KeyCertificate = SOAP::Lite
-> uri('urn:iControl:Management/KeyCertificate')
-> proxy("https://$sHost:$sPort/iControl/iControlPortal.cgi");
eval {
$KeyCertificate->transport->http_request->header(
'Authorization' =>
'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '')
);
};
if ( $sMode eq "" )
{
$sMode = "MANAGEMENT_MODE_DEFAULT";
}
$soapResponse = $KeyCertificate->get_certificate_list_v2(
SOAP::Data->name(mode => $sMode),
);
print Dumper $soapResponse->result;