% unless ($ok) {
Map data missing
Have you run netdisco -g yet?
<% $mapfile %> : <% $have_image ? "OK" : "unaccessible" %>.
netmap.map : <% $have_map ? "OK" : $! %>.
You can also do this from the Admin Panel if you have
administrative rights.
%#
% } else {
%#
%#
Map Data is <%$map_days%> days old.
% }
Key
% for(my $i = 0; $i <= $#{$left_key} || $i <= $#{$right_key}; $i++) {
% if (defined($left_key->[$i])) {
<%$left_key->[$i]->[0]%> |
<%$left_key->[$i]->[1]%> |
% } else {
|
% }
% if (defined($right_key->[$i])) {
<%$right_key->[$i]->[0]%> |
<%$right_key->[$i]->[1]%> |
% } else {
|
% }
% }
<%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 $mapfile = 'netmap.gif';
if (defined $netdisco::CONFIG{graph_png} and $netdisco::CONFIG{graph_png}){
$mapfile = 'netmap.png';
}
my $have_image = -r "$dir/$mapfile";
my $ok = ($have_map && $have_image);
if ($ok){
@map = (