software/delete_file.cgi

   1 #!/usr/local/bin/perl
   2 # delete_file.cgi
   3 # Delete a downloaded package that is no longer needed
   4
   5 require './software-lib.pl';
   6 &ReadParse();
   7 $in{'file'} =~ /^\/tmp\/.webmin\// || &error($text{'delete_efile'});
   8 unlink($in{'file'});
   9 &redirect("");
  10