From df8665ce5c8fe21ce46887530db1b62f28deecf1 Mon Sep 17 00:00:00 2001
From: Richard Jones <rjones@trick.home.annexia.org>
Date: Tue, 29 Sep 2009 19:18:53 +0100
Subject: [PATCH 1/1] virt-ping

---
 tools/virt-uname.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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
-- 
1.8.3.1