bsdexports/delete_exports.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple exports
   3
   4 require './bsdexports-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'delete_err'});
   7 @d = split(/\0/, $in{'d'});
   8 @d || &error($text{'delete_enone'});
   9
  10 &lock_file($config{'exports_file'});
  11 @exps = &list_exports();
  12 foreach $d (sort { $b <=> $a } @d) {
  13         &delete_export($exps[$d]);
  14         }
  15 &unlock_file($config{'exports_file'});
  16 &redirect("");
  17