if (!defined($conn)) {
print "Could not connect to switch ".$switch->{'switch'}."\n";
}
- my @data = switch_exec('sys monitor status', $conn);
+ my @data = nms::switch_exec('sys monitor status', $conn);
my @fields = split(/\s+/, $data[2]);
# The temp fields are 6, 7, 8
my $avgtemp = ($fields[6] + $fields[7] + $fields[8]) / 3;
$dbh->commit;
}
-sub switch_exec {
- my ($cmd, $conn) = @_;
-
- # Send the command and get data from switch
- my @data = $conn->cmd($cmd);
- my @lines = ();
- foreach my $line (@data) {
- # Remove escape-7 sequence
- $line =~ s/\x1b\x37//g;
- push (@lines, $line);
- }
-
- return @lines;
-}
-
sub mylog {
my $msg = shift;
my $time = POSIX::ctime(time);