|
switches |
Subversion Repositories: |
Compare with Previous - Blame - Download
#!/usr/bin/perl -wuse strict;## Petr Simandl, www.simandl.czmy $snmpwalk = "/usr/bin/snmpwalk";my %map = ("edimax_es-3116p" => [[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16],],"repotec_g3224x" => [[1,2,3,4,5,6,7,8,9,10,11,12,0,0],[13,14,15,16,17,18,19,20,21,22,23,24,25,26],],"repotec_RP-6326I" => [[1,2,3,4,5,6,7,8,9,10,11,12,0,0],[13,14,15,16,17,18,19,20,21,22,23,24,25,26],],"repotec_RP-G2402I"=> [[1,2,3,4,5,6,7,8,9,10,11,12],[13,14,15,16,17,18,19,20,21,22,23,24],],"tplink_tl-sl1210" => [[1,2,3,4,5,6,7,8,23,24],],"repotec_GEL2-SW8" => [[1,2,3,4,5,6,7,8],],"repotec_10G" => [[1,2,3,4,5,6,7,8,9,10],],"linksys_SRW224G4" => [[1,2,3,4,5,6,7,8,9,10,11,12,25,27],[13,14,15,16,17,18,19,20,21,22,23,24,26,28],],"SMCGS24C" => [[1,2,3,4,5,6,7,8,9,10,11,12],[13,14,15,16,17,18,19,20,21,22,23,24,21,22,23,24],],"tplink_SG5426" => [[1,3,5,7,9,11,13,15,17,19,21,23,25,26,0,0],[2,4,6,8,10,12,14,16,18,20,22,24,21,22,23,24],],"NetGear" => [[1,2,3,4,5,6,7,8,9,10,11,12],],"SignaMax_065-7851"=> [[1,3,5,7,9,11,13,15,17,19,21,23],[2,4,6,8,10,12,14,16,18,20,22,24],],"AL11FIDU" => [[14,15,0,0],[6,7,10,11],],);my @ports = ();my @sw = ();my %sw_d = ();my $portlist = "";my $p = 0;my $d = "";my ($fnc,$mac,$if,$bin,$geom,$desc);print "Content-type: text/html\n\n";print "<HTML><HEAD>\n<META HTTP-EQUIV=Pragma CONTENT=no-cache>\n<style type=\"text/css\" media=\"screen\"> \@import \"../style.css\" ;</style>\n";print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=UTF8\">\n";#print "<script type=\"text/javascript\" src=\"overlib.js\"><!-- overLIB (c) Erik Bosrup --></script>\n";print "</HEAD><BODY>\n";#nocache!print "<div id=\"overDiv\" style=\"position:absolute; visibility:hidden; z-index:1000;\"></div>";#print "<a href=\"javascript:void(0);\" onmouseover=\"return overlib('This is an ordinary popup.');\" onmouseout=\"return nd();\">here</a>";open(CONF,"< /etc/switches.conf") || die("can't open datafile: $!");while (<CONF>) {chomp;next if (/^#/);next if (/^$/);if (/^draw_/) { push @sw, $_; next; }if (/^([0-9a-fA-F]{2}:[0-9a-fA-F]{2}:)|(([0-9]{1,3}\.){3}[0-9]{1,3})/) {($mac, $portlist) = split(/\|/, $_, 2);@ports = ();foreach ( split(/\|/, $portlist) ) {($p, $d) = split /;/;$ports[$p] = $d;}$sw_d{$mac} = [ @ports ];}}close CONF;foreach (@sw) {($fnc, $mac, $if, $bin, $geom, $desc) = split /\|/;SWITCH: {if ($fnc eq "draw_rrcp_switch") {draw_rrcp_switch($mac,$if,$bin,$desc,$map{$geom},\%sw_d);last SWITCH;}if ($fnc eq "draw_snmp_switch") {draw_snmp_switch($mac,$if,$bin,$desc,$map{$geom},\%sw_d);last SWITCH;}}print "<br>\n";}my $date = `date`;print "<BR>$date\n<BR>";print "</center></BODY></HTML>";################################################################################sub draw_rrcp_switch {my $mac = shift(@_);my $if = shift(@_);my $bin = shift(@_);my $desc = shift(@_);my @map = @{shift(@_)};my $sw_d = shift(@_);my $w = scalar( @{$map[0]} );my $h = scalar @map;my $x = 0;my $y = 0;my $e = "";my $f = "";my $sirka = 70;my $label = "";my $bg = "";my $enab = "";my $mod = "";my $stat = "";my $link = "";my $flow = "";my $port = 0;my @row = ();my @pole = ();my $porty=`sudo $bin $mac\@$if show int | grep ^$if | sed 's/://g' | sed 's/$if\\///g'`;print "<b>$desc</b> $mac";# print "<pre>$porty\n</pre>";foreach (split("\n",$porty)) {s/auto1000M-/auto 1000M-/;@row = split ;@pole[$row[0]] = [ @row[1..5] ];}print "<table border=1>\n";for ($y = 0; $y < $h; $y++) {print "<tr>\n";for ($x = 0; $x < $w; $x++) {$bg = "\"#FFFFFF\"";print " <td valign=top width=\"$sirka\" ";if ($port = $map[$y][$x]) {($enab,$mod,$stat,$link,$flow) = @{$pole[$port]}[0..4];if ($link eq "LINK") { $bg = "\"#00FF00\""; }}print "bgcolor=$bg>";if ($port) {$e = substr($enab,0,1);if (defined($sw_d->{$mac}[$port])) {$label = $sw_d->{$mac}[$port];}else { $label = ""; }if ($flow eq "flowctl") { $f = "Y"; } else { $f = "N"; }print "$port $label<br />$e $mod $stat $f</td>\n";} else {print " </td>\n";}}print "</tr>\n";}print "</table>";}sub draw_snmp_switch {my $myip = shift(@_);my $com = shift(@_);my $dhcp = shift(@_);my $desc = shift(@_);my @map = @{shift(@_)};my $sw_d = shift(@_);my @pole_operstatus = ();my @pole_adminstatus = ();my @pole_speed = ();my %pole_dhcpdhosts = ();my %hash_mac = ();my %mactab = ();my $macind = 0;my $port = 0;my $w = scalar( @{$map[0]} );my $h = scalar @map;my $x = 0;my $y = 0;my $sirka = 70;my $label = "";my $bg = "";my $enab = "";my $e = "";my $mod = "";my $stat = "";my $link = "";my $flow = "";my $barva = "";my $title = "";my $popis = "";my $macinfo = "";my $macip = "";my @row = ();print "<b>$desc</b> $myip";my $speedall = `$snmpwalk -Os -c $com -v 1 $myip .1.3.6.1.2.1.2.2.1.5`;my $adminstatusall = `$snmpwalk -Os -c $com -v 1 $myip .1.3.6.1.2.1.2.2.1.7`;my $operstatusall = `$snmpwalk -Os -c $com -v 1 $myip .1.3.6.1.2.1.2.2.1.8`;my $mactable = `$snmpwalk -Os -c $com -v 1 $myip .1.3.6.1.2.1.17.4.3.1.1`;my $mactableport = `$snmpwalk -Os -c $com -v 1 $myip .1.3.6.1.2.1.17.4.3.1.2`;my $dhcpdconf = `wget -t 1 -T 1 http://$dhcp/cgi-bin/dhcp.cgi -q -O -`;# $arpn = `wget -t 1 -T 1 http://$dhcp/cgi-bin/arpn.cgi -q -O -`;foreach (split("\n",$operstatusall)) {s/^ifOperStatus\.([0-9]+) = INTEGER: (.*)$/$1 $2/;@row = split ;$pole_operstatus[$row[0]] = $row[1];}foreach (split("\n",$adminstatusall)) {s/^ifAdminStatus\.([0-9]+) = INTEGER: (.*)$/$1 $2/;@row = split ;$pole_adminstatus[$row[0]] = $row[1];}foreach (split("\n",$speedall)) {s/^ifSpeed\.([0-9]+) = Gauge32: (.*)$/$1 $2/;@row = split ;$row[1] =~ s/000000$/M/;$pole_speed[$row[0]] = $row[1];}foreach (split("\n",$mactable)) {s/ = Hex-STRING://;($macind, my $tmpmac) = split(" ", $_, 2);$tmpmac =~ s/ $//g;$tmpmac =~ s/ /:/g;$hash_mac{$macind} = $tmpmac;}foreach (split("\n",$mactableport)) {s/ = INTEGER://;($macind, $port) = split ;$macind =~ s/^mib-2\.17\.4\.3\.1\.2/mib-2.17.4.3.1.1/;if (exists $mactab{$port} ) {push @{ $mactab{$port} }, $hash_mac{$macind}; # pridam do pole k portu} else {$mactab{$port} = [ $hash_mac{$macind} ]; # zalozim nove pole pro port}}#@pole_arpn = split("\n",$arpn);$dhcpdconf =~ s/\n/ /g;$dhcpdconf =~ s/\s+/ /g;$dhcpdconf =~ s/host /\nhost /g;$dhcpdconf =~ s/}/}\n/g;$dhcpdconf =~ s/\^host //g;my @pole_dhcpdconf = split("\n",$dhcpdconf);for (@pole_dhcpdconf) {if (/^host/) {s/^host ([^\s]+) {\s*hardware\s+ethernet\s+(([0-9a-fA-F]{2}:){5}[0-9a-fA-F]{2})\s*;\s*fixed-address\s+(([0-9]{1,3}\.){3}[0-9]{1,3})\s*;\s*}/$2 $1 $4/;(my $mac, my $host, my $ip) = split;$mac =~ tr/a-f/A-F/;$pole_dhcpdhosts{$mac} = "$host $ip";}}print "<table border=1>\n";for ($y = 0; $y < $h; $y++) {print "<tr>\n";for ($x = 0; $x < $w; $x++) {$bg = "\"#FFFFFF\"";print " <td valign=top width=\"$sirka\" ";if ($port = $map[$y][$x]) {if (defined($pole_adminstatus[$port])) { $enab = $pole_adminstatus[$port]; } else { $enab = ""; }$mod = "";if (defined($pole_speed[$port])) { $stat = $pole_speed[$port]; } else { $stat = ""; }if (defined($pole_operstatus[$port])) { $link = $pole_operstatus[$port]; } else { $link = ""; }$flow = "";if ($link eq "up(1)") { $bg = "\"#00FF00\""; }}print "bgcolor=$bg>";if ($port) {if ($enab =~ /^up/) {$e = "E";} else {$e = "D";}if (defined($sw_d->{$myip}[$port])) {$label = $sw_d->{$myip}[$port];}else { $label = ""; }print "$port $label<br />$e $stat<br />\n";print "<pre>";foreach $mac (@{ $mactab{$port} }) {if (exists $pole_dhcpdhosts{$mac}) {$barva = "black";$title = "$mac " . $pole_dhcpdhosts{$mac};$popis = $pole_dhcpdhosts{$mac};} else {$barva = "red";$popis = $mac;$macinfo = `wget -t 1 -T 1 http://$dhcp/cgi-bin/macinfo.cgi?$mac -q -O -`;if ($macinfo) { ($macip) = split(" ", $macinfo, 1) } else { $macip = "none" };$title = "$mac je neznama MAC adresa! Nalezena IP : $macip";}print "<font color=$barva title=\"$title\">$popis</font><br>"};print "</pre></td>";} else {print " </td>\n";}}print "</tr>\n";}print "</table>";};