save_copy.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_copy.cgi
# Create a new, empty share that is a copy of an existing one

require './samba-lib.pl';
&ReadParse();
$whatfailed = "Failed to create copy";
if ($in{"name"} eq "global") {
	&error("The name 'global' cannot be used for a share");
	}
if (&indexof($in{"name"}, &list_shares()) >= 0) {
	&error("A share called '$in{name}' already exists");
	}
&setval("copy", $in{copy});
&create_share($in{name});
&redirect("");