Changeset 141

Timestamp:

May 20, 2014, 9:01:54 PM (11 years ago)

Author:

g7moreau

Message:

• Begin klask rebootsw and get_vlan_port

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -70 +70 @@
    'set-vlan-name'        => \&cmd_set_vlan_name,
    'get-vlan-name'        => \&cmd_get_vlan_name,
+   'rebootsw'             => \&cmd_rebootsw'
    );
 
@@ -143 +144 @@
    vlanStatus      => '1.3.6.1.2.1.17.7.1.4.3.1.5',   # integer 4 Create, 6 Destroy
    vlanName        => '1.3.6.1.2.1.17.7.1.4.3.1.1',   # string
+   hpicfReset      => '1.3.6.1.4.1.11.2.14.11.1.4.1', # HP reboot switch
    );
 
@@ -1499 +1501 @@
 
 sub cmd_get_vlan_port {
+   @ARGV = @_;
+
+   my $verbose;
+   GetOptions(
+      'verbose|v' => \$verbose,
+      );
+
+   my $switch_name = shift @ARGV || q{};
+   my $switch_port = shift @ARGV || q{};
+
+   if ($switch_name eq q{} or $switch_port eq q{}) {
+      die "Usage: klask get-vlan-port SWITCH_NAME PORT\n";
+      }
+
+   for my $sw_name (split /,/, $switch_name) {
+      if (not defined $SWITCH_DB{$sw_name}) {
+         die "Switch $sw_name must be defined in klask configuration file\n";
+         }
+
+      my $sw = $SWITCH_DB{$sw_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';
+         }
+
+      my $search = $OID_NUMBER{'hpicfReset'} . ".$switch_port";
+
+      my ($session, $error) = Net::SNMP->session( %session );
+      print "$error \n" if $error;
+
+      my $result = $session->get_request(
+         -varbindlist => [$search],
+         );
+
+      if (defined $result and $result->{$search} ne 'noSuchInstance') {
+         my $vlan_id = $result->{$search} || 'empty';
+         print "Klask VLAN Id $vlan_id on switch $sw_name on port $switch_port\n";
+         }
+      else {
+         print "Klask do not find VLAN Id $vlan_id on switch $sw_name on port $switch_port\n";
+         }
+
+      $session->close;
+      }
+   return;
    }
 
 sub cmd_set_vlan_name {
+   }
+
+# snmpset -v 1 -c public sw1-batG0-legi.hmg.priv "$OID_NUMBER{'hpicfReset'}.0" i 2;
+sub cmd_rebootsw {
+   @ARGV = @_;
+
+   my $verbose;
+   GetOptions(
+      'verbose|v' => \$verbose,
+      );
+
+   my $switch_name = shift @ARGV || q{};
+
+   if ($switch_name eq q{} or $mac_address eq q{}) {
+      die "Usage: klask rebootsw SWITCH_NAME\n";
+      }
+
+   for my $sw_name (split /,/, $switch_name) {
+      if (not defined $SWITCH_DB{$sw_name}) {
+         die "Switch $sw_name must be defined in klask configuration file\n";
+         }
+
+      my $sw = $SWITCH_DB{$sw_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';
+         }
+
+      my ($session, $error) = Net::SNMP->session( %session );
+      print "$error \n" if $error;
+
+      my $result = $session->set_request(
+         -delay       => 1,
+         -varbindlist => ["$OID_NUMBER{'hpicfReset'}.0", INTEGER, 2],
+         );
+
+      $session->close;
+      }
+   return;
    }