Commit a5e1db7f authored by Mac Newbold's avatar Mac Newbold

Added descriptive output. Before, it was snmpit output, now it is

transformed back into machine names for output.
parent a39ac4e6
......@@ -74,6 +74,17 @@ foreach $item ( sort @machines) {
if ( ! defined ($IPList{$item}) ) {
print "Machine $item not found. Skipping...\n";
} else {
system($snmpit,'-v','-i',$IPList{$item},$op,$OutletList{$item});
my $cmd=join(" ",
($snmpit,'-v','-i',$IPList{$item},$op,$OutletList{$item}));
open(OUT,$cmd." |");
while (<OUT>) {
if (/was outlet(.*)/) {
print "$item was $1";
}
if (/to outlet(.*)/) {
print " ... $item now $1";
}
}
print "\n";
}
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment