edit_euser.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_euser.cgi
# Edit an existing samba user

require './samba-lib.pl';
&ReadParse();
&header("Edit Samba User", "");
@ulist = &list_users();
$u = $ulist[$in{'idx'}];
print "<hr>\n";

print "<form action=save_euser.cgi>\n";
print "<input type=hidden name=idx value=\"$in{'idx'}\">\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>Edit Samba User</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td align=right><b>Username</b></td>\n";
print "<td><font size=+1><i>$u->{'name'}</i></font></td>\n";

print "<td align=right><b>Unix UID</b></td>\n";
print "<td><input name=uid size=5 value=\"$u->{'uid'}\"></td> </tr>\n";

print "<tr> <td align=right><b>Password</b></td>\n";
$locked = ($u->{'pass1'} eq ("X" x 32));
$nopass = ($u->{'pass1'} =~ /^NO PASSWORD/);
printf "<td colspan=3><input type=radio name=ptype value=0 %s> No access\n",
	$locked ? "checked" : "";
printf "<input type=radio name=ptype value=1 %s> No password\n",
	$nopass ? "checked" : "";
printf "<input type=radio name=ptype value=2 %s> Current password\n",
	$locked||$nopass ? "" : "checked";
print "<input type=radio name=ptype value=3> New password\n";
print "<input type=password name=pass size=20></td> </tr>\n";

if (!$u->{'opts'}) {
	# Old-style samba user
	print "<tr> <td align=right><b>Real name</b></td> <td colspan=3>\n";
	print "<input name=realname size=40 value='$u->{'real'}'></td> </tr>\n";

	print "<tr> <td align=right><b>Home directory</b></td>\n";
	print "<td><input name=homedir size=30 value='$u->{'home'}'></td>\n";

	print "<td align=right><b>Shell</b></td>\n";
	printf "<td><input name=shell size=15 value='%s'></td> </tr>\n",
		$u->{'shell'};
	}
else {
	# New-style samba user
	print "<input type=hidden name=new value=1>\n";
	map { $opt{uc($_)}++ } @{$u->{'opts'}};
	print "<tr> <td valign=top><b>User options</b></td> <td colspan=3>\n";
	@ol = ("Normal user", "U", "No password required", "N",
	       "Account disabled", "D", "Workstation trust account", "W");
	for($i=0; $i<@ol; $i+=2) {
		printf "<input type=checkbox name=opts value=%s %s> %s<br>\n",
			$ol[$i+1], $opt{$ol[$i+1]} ? "checked" : "", $ol[$i];
		delete($opt{$ol[$i+1]});
		}
	foreach $oo (keys %opt) {
		print "<input type=hidden name=opts value=$oo>\n";
		}
	print "</td> </tr>\n";
	}

print "</table></td></tr></table>\n";
print "<table width=100%>\n";
print "<tr> <td><input type=submit value=Save></td>\n";
print "</form><form action=\"delete_euser.cgi\">\n";
print "<input type=hidden name=idx value=\"$in{'idx'}\">\n";
print "<td align=right><input type=submit value=Delete></td> </tr>\n";
print "</form></table><p>\n";

print "<hr>\n";
&footer("edit_epass.cgi", "users list");