Changeset 142 for trunk/klask

Timestamp:

May 21, 2014, 5:05:37 AM (10 years ago)

Author:

g7moreau

Message:

• Small error

File:

• trunk/klask (modified) (5 diffs)

trunk/klask

@@ -70 +70 @@
    'set-vlan-name'        => \&cmd_set_vlan_name,
    'get-vlan-name'        => \&cmd_get_vlan_name,
-   'rebootsw'             => \&cmd_rebootsw'
+   'rebootsw'             => \&cmd_rebootsw,
    );
 
@@ -1531 +1531 @@
          }
 
-      my $search = $OID_NUMBER{'hpicfReset'} . ".$switch_port";
+      my $search = $OID_NUMBER{'vlanPortDefault'} . ".$switch_port";
 
       my ($session, $error) = Net::SNMP->session( %session );
@@ -1545 +1545 @@
          }
       else {
-         print "Klask do not find VLAN Id $vlan_id on switch $sw_name on port $switch_port\n";
+         print "Klask do not find VLAN Id on switch $sw_name on port $switch_port\n";
          }
 
@@ -1567 +1567 @@
    my $switch_name = shift @ARGV || q{};
 
-   if ($switch_name eq q{} or $mac_address eq q{}) {
+   if ($switch_name eq q{}) {
       die "Usage: klask rebootsw SWITCH_NAME\n";
       }
@@ -1591 +1591 @@
 
       my $result = $session->set_request(
-         -delay       => 1,
          -varbindlist => ["$OID_NUMBER{'hpicfReset'}.0", INTEGER, 2],
          );