WAN Routers at a glance

#!/usr/bin/perl use BER; require 'SNMP_Session.pm'; # Set $host to the name of the host whose SNMP agent you want # to talk to. Set $community to the community name under # which you want to talk to the agent. Set port to the UDP # port on which the agent listens (usually 161). my $routerfile = 'test/routers'; my @routers = qw(swiEG1.switch.ch swiEZ1.switch.ch swiEZ2.switch.ch swiCS1.switch.ch swiCS2.switch.ch); my $redline=10; my $yellowline=5; my $redball = "

"; my $yelball = "

"; my $greenball = "

"; print <<"TEXT"; WAN Routers at a glance

WAN Routers at a Glance
Technical Team Only

TEXT @results2=(); for ($currouter=0; $currouter < $#routers; $currouter++) { $host=@routers[$currouter]; $community = "public"; $port = "161"; $path = 'test/stats/'; $session = SNMP_Session->open ($host, $community, $port) || die "couldn't open SNMP session to $host"; # Set $oid1, $oid2... to the BER-encoded OIDs of the MIB # variables you want to get. $oid1 = encode_oid (1, 3, 6, 1, 2, 1, 2, 1, 0); $oid2 = encode_oid (1, 3, 6, 1, 2, 1, 1, 5, 0); # Cisco CPU OID $oid3 = encode_oid (1, 3, 6, 1, 4,1,9,2,1,58,0); if ($session->get_request_response ($oid1,$oid2,$oid3)) { ($bindings) = $session->decode_get_response ($session->{pdu_buffer}); while ($bindings ne '') { ($binding,$bindings) = &decode_sequence ($bindings); ($oid,$value) = &decode_by_template ($binding, "%O%@"); $interfaces=pretty_print ($value); ($binding,$bindings) = &decode_sequence ($bindings); ($oid,$value) = &decode_by_template ($binding, "%O%@"); $sysname=pretty_print ($value); ($binding,$bindings) = &decode_sequence ($bindings); ($oid,$value) = &decode_by_template ($binding, "%O%@"); $cpupercent=pretty_print ($value); } } else { die "No response from agent on $host"; } print < "; for ($x=0; $x <= $#outhead; $x++) { print "\n"; } print "\n"; for ($x=0; $x <= $#outvalue; $x++) { print "\n"; } @outhead=(); @outvalue=(); print <<"TEXT";

$redline){ $graphic=$redball; } elsif ($cpupercent>$yellowline) { $graphic=$yelball; } else { $graphic=$greenball; } @outvalue[0]=$graphic; $a=1; for ($i=1; $i <= $interfaces; $i++) { $oid1=encode_oid(1,3, 6, 1, 2, 1, 2, 2, 1 ,2, $i); $oid2=encode_oid(1,3, 6, 1, 2, 1, 2, 2, 1 ,8, $i); $oid3=encode_oid(1,3, 6, 1, 2, 1, 2, 2, 1 ,5, $i); if ($session->get_request_response ($oid1,$oid2,$oid3)) { ($bindings) = $session->decode_get_response ($session->{pdu_buffer}); while ($bindings ne '') { ($binding,$bindings) = &decode_sequence ($bindings); ($oid,$value) = &decode_by_template ($binding, "%O%@"); $name=pretty_print ($value); ($binding,$bindings) = &decode_sequence ($bindings); ($oid,$value) = &decode_by_template ($binding, "%O%@"); $status=pretty_print ($value); ($binding,$bindings) = &decode_sequence ($bindings); ($oid,$value) = &decode_by_template ($binding, "%O%@"); $maxspeed=(pretty_print ($value)/8); if ($status=="1") { $file = $path.$host.".".$i.".log"; @temp=split(/\n/,$file); $file=@temp[0].@temp[1]; #print $file,"\n"; open(INFO, $file); @lines = ; @elements=split(/ /,@lines[1]); $curtot=@elements[1]+@elements[2]; if ($maxspeed == 0) { $graphic=""; } else { $percentage=($curtot/$maxspeed)*100; if ($percentage>$redline){ $graphic=$redball; } elsif ($percentage>$yellowline) { $graphic=$yelball; } else { $graphic=$greenball; } } @outhead[$a]=$name; @outvalue[$a]=$graphic; $a++; }} } else { die "No response from agent on $host"; } } print $#outhead+1,">Utilisation statistics for ",$sysname,"

",@outhead[$x],"

",@outvalue[$x],"

TEXT } print "";