edit_fperm.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_fperm.cgi
# Edit file permissions options

require './samba-lib.pl';
&ReadParse();
$s = $in{'share'};
if ($s eq "global") {
	&header("File Permissions Defaults", "");
	}
else {
	&header("Edit File Permissions", "");
	print "<center><font size=+1>For share <tt>$s</tt></font></center>\n";
	}
&get_share($s);
print "<hr>\n";

print "<form action=save_fperm.cgi>\n";
print "<input type=hidden name=old_name value=\"$s\">\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>File Permission Options</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td align=right><b>New Unix file mode</b></td>\n";
printf "<td><input name=create_mode size=5 value=\"%s\"></td>\n",
	&getval("create mode");

print "<td align=right><b>New Unix directory mode</b></td>\n";
printf "<td><input name=directory_mode size=5 value=\"%s\"></td> </tr>\n",
	&getval("directory mode");

print "<tr> <td align=right><b>Directories not to list</b></td>\n";
printf "<td colspan=3><input name=dont_descend size=40 value=\"%s\"></td>\n",
	&getval("dont descend");
print "</tr>\n";

print "<tr> <td align=right><b>Force Unix user</b></td>\n";
&username_input("force user", "None");

print "<td align=right><b>Force Unix group</b></td>\n";
&groupname_input("force group", "None");

print "<tr> <td align=right><b>Allow symlinks outside share?</b></td>\n";
print "<td>",&yesno_input("wide links"),"</td>\n";

print "<td align=right><b>Can delete readonly files?</b></td>\n";
print "<td>",&yesno_input("delete readonly"),"</td> </tr>\n";

print "<tr> <td align=right><b>Force Unix file mode</b></td>\n";
printf "<td><input name=force_create_mode size=5 value=\"%s\"></td>\n",
	&getval("force create mode");

print "<td align=right><b>Force Unix directory mode</b></td>\n";
printf "<td><input name=force_directory_mode size=5 value=\"%s\"></td> </tr>\n",
	&getval("force directory mode");

print "</table> </td></tr></table><p>\n";
print "<input type=submit value=Save></form>\n";
print "<hr>\n";
&footer("edit_fshare.cgi?share=".&urlize($s), "file share");