iControl 101 - #15 - System Services
This installment of iControl 101, I'll focus on the System Service interface where you can have full control of the running state of all the services on the system. Initialization This article...
Published May 29, 2008
Version 1.0
mariogolf_57851
Nimbostratus
NimbostratusCan you help me print this out in PERL?
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);
}