Changeset 35 for trunk/klask

Timestamp:

Feb 12, 2008, 1:54:43 PM (16 years ago)

Author:

g7moreau

Message:

• Add command search-mac-on-switch

klask search-mac-on-switch switch_name mac_address

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -56 +56 @@
    dotsw      => \&cmd_exportsw_dot,
    iplocation => \&cmd_iplocation,
+   'search-mac-on-switch' => \&cmd_search_mac_on_switch,
    );
 
@@ -817 +818 @@
    }
 
+sub cmd_search_mac_on_switch {
+   my $switch_name = shift;
+   my $mac_address = shift;
+   
+   my $research = "1.3.6.1.2.1.17.4.3.1.2".arp_hex_to_dec($mac_address);
+   print "Klask search OID $research on switch $switch_name\n";
+
+   my ($session, $error) = Net::SNMP->session( -hostname => $switch_name );
+   print "$error \n" if $error;
+
+   my $result = $session->get_request(
+      -varbindlist => [$research]
+      );
+   
+   if (not defined($result) or $result->{$research} eq 'noSuchInstance') {
+      print "Klask do not find MAC $mac_address on switch $switch_name\n";
+      $session->close;
+      }
+
+   my $swport = $result->{$research};
+   $session->close;
+
+   print "Klask find MAC $mac_address on switch $switch_name port $swport\n";
+   }
 
 sub cmd_updatesw {