edit_user.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_user.cgi
# Edit a new or existing webmin user

require './acl-lib.pl';
&ReadParse();
if ($in{'user'}) {
	&header($text{'edit_title'}, "");
	foreach $u (&list_users()) {
		if ($u->{'name'} eq $in{'user'}) {
			%user = %$u;
			last;
			}
		}
	}
else {
	&header($text{'edit_title2'}, "");
	if ($in{'clone'}) {
		foreach $u (&list_users()) {
			if ($u->{'name'} eq $in{'clone'}) {
				$user{'modules'} = $u->{'modules'};
				$user{'lang'} = $u->{'lang'};
				last;
				}
			}
		}
	}
print "<hr>\n";

print "<form action=save_user.cgi>\n";
if ($in{'user'}) {
	print "<input type=hidden name=old value=\"$user{'name'}\">\n";
	print "<input type=hidden name=oldpass value=\"$user{'pass'}\">\n";
	}
if ($in{'clone'}) {
	print "<input type=hidden name=clone value=\"$in{'clone'}\">\n";
	}
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'edit_rights'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td><b>$text{'edit_user'}</b></td>\n";
print "<td><input name=name size=25 value=\"$user{'name'}\"></td> </tr>\n";

print "<tr> <td><b>$text{'edit_pass'}</b></td> <td>\n";
printf "<input type=radio name=pass_def value=2 %s> $text{'edit_same'}\n",
	$user{'sync'} ? "checked" : "";
if ($in{'user'}) {
	printf "<input type=radio name=pass_def value=1 %s> %s\n",
		$user{'sync'} ? "" : "checked", $text{'edit_dont'};
	}
printf "<input type=radio name=pass_def value=0 %s> $text{'edit_set'}\n",
	$in{'user'} ? "" : "checked";
print "<input type=password name=pass size=25></td> </tr>\n";

print "<tr> <td><b>$text{'edit_lang'}</b></td> <td>\n";
printf "<input type=radio name=lang_def value=1 %s> %s\n",
	$user{'lang'} ? '' : 'checked', $text{'default'};
printf "<input type=radio name=lang_def value=0 %s>\n",
	$user{'lang'} ? 'checked' : '';
print "<select name=lang>\n";
foreach $l (&list_languages()) {
	printf "<option value=%s %s>%s (%s)\n",
		$l->{'lang'},
		$user{'lang'} eq $l->{'lang'} ? 'selected' : '',
		$l->{'desc'}, uc($l->{'lang'});
	}
print "</select></td> </tr>\n";

print "<tr $cb> <td valign=top><b>$text{'edit_modules'}</b></td>\n";
print "<td><table width=100%>\n";
foreach $m (&list_modules()) {
	if (!$sw) { print "<tr>\n"; }
	printf "<td><input type=checkbox name=mod value=$m %s> %s</td>\n",
		&indexof($m,@{$user{'modules'}})>=0 ? "checked" : "",
		(&module_info($m))[2];
	if ($sw) { print "<tr>\n"; }
	$sw = !$sw;
	$donemod{$m}++;
	}
print "</table></td> </tr>\n";
print "</table></td> </tr></table>\n";
foreach $m (@{$user{'modules'}}) {
	if (!$donemod{$m}) {
		print "<input type=hidden name=mod value=$m>\n";
		}
	}

print "<table width=100%> <tr>\n";
print "<td align=left><input type=submit value=$text{'save'}></td></form>\n";
if ($in{'user'}) {
	print "<form action=edit_user.cgi>\n";
	print "<input type=hidden name=clone value=\"$in{'user'}\">\n";
	print "<td align=center><input type=submit value=$text{'edit_clone'}></td></form>\n";

	print "<form action=delete_user.cgi>\n";
	print "<input type=hidden name=user value=\"$in{'user'}\">\n";
	print "<td align=right><input type=submit value=$text{'delete'}></td></form>\n";
	}
print "</tr> </table>\n";

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