create_copy.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# create_copy.cgi
# Display a form for creating a new copy

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

print "A copy share will inherit all its default values from the share\n";
print "you choose. If the source share is changed, so will the copy. <p>\n";
print "<form action=save_copy.cgi>\n";
print "<table>\n";
print "<tr> <td><b>Share to copy from:</b></td>\n";
print "<td><select name=copy>\n";
foreach $c (&list_shares()) {
	if ($c eq "global") { next; }
	print "<option>$c\n";
	}
print "</select></td> </tr>\n";
print "<tr> <td><b>New share name:</b></td>\n";
print "<td><input size=15 name=name></td> </tr>\n";
print "</table>\n";
print "<input type=submit value=Create></form><p>\n";

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