pdu-msw: print pdu dns name in stdout messages

This makes the logs show which pdu was addressed.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/pdu-msw b/pdu-msw
index 6c256905f7a124db24c0d3b82d7bc32728f739a2..d269156717c330e0090026818661a814dc54a2f8 100755 (executable)
--- a/pdu-msw
+++ b/pdu-msw
@@ -88,7 +88,9 @@ if ($outlet =~ m/^\d+$/) {
                    ($t->[2] ? '*' : ''),
                    $t->[0], $t->[1]);
         }
-        die @found ? "multiple ports match\n" : "no ports match\n";
+        die "pdu-msw $dnsname: ".
+            (@found ? "multiple ports match" : "no ports match").
+            "\n";
     }
     ($useport,$usename)= @{ $found[0] };
 }
@@ -111,7 +113,7 @@ sub show () {
     die unless $val;
     my $mean= $map[$val];
     die "$val ?" unless defined $mean;
-    printf "#%s \"%s\" = %s\n", $useport, $usename, $mean;
+    printf "pdu-msw $dnsname: #%s \"%s\" = %s\n", $useport, $usename, $mean;
 }
 
 sub set () {