Changeset 210 for trunk/klask

Timestamp:

Feb 16, 2017, 9:49:10 PM (7 years ago)

Author:

g7moreau

Message:

• Update method cmd_enable and cmd_disable

File:

• trunk/klask (modified) (5 diffs)

trunk/klask

@@ -1970 +1970 @@
 
 sub cmd_enable {
-   my $switch = shift;
-   my $port   = shift;
+   @ARGV = @_;
+
+   my $verbose;
+
+   GetOptions(
+      'verbose|v' => \$verbose,
+      );
+
+   my $switch_name = shift @ARGV || q{};
+   my $port        = shift @ARGV || q{};
+
+   if ($switch_name eq q{} or $port eq q{}) {
+      die "Usage: klask disable SWITCH_NAME PORT\n";
+      }
+
+   if (not defined $SWITCH_DB{$switch_name}) {
+      die "Switch $switch_name must be defined in klask configuration file\n";
+      }
+
+   my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port;
+   print "Info: switch $switch_name port $port SNMP OID $search_portstatus\n" if $verbose;
+
+   my $sw = $SWITCH_DB{$switch_name};
+   my ($session, $error) = Net::SNMP->session( %{$sw->{snmp_param_session}} );
+   print "$error \n" if $error;
+
+   my $result = $session->set_request(
+      -varbindlist => [$search_portstatus, INTEGER, 1],
+      );
+
+   $session->close;
 
    #snmpset -v 1 -c community X.X.X.X 1.3.6.1.2.1.2.2.1.7.NoPort = 1 (up)
    #snmpset -v 1 -c community X.X.X.X 1.3.6.1.2.1.2.2.1.7.NoPort = 2 (down)
-   system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 1";
+   #system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 1";
    return;
    }
 
 sub cmd_disable {
-   my $switch = shift;
-   my $port   = shift;
-
-   system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 2";
+   @ARGV = @_;
+
+   my $verbose;
+
+   GetOptions(
+      'verbose|v' => \$verbose,
+      );
+
+   my $switch_name = shift @ARGV || q{};
+   my $port        = shift @ARGV || q{};
+
+   if ($switch_name eq q{} or $port eq q{}) {
+      die "Usage: klask disable SWITCH_NAME PORT\n";
+      }
+
+   if (not defined $SWITCH_DB{$switch_name}) {
+      die "Switch $switch_name must be defined in klask configuration file\n";
+      }
+
+   my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port;
+   print "Info: switch $switch_name port $port SNMP OID $search_portstatus\n" if $verbose;
+
+   my $sw = $SWITCH_DB{$switch_name};
+   my ($session, $error) = Net::SNMP->session( %{$sw->{snmp_param_session}} );
+   print "$error \n" if $error;
+
+   my $result = $session->set_request(
+      -varbindlist => [$search_portstatus, INTEGER, 2],
+      );
+
+   $session->close;
+
+   #system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 2";
    return;
    }
@@ -2486 +2544 @@
 
  klask enable  switch port
- klask disable swith port
+ klask disable switch port
  klask status  swith port
 
@@ -2526 +2584 @@
 This command activate a port on a switch by SNMP.
 So you need to give the switch and the port number on the command line.
+Actually, port number must be a number and not the name alias...
 
 
@@ -2532 +2591 @@
 This command deactivate a port on a switch by SNMP.
 So you need to give the switch and the port number on the command line.
+Actually, port number must be a number and not the name alias...
 
 
@@ -2538 +2598 @@
 This command return the status of a port number on a switch by SNMP.
 So you need to give the switch name and the port number on the command line.
+Actually, port number must be a number and not the name alias...