#!/usr/local/bin/perl
# clear.cgi
# Delete the cache, chown the directory to the correct user and re-run squid -z
require './squid-lib.pl';
$access{'rebuild'} || &error($text{'clear_ecannot'});
&ReadParse();
$config{'cache_dir'} =~ /^\/\S+/ || &error("Cache directory not set");
$conf = &get_config();
if (!$in{'confirm'}) {
# Ask the user if he is sure
&ui_print_header(undef, $text{'clear_header'}, "");
print $text{'clear_msgclear'},"
\n";
print $text{'clear_msgclear2'},"
\n"; print "
\n"; if (&has_command($config{'squidclient'})) { # Show form to clear just one URL print &ui_hr(); print &ui_form_start("purge.cgi"); print "$text{'clear_url'}\n"; print &ui_textbox("url", undef, 50),"\n"; print &ui_submit($text{'clear_ok'}),"\n"; print &ui_form_end(); } &ui_print_footer("", $text{'clear_return'}); exit; } &ui_print_unbuffered_header(undef, $text{'clear_header'}, ""); # Stop squid (if running) if ($pidstruct = &find_config("pid_filename", $conf)) { $pidfile = $pidstruct->{'values'}->[0]; } else { $pidfile = $config{'pid_file'}; } if (open(PID, $pidfile)) {\n";
$stopped++;
}
# Get list of cache dirs
if (@cachestruct = &find_config("cache_dir", $conf)) {
if ($squid_version >= 2.3) {
@caches = map { $_->{'values'}->[1] } @cachestruct;
}
else {
@caches = map { $_->{'values'}->[0] } @cachestruct;
}
}
else { @caches = ( $config{'cache_dir'} ); }
# Delete old cache files and re-create with same permissions!
print "$text{'clear_del'}
\n";
foreach $c (@caches) {
@st = stat($c);
if (@st) {
&system_logged("rm -rf $c/* >/dev/null 2>&1");
#mkdir($c, 0755); # only remove contents
#chown($st[4], $st[5], $c);
#chmod($st[2], $c);
}
}
print "$text{'clear_done'}
\n";
$cmd = "$config{'squid_path'} -f $config{'squid_conf'} -z";
print &text('clear_init',$cmd)."
\n";
print "
\n"; &additional_log('exec', undef, $cmd); open(INIT, "$cmd 2>&1 |"); while(\n"; print "$text{'clear_done'}) { print &html_escape($_); } close(INIT); print "
\n";
# Try to re-start squid
if ($stopped) {
$temp = &transname();
&system_logged("$config{'squid_path'} -sY -f $config{'squid_conf'} >$temp 2>&1 /dev/null 2>&1");
print "$text{'clear_failrestart'}
\n";
print "
$errs\n"; } } &webmin_log("clear"); &ui_print_footer("", $text{'clear_return'});