index.cgi

Unix下基于Web的管理工具

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

require './net-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1);
print "<hr>\n";

@links =  ( "list_ifcs.cgi", "list_routes.cgi",
	    "edit_dns.cgi", "list_hosts.cgi" );
@titles = ( $text{'ifcs_title'}, $text{'routes_title'},
	    $text{'dns_title'}, $text{'hosts_title'} );
@icons =  ( "images/ifcs.gif", "images/routes.gif",
	    "images/dns.gif", "images/hosts.gif" );
&icons_table(\@links, \@titles, \@icons);
print "<hr>\n";
&footer("/", $text{'index'});