start.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# start.cgi
# Start squid

require './squid-lib.pl';
use POSIX;
&ReadParse();
$whatfailed = "Failed to start squid";
$temp = &tempname();
system("$config{'squid_path'} -sY -f $config{'squid_conf'} >$temp 2>&1 </dev/null &");
sleep(3);
$errs = `cat $temp`;
unlink($temp);
if ($errs) {
	`$config{'squid_path'} -k shutdown -f $config{'squid_conf'} 2>&1 </dev/null`;
	&error("<pre>$errs</pre>");
	}
&redirect($in{'redir'});