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 04b03a22ea921d4344ad4b585c88e54b2a94ed04..58c339522bb0acbfdef948be1fc19d551dd37621 100755 (executable)
--- 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;
 }