samba/delete_share.cgi

   1 #!/usr/local/bin/perl
   2 # delete_share.cgi
   3 # Delete an existing share
   4
   5 require './samba-lib.pl';
   6 &ReadParse();
   7
   8 # check acls
   9
  10 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
  11 &error("$text{'eacl_np'} $text{'eacl_pds'}")
  12         unless &can('rw', \%access, $in{share});
  13 # delete
  14 &error_setup($text{'error_delshare'});
  15 &lock_file($config{'smb_conf'});
  16 foreach $s (&list_shares()) {
  17         &get_share($s);
  18         if (&getval("copy") eq $in{share}) {
  19                 &error(&text('error_delcopy', $s));
  20                 }
  21         }
  22 &delete_share($in{share});
  23 &drop_samba_acl(\%access, $in{share});
  24 &unlock_file($config{'smb_conf'});
  25 &webmin_log("delete", $in{'type'}, $in{share});
  26 &redirect("");
  27