dfsadmin/delete_share.cgi

   1 #!/usr/local/bin/perl
   2 # delete_share.cgi
   3 # Delete a share
   4
   5 require './dfs-lib.pl';
   6 $access{'view'} && &error($text{'ecannot'});
   7 &ReadParse();
   8 @shlist = &list_shares();
   9 $share = $shlist[$in{'idx'}];
  10 &lock_file($config{'dfstab_file'});
  11 &delete_share($share);
  12 &unlock_file($config{'dfstab_file'});
  13 &webmin_log("delete", "share", $share->{'dir'});
  14 &redirect("");
  15