jablonka.czprosek.czf

switches

Subversion Repositories:
[/] [switches.cgi] - Diff between revs 13 and 15

Show entire file Ignore whitespace

Rev 13 Rev 15
Line 257... Line 257...
if (defined($pole_adminstatus[$port])) { $enab = $pole_adminstatus[$port]; } else { $enab = ""; } if (defined($pole_adminstatus[$port])) { $enab = $pole_adminstatus[$port]; } else { $enab = ""; }
$mod = ""; $mod = "";
if (defined($pole_speed[$port])) { $stat = $pole_speed[$port]; } else { $stat = ""; } if (defined($pole_speed[$port])) { $stat = $pole_speed[$port]; } else { $stat = ""; }
if (defined($pole_operstatus[$port])) { $link = $pole_operstatus[$port]; } else { $link = ""; } if (defined($pole_operstatus[$port])) { $link = $pole_operstatus[$port]; } else { $link = ""; }
$flow = ""; $flow = "";
if ($link eq "up(1)") { $bg = "\"#FFFF00\""; } if ($enab eq "up(1)") { $bg = "\"#FFFFFF\""; } else { $bg = "\"#FF0000\""; }
if ($stat eq "1000M") { $bg = "\"#00FF00\""; } if ($link eq "up(1)") {
  if ($stat eq "1000M") { $bg = "\"#00FF00\""; } else { $bg = "\"#FFFF00\""; }
  }
} }
print "bgcolor=$bg>"; print "bgcolor=$bg>";
if ($port) { if ($port) {
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];}

Powered by WebSVN 2.2.1