Changeset 206 for trunk/klask

Timestamp:

Feb 16, 2017, 7:39:58 PM (7 years ago)

Author:

g7moreau

Message:

• Rewrite cmd_status

File:

• trunk/klask (modified) (4 diffs)

trunk/klask

@@ -155 +155 @@
    ifIndex         => '1.3.6.1.2.1.17.1.4.1.2',       # dot1dBasePortIfIndex - Interface index redirection
    ifName          => '1.3.6.1.2.1.31.1.1.1.1',       # Interface name (give port number)
+   portUpDown      => '1.3.6.1.2.1.2.2.1.7',          # 1.3.6.1.2.1.2.2.1.7.NoPort = 1 (up)  = 2 (down)
+   );
+
+Readonly my %PORT_UPDOWN => (
+   1 => 'enable',
+   2 => 'disable',
    );
 
@@ -162 +168 @@
 Readonly my $RE_FLOAT_HOSTNAME => qr{ ^float }xms;
 
-
 ################
-# principal
+# main program
 ################
 
@@ -178 +183 @@
 
 exit;
+
+################
+# subroutine
+################
 
 sub test_running_environnement {
@@ -2019 +2028 @@
 
 sub cmd_status {
-   my $switch = shift;
-   my $port   = shift;
-
-   system "snmpget -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port";
+   @ARGV = @_;
+
+   my $verbose;
+
+   GetOptions(
+      'verbose|v' => \$verbose,
+      );
+
+   my $switch_name = shift @ARGV || q{};
+   my $port        = shift @ARGV || q{};
+
+   my $sw = $SWITCH_DB{$switch_name};
+   my %session = ( -hostname   => $sw->{hostname} );
+      $session{-version} = $sw->{version}   || 1;
+      $session{-port}    = $sw->{snmpport}  || $DEFAULT{snmpport}  || 161;
+      if (exists $sw->{version} and $sw->{version} eq '3') {
+         $session{-username} = $sw->{username} || 'snmpadmin';
+         }
+      else {
+         $session{-community} = $sw->{community} || $DEFAULT{community} || 'public';
+         }
+   $sw->{local_session} = \%session;
+
+   my ($session, $error) = Net::SNMP->session( %{$sw->{local_session}} );
+   print "$error \n" if $error;
+
+   my $oid_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port;
+   print "Info: switch $switch_name port $port SNMP OID $oid_portstatus\n" if $verbose;
+   my $result = $session->get_request(
+      -varbindlist => [$oid_portstatus]
+      );
+   if (defined $result) {
+      print "$PORT_UPDOWN{$result->{$oid_portstatus}}\n";
+      }
+
+   #system "snmpget -v 1 -c public $switch_name 1.3.6.1.2.1.2.2.1.7.$port";
    return;
    }