bsdexports/delete_export.cgi

   1 #!/usr/local/bin/perl
   2 # delete_export.cgi
   3 # Delete an existing export
   4
   5 require './bsdexports-lib.pl';
   6 &ReadParse();
   7 &lock_file($config{'exports_file'});
   8 @exps = &list_exports();
   9 &delete_export($exps[$in{'index'}]);
  10 &unlock_file($config{'exports_file'});
  11 &redirect("");
  12