From: Ian Jackson <iwj@xenproject.org>
Date: Wed, 21 Oct 2020 15:03:05 +0000 (+0100)
Subject: PDU/MSW: Break out get()
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=bb7739be126cf4541ac6a8c70f5a42aa2635ea11;p=osstest.git

PDU/MSW: Break out get()

This is going to be useful in a moment.

Signed-off-by: Ian Jackson <iwj@xenproject.org>
---

diff --git a/pdu-msw b/pdu-msw
index 04b03a2..58c3395 100755
--- a/pdu-msw
+++ b/pdu-msw
@@ -106,13 +106,18 @@ my @map= (undef, qw(
                     delayed-off
                     delayed-reboot));
 
-sub show () {
+sub get () {
     my $got= $session->get_request($read_oid);
     die "SNMP error reading $read_oid ".$session->error()." " unless $got;
     my $val= $got->{$read_oid};
     die unless $val;
     my $mean= $map[$val];
     die "$val ?" unless defined $mean;
+    return $mean;
+}
+
+sub show () {
+    my $mean = get();
     printf "pdu-msw $dnsname: #%s \"%s\" = %s\n", $useport, $usename, $mean;
 }