2 # Delete a bunch of shares at once
4 require './samba-lib.pl';
6 &error_setup($text{'delete_err'});
9 @d = split(/\0/, $in{'d'});
10 @d || &error($text{'delete_enone'});
12 &lock_file($config{'smb_conf'});
14 &error("$text{'eacl_np'} $text{'eacl_pds'}")
15 unless &can('rw', \%access, $d);
16 foreach $s (&list_shares()) {
18 if (&getval("copy") eq $d) {
19 &error(&text('error_delcopy', $s));
23 &drop_samba_acl(\%access, $d);
25 &unlock_file($config{'smb_conf'});
26 &webmin_log("delete", "shares", scalar(@d));