";
print "
\n"; } #end sub
Passport 8600 Switch
IP Address (xxx.xxx.xxx.xxx) DEBUG
Passport 8600 switches.Let me know if you have questions, problems or suggestions.
\n";
if ($DEBUG) {
print "DEBUG: snmphost = $snmphost
\n";
print "DEBUG: ipaddr = $ip
\n";
}
if (($snmphost eq "") || ($snmphost eq "Select Passport Switch")) {
print "ERROR: The switch parameter appears to be emtpy?
\n";
print "Please go back and enter a valid switch IP address of host name
\n";
exit 1;
} elsif ($ip eq "") {
print "ERROR: The ip address parameter appears to be emtpy?
\n";
print "Please go back and enter a valid IP address
\n";
exit 1;
} elsif ( (length($ip) < 7) | (length($ip) > 15) ) {
print "ERROR: The ip address shoud be greater than 6 characters and\n";
print "less than 15 characters long!?!
\n";
print "Please go back and enter a valid IP address
\n";
exit 1;
};
# Lets create a new SNMP session to the switch
$sess = new SNMP::Session ( DestHost => $snmphost,
Community => $comm,
Retry => RETRIES,
Timeout => TIMEOUT,
Version => SNMPVER );
if ( $sess->{ErrorStr} ) {
print "DEBUG: sess->{ErrorStr} = $sess->{ErrorStr}\n";
}
my $vars = new SNMP::VarList(
['sysDescr', 0],
['sysObjectID', 0],
['sysUpTime', 0],
['sysContact', 0],
['sysName', 0],
['sysLocation', 0] );
@vals = $sess->get($vars); # retreive SNMP information
if ( $sess->{ErrorStr} ) {
print "DEBUG: sess->{ErrorStr} = $sess->{ErrorStr}\n";
}
if ($vals[0] eq "") {
print "SNMP ERROR: Unable to poll the switch!!!
\n";
print "It is possible that the switch is down or you have
\n";
print "the wrong IP address or host name.
\n";
print "Please go back and check the switch name.
\n";
print "DEBUG: vals[0] = $vals[0]
\n";
print "DEBUG: vals[1] = $vals[1]
\n";
print "DEBUG: vals[2] = $vals[2]
\n";
print "DEBUG: vals[3] = $vals[3]
\n";
print "DEBUG: vals[4] = $vals[4]
\n";
print "DEBUG: vals[5] = $vals[5]
\n";
print "DEBUG: vals[6] = $vals[6]
\n";
exit 1;
}
$sysDescr = $vals[0];
$sysObjectID = $vals[1];
$sysUpTime = $vals[2];
$sysContact = $vals[3];
$sysName = $vals[4];
$sysLocation = $vals[5];
$tTime = $sysUpTime;
$tTime /= 100;
$days = int($tTime/(60*60*24));
$tTime -= $days * (60*60*24);
$hrs = int($tTime/(60*60));
$tTime -= $hrs*(60*60);
$mins = int($tTime/(60));
$tTime -= $mins*(60);
print "sysDescr = $sysDescr
\n";
print "sysObjectID = $sysObjectID
\n";
print "sysUpTime = $days Days $hrs Hours $mins mins $tTime secs
\n";
print "sysContact = $sysContact
\n";
print "sysName = $sysName
\n";
print "sysLocation = $sysLocation
\n";
$tempf = ((9/5 * $vals[6]) + 32);
if ($tempf < 100) {
print "Chassis Temperature = ", ((9/5 * $vals[6]) + 32), " degrees
\n";
} else {
print "Chassis Temperature = ", ((9/5 * $vals[6]) + 32), " degrees
\n";
};
print "
\n"; print "Please be patient it may take a while to complete the search...\n"; print "
\n";
################ BEGIN POLLING SPECIFIC SNMP PARAMETERS ######################
# rcMltNumMlts
$nummlts = $sess->get("rcMltNumMlts.0");
print "DEBUG: Number of MultiLink Trunks = $nummlts
\n" if ($DEBUG);
for ($i = 1; $i <= $nummlts; $i++) {
# rcMltName
$mltname[$i] = $sess->get("rcMltName.$i");
# rcMltId
$mltindex[$i] = $sess->get("rcMltId.$i");
# rcMltIfIndex
$mltifindex[$i] = $sess->get("rcMltIfIndex.$i");
print "DEBUG: MltId = $i and MltName = $mltname[$i] and MltIndex = $mltindex[$i] and MltIfIndex = $mltifindex[$i]
\n" if ($DEBUG);
};
# rcVlanNumVlans
$numvlans = $sess->get("rcVlanNumVlans.0");
$numvlans = $numvlans - 1;
print "
DEBUG: Number of VLANs = $numvlans
\n" if ($DEBUG);
my $vars = new SNMP::VarList(
['rcVlanId', 0],
['rcVlanName', 0] );
for ($i = 1; $i <= $numvlans; $i++) {
($vlanidtable[$i], $vlannametable[$i])= $sess->getnext($vars);
print "DEBUG: VLANID = $vlanidtable[$i] with VLAN Name = $vlannametable[$i]
\n" if ($DEBUG);
} #end for loop numvlans
#sleep(10);
# In the past you needed to construct a special SNMP string, appending
# the VLAN ID to the SNMP string in order to search the different FDB tables
# thankfully this is no longer the case as of v3.7 software
#for ($x = 1; $x <= ($numvlans); $x++) {
# $specialcomm = "$comm\@$vlanidtable[$x]";
# print "
DEBUG: Special Community String = $specialcomm
\n" if ($DEBUG);
# Lets create a new SNMP session to the switch
$sess = new SNMP::Session ( DestHost => $snmphost,
Community => $comm,
Retry => RETRIES,
Timeoute => TIMEOUT,
Version => SNMPVER );
# We'll using the SNMP MIB2 ipNetToMedia table. In the past we had used the
# vendor specific rcBridge table but by using this table we can adopt this
# script to other devices/vendors/models/etc.
my $vars = new SNMP::VarList(
['ipNetToMediaIfIndex', 0],
['ipNetToMediaPhysAddress', 0],
['ipNetToMediaNetAddress', 0],
['ipNetToMediaType', 0] );
while (1) {
# Lets perform the SNMP getnext
@vals = $sess->getnext($vars); # retreive SNMP information
# Lets test to make sure the getnext has not walked outside of the MIB
last unless ($vars->[0]->tag eq 'ipNetToMediaIfIndex');
#print "SNMP query against $snmphost just completed\n" if ($DEBUG);
# We need to unpack the MAC address into a human form
$vals[1] = unpack('H12', $vals[1]);
$vals[1] =~ tr/a-z/A-Z/;
# This is the formula (thanks to Shane at Nortel Networks) we
# can use to get the card value and port value from the IfIndex
$tempcard = (($vals[0] & 62914560) / 4194304);
$tempport = (($vals[0] & 4128768) / 65536) + 1;
print "DEBUG: $snmphost; $vals[0] ($tempcard/$tempport); $vals[1]; $vals[2]; $vals[3]
\n" if ($DEBUG);
# Lets count the number of ARP entries we're seaching through
$count++;
# Lets test to see if our input IP address matches this record
if ($ip eq $vals[2]) {
$found = 1; # SET FLAG
$card = (($vals[0] & 62914560) / 4194304);
$port = (($vals[0] & 4128768) / 65536) + 1;
print "
\n";
print "DEVICE FOUND
\n";
# In the past we would have been happy to just immediately report
# the card and port where we found the IP address in the ARP table.
# However, these days we need to be mindful of MLT and SMLT links
#print "Card = $card, Port = $port
\n";
#print "VLAN = $vals[3]
\n";
print "
\n";
if ($card != 0) {
#$card = int($vals[2]/64);
#$port = ($vals[2] - ($card * 64) + 1);
$intf = (((64 * $card) + $port) - 1);
print "$ip ($vals[1]) address found on card $card port $port
\n";
} else {
$mlt = 1;
print "$ip ($vals[1]) address found on MLT $mltname[$port]
\n";
} # end else
} # end if ip=val
} #end while
# In the past I used the loop below to control the SNMP getnext loop,
# eventually I found a better method as I'm currently using above.
#do{
#} until ($sess->{ErrorStr} | (($vals[3] ne "other")
# & ($vals[3] ne "invalid")
# & ($vals[3] ne "dynamic")
# & ($vals[3] ne "static") ) );
if ($found == 0) {
print "We were unable to find that MAC address in any of the ";
print "VLAN forwarding tables.
The device may be shutoff or it ";
print "may have aged out of the forwarding tables.
\n";
print "You may contact the Technology Infrastructure Team for ";
print "further assistance.\n";
}
if (($found) & !($mlt)) {
print "
\n";
print "Would you like to check the status of this port? ";
print "Click Here!!!
\n";
print "
\n";
print "Would you like to check the utilization of this port? ";
print "Click Here!!!
\n"
}
print "
We searched through $count forwarding records...
\n"; # HTML formatting print "
\n"; $date = `date`; print "
\n"; print "$date\n"; print "
\n";
print "";
print "
\n";
} #end sub