edit_authuser.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_authuser.cgi
# Display a form for editing a user from a text file

require './apache-lib.pl';
require './auth-lib.pl';

&ReadParse();
&allowed_auth_file($in{'file'}) ||
	&error(&text('authu_ecannot', $in{'file'}));
if (defined($in{'user'})) {
	# editing an existing user
	&header($text{'authu_edit'}, "");
	$u = &get_authuser($in{'file'}, $in{'user'});
	$user = $u->{'user'};
	$pass = $u->{'pass'};
	$new = 0;
	}
else {
	# creating a new user
	&header($text{'authu_create'}, "");
	$new = 1;
	}
print "<center><font size=+2>",&text('authu_header', "<tt>$in{'file'}</tt>"),
      "</font></center>\n";
print "<hr>\n";

print "<form method=post action=save_authuser.cgi>\n";
print "<input type=hidden name=file value=\"$in{'file'}\">\n";
print "<input type=hidden name=url value=\"$in{'url'}\">\n";
if (!$new) { print "<input type=hidden name=olduser value=$in{'user'}>\n"; }
print "<table border> <tr $tb><td colspan=2><b>",
      ($new ? $text{'authu_create'} : $text{'authu_edit'}),"</b></td> </tr>\n";
print "<tr $cb> <td><b>$text{'authu_user'}</b></td>\n";
print "<td><input name=user size=20 value=\"$user\"></td> </tr>\n";
print "<tr $cb> <td><b>$text{'authu_pass'}</b></td>\n";
if ($new) {
	print "<td><input type=password name=pass size=20></td> </tr>\n";
	}
else {
	print "<td><input type=radio name=pass_def value=1 checked>\n";
	print "$text{'authu_dont'}&nbsp;\n";
	print "<input type=radio name=pass_def value=0> $text{'authu_set'}\n";
	print "<input type=password name=pass size=20></td> </tr>\n";
	}
print "</table><p>\n";
print "<input type=submit value='$text{'save'}'>\n";
print "&nbsp; <input type=submit value='$text{'delete'}' name=delete>\n"
	if (!$new);
print "</form>\n";

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