PAL.C.T MINI SHELL
#!/usr/bin/perl
# Delete selected URLs from the cache
require './webmin-lib.pl';
&ReadParse();
&error_setup($text{'cache_err'});
@d = split(/\0/, $in{'d'});
@d || &error($text{'cache_enone'});
# Remove the files
foreach $d (@d) {
$d !~ /\.\./ && $d !~ /\0/ || &error($text{'cache_efile'});
&system_logged("rm -f ".quotemeta("$main::http_cache_directory/$d"));
}
&webmin_log("deletecache", undef, scalar(@d));
&redirect("cache.cgi?search=".&urlize($in{'search'}));
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`