dfsadmin/delete_shares.cgi

   1 #!/usr/local/bin/perl
   2 # Delete several shares at once
   3
   4 require './dfs-lib.pl';
   5 &error_setup($text{'delete_err'});
   6 $access{'view'} && &error($text{'ecannot'});
   7 &ReadParse();
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'delete_enone'});
  10
  11 &lock_file($config{'dfstab_file'});
  12 @shlist = &list_shares();
  13 foreach $d (sort { $b <=> $a } @d) {
  14         $share = $shlist[$d];
  15         &delete_share($share);
  16         }
  17 &unlock_file($config{'dfstab_file'});
  18 &webmin_log("delete", "shares", scalar(@d));
  19 &redirect("");
  20