index.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# index.cgi
# Display a table of icons for different types of webmin configuration

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

@wlinks = ( "edit_access.cgi", "edit_bind.cgi", "edit_log.cgi",
	    "edit_proxy.cgi", "edit_colours.cgi", "edit_mods.cgi",
	    "edit_os.cgi", "edit_lang.cgi" );
@wtitles = ( $text{'access_title'}, $text{'bind_title'},
	     $text{'log_title'}, $text{'proxy_title'},
	     $text{'colours_title'}, $text{'mods_title'},
	     $text{'os_title'}, $text{'lang_title'} );
@wicons = ( "images/access.gif", "images/bind.gif", "images/log.gif",
	    "images/proxy.gif", "images/colours.gif", "images/mods.gif",
	    "images/os.gif", "images/lang.gif" );
eval "use Net::SSLeay";
if (!$@) {
	# Add icon for SSL
	push(@wlinks, "edit_ssl.cgi");
	push(@wtitles, $text{'ssl_title'});
	push(@wicons, "images/ssl.gif");
	}
&icons_table(\@wlinks, \@wtitles, \@wicons);

print "<hr>\n";
&footer("/", $text{'index'});