Code: Select all
if (Mtik::login($mtik_host,$mtik_username,$mtik_password))
{
my %operands;
$operands{'numbers'} = '=stats';
my($retval,@results) = Mtik::mtik_cmd("/queue/simple/print", \%operands);
foreach (@results) {
print "$_";
}
Mtik::logout;
}
Code: Select all
HASH(0x84ddad0)