index.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# index.cgi
# List all webmin users

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

@ulist = &list_users();
foreach $m (&list_modules()) {
	@minfo = &module_info($m);
	$modname{$m} = $minfo[2];
	}
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'index_user'}</b></td>\n";
print "<td><b>$text{'index_modules'}</b></td> </tr>\n";
foreach $u (@ulist) {
	print "<tr $cb>\n";
	printf "<td valign=top><a href=\"edit_user.cgi?user=%s\">%s</a></td>\n",
		&urlize($u->{'name'}), $u->{'name'};
	print "<td><table width=100%>\n";
	$sw = 0;
	foreach $m (@{$u->{'modules'}}) {
		if ($modname{$m}) {
			if (!$sw) { print "<tr>\n"; }
			print "<td width=50%><a href='edit_acl.cgi?mod=",
			      &urlize($m),"&user=",&urlize($u->{'name'}),
			      "'>$modname{$m}</a></td>\n";
			if ($sw) { print "<tr>\n"; }
			$sw = !$sw;
			}
		}
	print "</td></table> </tr>\n";
	}
print "</table>\n";
print "<a href=edit_user.cgi>$text{'index_create'}</a>. <p>\n";

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