#!/usr/local/bin/perl# index.cgi# List all webmin usersrequire './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'});