#!/usr/local/bin/perl
# index.cgi
# Display a menu of various network screens

require './net-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("ifconfig hosts resolve.conf nsswitch.conf", "man"));
print "<hr>\n";

foreach $i ('ifcs', 'routes', 'dns', 'hosts') {
	if ($access{$i}) {
		push(@links, "list_${i}.cgi");
		push(@titles, $text{"${i}_title"});
		push(@icons, "images/${i}.gif");
		}
	}
&icons_table(\@links, \@titles, \@icons);
print "<hr>\n";
&footer("/", $text{'index'});

