edit_fname.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_fname.cgi
# Edit file naming options

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

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

print "<tr> <td align=right><b>Mangle Case?</b></td>\n";
print "<td>",&yesno_input("mangle case"),"</td>\n";

print "<td align=right><b>Case Sensitive?</b></td>\n";
print "<td>",&yesno_input("case sensitive"),"</td> </tr>\n";

print "<tr> <td align=right><b>Default Case?</b></td>\n";
printf "<td><input type=radio name=default_case value=lower %s> Lower\n",
	&getval("default case") =~ /lower/i ? "checked" : "";
printf "<input type=radio name=default_case value=upper %s> Upper</td>\n",
	&getval("default case") =~ /upper/i ? "checked" : "";

print "<td align=right><b>Preserve Case?</b></td>\n";
print "<td>",&yesno_input("preserve case"),"</td> </tr>\n";

print "<tr> <td align=right><b>Short Preserve Case?</b></td>\n";
print "<td>",&yesno_input("short preserve case"),"</td>\n";

print "<td align=right><b>Hide dot files?</b></td>\n";
print "<td>",&yesno_input("hide dot files"),"</td> </tr>\n";

print "<tr> <td align=right><b>Save DOS archive flag?</b></td>\n";
print "<td>",&yesno_input("map archive"),"</td>\n";

print "<td align=right><b>Save DOS hidden flag?</b></td>\n";
print "<td>",&yesno_input("map hidden"),"</td> </tr>\n";

print "<tr> <td align=right><b>Save DOS system flag?</b></td>\n";
print "<td>",&yesno_input("map system"),"</td>\n";

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");