From: Richard Jones <rjones@trick.home.annexia.org>
Date: Tue, 29 Sep 2009 18:18:53 +0000 (+0100)
Subject: virt-ping
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=HEAD;hp=f3691aa4f1c48682da967b2f53a32f55e732746e;p=virt-tools.git

virt-ping
---

diff --git a/tools/virt-uname.pl b/tools/virt-uname.pl
index 3ff8d4c..a0a5935 100755
--- a/tools/virt-uname.pl
+++ b/tools/virt-uname.pl
@@ -229,7 +229,7 @@ virt-tools is available and working inside the guest.
 
 sub title_ping
 {
-    print_row (__"Guest");
+    print_row (__"Guest", __"Status");
 }
 
 sub do_ping
@@ -238,8 +238,13 @@ 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