hier ist das cgi-script welches webmin ausführt um den cache zu leeren, evtl. hilft dir das ja weiter...
#!/usr/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();
$| = 1;
$theme_no_table = 1;
$config{'cache_dir'} =~ /^\/\S+/ || &error("Cache directory not set");
&ui_print_header(undef, $text{'clear_header'}, "");
$conf = &get_config();
if (!$in{'confirm'}) {
print $text{'clear_msgclear'},"<br>\n";
print $text{'clear_msgclear2'},"<br>\n";
print "<form action=clear.cgi>\n";
print "<center><input type=submit name=confirm ",
"value=\"$text{'clear_buttclear'}\"></center></form>\n";
&ui_print_footer("", $text{'clear_return'});
exit;
}
# Stop squid (if running)
if ($pidstruct = &find_config("pid_filename", $conf)) {
$pidfile = $pidstruct->{'values'}->[0];
}
else { $pidfile = $config{'pid_file'}; }
if (open(PID, $pidfile)) {
<PID> =~ /(\d+)/; $pid = $1;
close(PID);
}
if ($pid && kill(0, $pid)) {
print "<p>$text{'clear_stop'}<br>\n";
&system_logged("$config{'squid_path'} -f $config{'squid_conf'} ".
"-k shutdown >/dev/null 2>&1");
for($i=0; $i<40; $i++) {
if (!kill(0, $pid)) { last; }
sleep(1);
}
print "$text{'clear_done'}<br>\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 "<p>$text{'clear_del'}<br>\n";
foreach $c (@caches) {
@st = stat($c);
if (@st) {
&system_logged("rm -rf $c >/dev/null 2>&1");
mkdir($c, 0755);
chown($st[4], $st[5], $c);
chmod($st[2], $c);
}
}
print "$text{'clear_done'}<br>\n";
$cmd = "$config{'squid_path'} -f $config{'squid_conf'} -z";
print "<p>".&text('clear_init',$cmd)."<br>\n";
print "<pre>\n";
&additional_log('exec', undef, $cmd);
open(INIT, "$cmd 2>&1 |");
while(<INIT>) {
print &html_escape($_);
}
close(INIT);
print "</pre>\n";
print "$text{'clear_done'}<br>\n";
# Try to re-start squid
if ($stopped) {
$temp = &tempname();
&system_logged("$config{'squid_path'} -sY -f $config{'squid_conf'} >$temp 2>&1 </dev/null &");
sleep(3);
$errs = `cat $temp`;
unlink($temp);
if ($errs) {
&system_logged("$config{'squid_path'} -k shutdown -f $config{'squid_conf'} >/dev/null 2>&1");
print "$text{'clear_failrestart'}<br>\n";
print "<pre>$errs</pre>\n";
}
}
&webmin_log("clear");
&ui_print_footer("", $text{'clear_return'});