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

require './squid-lib.pl';
&ReadParse();
$whatfailed = $text{'restart_ftrs'};
$out = &backquote_logged("$config{'squid_path'} -f $config{'squid_conf'} -k reconfigure 2>&1");
if ($out && $out !~ /warning/i) { &error("<pre>$out</pre>"); }
&webmin_log("apply");
&redirect($in{'redir'});

