iControl 101 - #15 - System Services
Published May 29, 2008
Version 1.0Was this article helpful?
sub get_ssh_access_v2()
{
$soapResponse = $System->get_ssh_access();
if ( $soapResponse->fault )
{
print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n";
}
else
{
$SSHAccess = $soapResponse->result;
my @SSHAccess = $soapResponse->result;
foreach my $SSHAccess (@SSHAccess)
{
$state = $SSHAccess->{"state"};
@addresses = $SSHAccess->{"addresses"};
print "$state";
print Dumper @addresses;
$i = 0;
foreach $addresses (@addresses)
{
print Dumper $addresses[$i];
print "$addresses[$i] \n";
$i++;
}
}
}
return(0);
}