restart.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# restart.cgi
# Restart the running squid process

require './squid-lib.pl';
&ReadParse();
$whatfailed = "Failed to reconfigure squid";
$out = `$config{'squid_path'} -f $config{'squid_conf'} -k reconfigure 2>&1`;
if ($out) { &error("<pre>$out</pre>"); }
&redirect($in{'redir'});