conf_pass.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# conf_pass.cgi
# Display password options options

require './samba-lib.pl';
&header("Password Options", "");
print "<hr>\n";

&get_share("global");

print "<form action=save_pass.cgi>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>Password Options</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
print "<tr> <td><b>Use encrypted passwords?</b></td>\n";
printf "<td><input type=radio name=encrypt_passwords value=yes %s> Yes\n",
	&istrue("encrypt passwords") ? "checked" : "";
printf "&nbsp; <input type=radio name=encrypt_passwords value=no %s> No</td>\n",
	&istrue("encrypt passwords") ? "" : "checked";

print "<td><b>Allow null passwords?</b></td>\n";
printf "<td><input type=radio name=null_passwords value=yes %s> Yes\n",
	&istrue("null passwords") ? "checked" : "";
printf "$gap <input type=radio name=null_passwords value=no %s> No</td></tr>\n",
	&istrue("null passwords") ? "" : "checked";

print "<tr> <td><b>Password program</b></td>\n";
printf "<td><input type=radio name=passwd_program_def value=1 %s> Default\n",
	&getval("passwd program") eq "" ? "checked" : "";
printf "<input type=radio name=passwd_program_def value=0 %s>\n",
	&getval("passwd program") eq "" ? "" : "checked";
printf "<input size=15 name=passwd_program value=\"%s\"></td>\n",
	&getval("passwd program");

print "<td><b>Password case difference</b></td>\n";
printf "<td><input name=password_level size=4 value=\"%d\"></td> </tr>\n",
	&getval("password level");

print "<tr> <td valign=top><b>Change password chat</b></td>\n";
print "<td colspan=3>\n";
printf "<input type=radio name=passwd_chat_def value=1 %s> Default\n",
	&getval("passwd chat") eq "" ? "checked" : "";
printf "<input type=radio name=passwd_chat_def value=0 %s> Listed below:<br>\n",
	&getval("passwd chat") eq "" ? "" : "checked";
print "<table border> <tr><td><b>Wait for</b></td> <td><b>Send</b></td></tr>\n";
$pc = &getval("passwd chat");
while($pc =~ /^"([^"]*)"\s*(.*)/ || $pc =~ /^(\S+)\s*(.*)/) {
	if ($send) { push(@send, $1); $send = 0; }
	else { push(@recv, $1); $send = 1; }
	$pc = $2;
	}
for($i=0; $i<(@recv < 5 ? 5 : @recv+1); $i++) {
	printf "<tr><td><input name=chat_recv_$i value=\"%s\" size=20></td>\n",
		$recv[$i] eq "." ? "" : $recv[$i];
	printf "<td><input name=chat_send_$i value=\"%s\" size=20></td></tr>\n",
		$send[$i];
	}
print "</table></td> </tr>\n";

print "<tr> <td valign=top><b>Username mapping</b></td>\n";
print "<td colspan=3>\n";
printf "<input type=radio name=username_map_def value=1 %s> None\n",
	&getval("username map") eq "" ? "checked" : "";
printf"<input type=radio name=username_map_def value=0 %s> Listed below:<br>\n",
	&getval("username map") eq "" ? "" : "checked";
print "<table border> <tr><td><b>Unix User</b></td>\n";
print "                   <td><b>Windows Users</b></td></tr>\n";
open(UMAP, &getval("username map"));
while(<UMAP>) {
	chop; s/[#;].*$//g;
	if (!/^\s*(\S+)\s*=\s*(.*)$/) { next; }
	push(@uunix, $1); push(@uwin, $2);
	}
close(UMAP);
for($i=0; $i<@uunix+1; $i++) {
	printf "<tr> <td><input name=umap_unix_$i size=8 value=\"%s\"></td>\n",
		$uunix[$i];
	printf "<td><input name=umap_win_$i size=30 value=\"%s\"></td> </tr>\n",
		$uwin[$i];
	}
print "</table></td> </tr>\n";

print "</table></td></tr></table><p>\n";
print "<input type=submit value=Save></form><p>\n";

print "<hr>\n";
&footer("", "share list");