sub title_ping
{
- print_row (__"Guest");
+ print_row (__"Guest", __"Status");
}
sub do_ping
my $key = shift;
my $transport = shift;
-
-
+ my $session = get_snmp_session ($key, $transport);
+ my $sysUpTime = "1.3.6.1.2.1.1.3.0";
+ my $r = $session->get_request (-varbindlist => [$sysUpTime])
+ or die __x("SNMP error: {e}", $session->error);
+ print STDERR "ping: sysUpTime = $r->{$sysUpTime}\n" if $verbose;
+ print_row ($domname, "ok");
+ $session->close;
}
=head1 virt-uname