| Rev 10 |
|
Rev 12 |
| Line 182... |
|
Line 182... |
my $macinfo = ""; |
|
my $macinfo = ""; |
my $macip = ""; |
|
my $macip = ""; |
my $hip = ""; |
|
my $hip = ""; |
my @row = (); |
|
my @row = (); |
|
|
|
print "<b>$desc</b> $myip"; |
|
print "<b>$desc</b> <a href=http:\/\/$myip>$myip</a>"; |
|
|
|
my $speedall = `$snmpwalk -Os -c $com -v 2c $myip .1.3.6.1.2.1.2.2.1.5`; |
|
my $speedall = `$snmpwalk -Os -c $com -v 2c $myip .1.3.6.1.2.1.2.2.1.5`; |
my $adminstatusall = `$snmpwalk -Os -c $com -v 2c $myip .1.3.6.1.2.1.2.2.1.7`; |
|
my $adminstatusall = `$snmpwalk -Os -c $com -v 2c $myip .1.3.6.1.2.1.2.2.1.7`; |
my $operstatusall = `$snmpwalk -Os -c $com -v 2c $myip .1.3.6.1.2.1.2.2.1.8`; |
|
my $operstatusall = `$snmpwalk -Os -c $com -v 2c $myip .1.3.6.1.2.1.2.2.1.8`; |
my $mactable = `$snmpwalk -Os -c $com -v 2c $myip atPhysAddress`; |
|
my $mactable = `$snmpwalk -Os -c $com -v 2c $myip atPhysAddress`; |
| Line 266... |
|
Line 266... |
if ($enab =~ /^up/) {$e = "E";} else {$e = "D";} |
|
if ($enab =~ /^up/) {$e = "E";} else {$e = "D";} |
if (defined($sw_d->{$myip}[$port])) {$label = $sw_d->{$myip}[$port];} |
|
if (defined($sw_d->{$myip}[$port])) {$label = $sw_d->{$myip}[$port];} |
else { $label = ""; } |
|
else { $label = ""; } |
$hip = $myip; |
|
$hip = $myip; |
$hip =~ s/\./_/g; |
|
$hip =~ s/\./_/g; |
print_port_graph("10.33.0.74","${hip}_port${port}.html","${hip}_port${port}-day.png","$myip port $port $label","$port $label"); |
|
print_port_graph("$dhcp","${hip}_port${port}.html","${hip}_port${port}-day.png","$myip port $port $label","$port $label"); |
print "<br />$e $stat<br />\n"; |
|
print "<br />$e $stat<br />\n"; |
print "<pre>"; |
|
print "<pre>"; |
foreach $mac (@{ $mactab{$port} }) { |
|
foreach $mac (@{ $mactab{$port} }) { |
if (exists $pole_dhcpdhosts{$mac}) { |
|
if (exists $pole_dhcpdhosts{$mac}) { |
$barva = "black"; |
|
$barva = "black"; |
