Revision d259f7b9
Added by Hamish Coleman about 18 years ago
- ID d259f7b9b1e054c87a9d136989df79d4607a43ed
| Makefile | ||
|---|---|---|
|
else
|
||
|
WWW := $(WWW_DEBIAN)
|
||
|
endif
|
||
|
#WWW := $(WWW_PERIL)
|
||
|
|
||
|
all:
|
||
|
@echo error
|
||
| mrtg.cgi | ||
|---|---|---|
|
}
|
||
|
}
|
||
|
|
||
|
sub print_list($$$) {
|
||
|
my ($lists,$graph,$list) = @_;
|
||
|
sub print_list($$$$) {
|
||
|
my ($lists,$graph,$list,$target) = @_;
|
||
|
|
||
|
if (!defined $list) {
|
||
|
return undef;
|
||
| ... | ... | |
|
if (!defined $lists) {
|
||
|
return undef;
|
||
|
}
|
||
|
|
||
|
my @wantlist = split /,/,$list;
|
||
|
|
||
|
my @list = @{$lists->{$wantlist[0]}->{$wantlist[1]}};
|
||
| ... | ... | |
|
$ysize = $router->{ysize};
|
||
|
$xsize = $router->{xsize};
|
||
|
|
||
|
print a({-href=>$router->{name}.".html",-target=>"basefrm"},
|
||
|
print a({-href=>$router->{name}.".html",-target=>$target},
|
||
|
img{
|
||
|
-src=>$router->{name}."-$graph.".$router->{imagetype},
|
||
|
-height=>"$ysize",
|
||
| ... | ... | |
|
if ($list) {
|
||
|
print_graph_chooser($graph,$list,$page,'none');
|
||
|
print "<br/>";
|
||
|
print_list($lists,$graph,$list);
|
||
|
print_list($lists,$graph,$list,'basefrm');
|
||
|
}
|
||
|
print end_html;
|
||
|
} elsif($page eq 'menu') {
|
||
| ... | ... | |
|
if ($list) {
|
||
|
print_graph_chooser($graph,$list,$page,'noframe');
|
||
|
print "<br/>";
|
||
|
print_list($lists,$graph,param('list'));
|
||
|
print_list($lists,$graph,param('list'),'_self');
|
||
|
}
|
||
|
|
||
|
print "</table>\n";
|
||
Also available in: Unified diff
Fix up targets