proftpd/delete_ftpaccess.cgi

   1 #!/usr/local/bin/perl
   2 # delete_ftpaccess.cgi
   3 # Delete some .ftpaccess or similar file
   4
   5 require './proftpd-lib.pl';
   6 &ReadParse();
   7 &lock_file($in{'file'});
   8 unlink($in{'file'});
   9 &unlock_file($in{'file'});
  10
  11 $site{'ftpaccess'} = join(' ', (grep { $_ ne $in{'file'} } @ftpaccess_files));
  12 &write_file("$module_config_directory/site", \%site);
  13 &webmin_log("ftpaccess", "delete", $in{'file'});
  14 &redirect("ftpaccess.cgi");
  15