Changeset 142


Ignore:
Timestamp:
May 21, 2014, 5:05:37 AM (10 years ago)
Author:
g7moreau
Message:
  • Small error
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r141 r142  
    7070   'set-vlan-name'        => \&cmd_set_vlan_name,
    7171   'get-vlan-name'        => \&cmd_get_vlan_name,
    72    'rebootsw'             => \&cmd_rebootsw'
     72   'rebootsw'             => \&cmd_rebootsw,
    7373   );
    7474
     
    15311531         }
    15321532
    1533       my $search = $OID_NUMBER{'hpicfReset'} . ".$switch_port";
     1533      my $search = $OID_NUMBER{'vlanPortDefault'} . ".$switch_port";
    15341534
    15351535      my ($session, $error) = Net::SNMP->session( %session );
     
    15451545         }
    15461546      else {
    1547          print "Klask do not find VLAN Id $vlan_id on switch $sw_name on port $switch_port\n";
     1547         print "Klask do not find VLAN Id on switch $sw_name on port $switch_port\n";
    15481548         }
    15491549
     
    15671567   my $switch_name = shift @ARGV || q{};
    15681568
    1569    if ($switch_name eq q{} or $mac_address eq q{}) {
     1569   if ($switch_name eq q{}) {
    15701570      die "Usage: klask rebootsw SWITCH_NAME\n";
    15711571      }
     
    15911591
    15921592      my $result = $session->set_request(
    1593          -delay       => 1,
    15941593         -varbindlist => ["$OID_NUMBER{'hpicfReset'}.0", INTEGER, 2],
    15951594         );
Note: See TracChangeset for help on using the changeset viewer.