webmin/delete_cache.cgi

   1 #!/usr/local/bin/perl
   2 # Delete selected URLs from the cache
   3
   4 require './webmin-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'cache_err'});
   7 @d = split(/\0/, $in{'d'});
   8 @d || &error($text{'cache_enone'});
   9
  10 # Remove the files
  11 foreach $d (@d) {
  12         $d !~ /\.\./ && $d !~ /\0/ || &error($text{'cache_efile'});
  13         &system_logged("rm -f ".quotemeta("$main::http_cache_directory/$d"));
  14         }
  15
  16 &webmin_log("deletecache", undef, scalar(@d));
  17 &redirect("cache.cgi?search=".&urlize($in{'search'}));
  18