% unless ($ok) {

Map data missing

Have you run netdisco -g yet?

netmap.gif : <% $have_gif ? "OK" : "unaccessible" %>.
netmap.map : <% $have_map ? "OK" : $! %>.

You can also do this from the Admin Panel if you have administrative rights. %# % } else { %# %# % foreach my $line (@map){ <%$line%> % }
Map Data is <%$map_days%> days old. % }

Key

[dev] Yellow Border - ResNet -------- Green Lines - WAN
[cat] Blue Box - Catalyst Device ------- Thin lines - 10Mbps
[dev-g] Green Box - Gateway / Router ===== Thick Lines - 100Mbps
[bad-dev] Red Box - Device unaccessable ===== Cyan Lines - 1.0 Gpbs
<%init> my $comp = $m->current_comp; my $dir = $comp->source_dir; my $have_map = open (MAP, "< $dir/netmap.map"); my (@map, $map_age, $secs_per_day, $map_days); my $have_gif = -r "$dir/netmap.gif"; my $ok = ($have_map && $have_gif); if ($ok){ @map = (); close (MAP); $map_age = (stat("$dir/netmap.gif"))[9]; $map_age = time - $map_age; $secs_per_day = 60*60*24; $map_days = sprintf("%-2.2f", $map_age/$secs_per_day); } <%method title> - Network Map UCSC \ %# $Id: netmap.html,v 1.5 2004/11/15 21:33:17 maxbaker Exp $ %# vim:syntax=mason