cpan/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 './cpan-lib.pl';
   6 &ReadParse();
   7 $tmp_base = $gconfig{'tempdir'} || "/tmp/.webmin";
   8 foreach $f (split(/\0/, $in{'file'})) {
   9         $f =~ /^\Q$tmp_base\E\// || &error($text{'delete_efile'});
  10         unlink($f);
  11         }
  12 &redirect("");
  13