Revision 9e6ce1af
Added by Hamish Coleman over 17 years ago
- ID 9e6ce1affd14092cb5bf8b4204d8c6c41a20ef3f
| mrtg.cgi | ||
|---|---|---|
|
}
|
||
|
|
||
|
sub print_menutypelist() {
|
||
|
print a({-href=>"?page=none",-target=>"_top"}, "Old menu");
|
||
|
print a({-href=>"?page=none",-target=>"_top"}, "Menu Across");
|
||
|
print br;
|
||
|
print a({-href=>"?page=noframe",-target=>"_top"}, "No frames");
|
||
|
print a({-href=>"?page=noframe",-target=>"_top"}, "Menu Down");
|
||
|
print br;
|
||
|
print a({-href=>"?page=frame",-target=>"_top"}, "Basic frames");
|
||
|
print a({-href=>"?page=treenf",-target=>"_top"}, "Tree (NF)");
|
||
|
print br;
|
||
|
print a({-href=>"?page=treenf",-target=>"_top"}, "Menu (NF)");
|
||
|
print a({-href=>"?page=treeview",-target=>"_top"}, "Tree (Frames)");
|
||
|
}
|
||
|
|
||
|
my $page = param('page') || 'treenf';
|
||
| ... | ... | |
|
my @tests;
|
||
|
my $lists;
|
||
|
|
||
|
if($page eq 'frame') {
|
||
|
print "Content-type: text/html\n\n";
|
||
|
print "<html><head><title>$this_host MRTG Index (V$VERSION)</title></head>\n";
|
||
|
print '<frameset cols="200,*">';
|
||
|
print '<frame src="?page=menu" name=treeframe>';
|
||
|
print '<frame src="?page=list&list=" name=basefrm>';
|
||
|
print "</frameset>\n";
|
||
|
print "</html>\n";
|
||
|
|
||
|
} elsif($page eq 'treeview') {
|
||
|
if($page eq 'treeview') {
|
||
|
print "Content-type: text/html\n\n";
|
||
|
print "<html><head><title>$this_host MRTG Index (V$VERSION)</title></head>\n";
|
||
|
print "<script>\n";
|
||
| ... | ... | |
|
print_list($lists,$graph,$list,'basefrm');
|
||
|
}
|
||
|
print end_html;
|
||
|
} elsif($page eq 'menu') {
|
||
|
print header,
|
||
|
start_html(-TITLE=>"$this_host MRTG Index (V$VERSION)", -BGCOLOR=>'#e6e6e6'),
|
||
|
"\n";
|
||
|
|
||
|
@tests = init_tests(@config_files);
|
||
|
$lists = init_lists(@tests);
|
||
|
print_menu_table($lists,'high','basefrm','list');
|
||
|
print end_html;
|
||
|
} elsif($page eq 'treemenu') {
|
||
|
print header,
|
||
|
start_html(-TITLE=>"$this_host MRTG Index (V$VERSION)", -BGCOLOR=>'#e6e6e6'),
|
||
Also available in: Unified diff
Remove basic frames