stop.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# stop.cgi
# Stop the running squid process

require './squid-lib.pl';
&ReadParse();
$whatfailed = "Failed to stop squid";
$out = `$config{'squid_path'} -f $config{'squid_conf'} -k shutdown 2>&1`;
if ($out) { &error("<pre>$out</pre>"); }
for($i=0; $i<40; $i++) {
	if (!kill(0, $in{'pid'})) { last; }
	sleep(1);
	}
&redirect($in{'redir'});