delete_share.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# delete_share.cgi
# Delete an existing share

require './samba-lib.pl';
&ReadParse();
$whatfailed = "Failed to delete share";
foreach $s (&list_shares()) {
	&get_share($s);
	if (&getval("copy") eq $in{share}) {
		&error("The share '$s' copies from this share");
		}
	}
&delete_share($in{share});
&redirect("");