Changeset 129

Timestamp:

May 18, 2013, 10:42:58 AM (12 years ago)

Author:

g7moreau

Message:

• Add function get-vlan-name
• A litle doc

File:

• trunk/klask (modified) (5 diffs)

trunk/klask

@@ -66 +66 @@
    'search-mac-on-switch' => \&cmd_search_mac_on_switch,
    'bad-vlan-config'  => \&cmd_bad_vlan_config,
+   'set-vlan-port'  => \&cmd_set_vlan_port,
+   'get-vlan-port'  => \&cmd_get_vlan_port,
+   'set-vlan-name'  => \&cmd_set_vlan_name,
+   'get-vlan-name'  => \&cmd_get_vlan_name,
    );
 
@@ -136 +140 @@
    searchPort1     => '1.3.6.1.2.1.17.4.3.1.2',       # BRIDGE-MIB (802.1D).
    searchPort2     => '1.3.6.1.2.1.17.7.1.2.2.1.2.0', # Q-BRIDGE-MIB (802.1Q) replace last 0 with real vlan number if needed
-   listVlan        => '1.3.6.1.2.1.17.7.1.4.3.1.1',
+   vlanPortDefault => '1.3.6.1.2.1.17.7.1.4.5.1.1',   # dot1qPvid
+   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
    );
 
@@ -627 +633 @@
 klask - ports manager and finder for switch
 
+ klask version
+
  klask updatedb
  klask exportdb --format [txt|html]
@@ -640 +648 @@
 
  klask ip-free --day number_of_day --format [txt|html] [vlan_name]
+
+ klask bad-vlan-config
 
  klask enable  switch port
@@ -1350 +1360 @@
    }
 
+sub cmd_set_vlan_port {
+   my $switch_name = shift || q{};
+   my $mac_address = shift || q{};
+
+   if ($switch_name eq q{} or $mac_address eq q{}) {
+      die "Usage: klask search-mac-on-switch SWITCH_NAME MAC_ADDRESS\n";
+      }
+
+   $switch_name = join(',', map {$_->{hostname}} @SWITCH ) if $switch_name eq q{*};
+
+   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 $research1 = $OID_NUMBER{searchPort1} . mac_address_hex_to_dec($mac_address);
+      my $research2 = $OID_NUMBER{searchPort2} . mac_address_hex_to_dec($mac_address);
+      print "Klask search OID $research1 on switch $sw_name\n";
+      print "Klask search OID $research2 on switch $sw_name\n";
+
+      my ($session, $error) = Net::SNMP->session( %session );
+      print "$error \n" if $error;
+
+      my $result = $session->get_request(
+         -varbindlist => [$research1]
+         );
+      if (not defined $result) {
+         $result = $session->get_request(
+            -varbindlist => [$research2]
+            );
+         $result->{$research1} = $result->{$research2} if defined $result;
+         }
+
+      if (defined $result and $result->{$research1} ne 'noSuchInstance') {
+         my $swport = $result->{$research1};
+         print "Klask find MAC $mac_address on switch $sw_name port $swport\n";
+         }
+      else {
+         print "Klask do not find MAC $mac_address on switch $sw_name\n";
+         }
+
+      $session->close;
+      }
+   return;
+   }
+
+sub cmd_get_vlan_port {
+   }
+
+sub cmd_set_vlan_name {
+   }
+
+sub cmd_get_vlan_name {
+   my $switch_name = shift || q{};
+   my $vlan_id     = shift || q{};
+
+   if ($switch_name eq q{} or $vlan_id eq q{}) {
+      die "Usage: klask get-vlan-name SWITCH_NAME VLAN_ID\n";
+      }
+
+   $switch_name = join(',', map {$_->{hostname}} @SWITCH ) if $switch_name eq q{*};
+
+   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_vlan_name = $OID_NUMBER{vlanName} . "$vlan_id";
+
+      my ($session, $error) = Net::SNMP->session( %session );
+      print "$error \n" if $error;
+
+      my $result = $session->get_request(
+         -varbindlist => [$search_vlan_name]
+         );
+
+      if (defined $result and $result->{$search_vlan_name} ne 'noSuchInstance') {
+         my $vlan_name = $result->{$search_vlan_name};
+         print "Klask find VLAN $vlan_id on switch $sw_name with name $swport\n";
+         }
+      else {
+         print "Klask do not find VLAN $vlan_id on switch $sw_name\n";
+         }
+
+      $session->close;
+      }
+   return;
+   }
+
 sub cmd_ip_location {
    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");