index.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl

require './web-lib.pl';
&init_config();
$hostname = &get_system_hostname();
$ver = &get_webmin_version();
if ($gconfig{'real_os_type'}) {
	$ostr = "$gconfig{'real_os_type'} $gconfig{'real_os_version'}";
	}
else {
	$ostr = "$gconfig{'os_type'} $gconfig{'os_version'}";
	}
&header(&text('main_title', $ver, $hostname, $ostr),
	"images/webmin.gif", undef, undef, 1, 1,
	$gconfig{'brand'} ? $gconfig{'brand'} :
	"<a href=http://www.webmin.com/>$text{'main_homepage'}</a><br>".
	"<a href=mailto:jcameron\@webmin.com>$text{'main_feedback'}</a>");

print "<center><font size=+1>",
      &text('main_version', $ver, $hostname, $ostr),"</font></center>\n";
print "<hr><p>\n";

# generate main menu
&read_acl(\%acl);
print "<center><table cellpadding=5>\n";
opendir(DIR, ".");
$pos = 0;
$user = $ENV{'REMOTE_USER'};
foreach $d (sort { $a cmp $b } readdir(DIR)) {
	if (%minfo = &get_module_info($d)) {
		if (!&check_os_support(\%minfo)) {
			# This OS is not supported!
			next;
			}
		if (!$acl{$user,$d} && !$acl{$user,"*"}) {
			# This user has no access
			next;
			}

		if ($pos%4 == 0) { print "<tr>\n"; }
		print "<td valign=top align=center width=25%>\n";
		print "<table border><tr><td><a href=/$d/>",
		      "<img src=$d/images/icon.gif border=0></a>",
		      "</td></tr></table>\n";
		print "<a href=/$d/>$minfo{'desc'}</a></td>\n";
		if ($pos%4 == 3) { print "</tr>\n"; }
		$pos++;
		}
	}
closedir(DIR);
print "</table></center><p>\n";
print "<hr>\n";

&get_miniserv_config(\%miniserv);
if ($miniserv{'logout'}) {
	print "<div align=right><a href=logout.cgi>$text{'main_switch'}</a>",
	      "</div><br>\n";
	}