PAL.C.T MINI SHELL
#!/usr/bin/perl
# restart.cgi
# Send a SIGHUP to apache
require './apache-lib.pl';
&ReadParse();
&error_setup($text{'restart_err'});
$access{'apply'} || &error($text{'restart_ecannot'});
$conf = &get_config();
if ($config{'test_config'}) {
$err = &test_config();
&error("<pre>".&html_escape($err)."</pre>") if ($err);
}
$err = &restart_apache();
&error($err) if ($err);
# Check if restart was successful.. some config file error may have caused it
# to silently fail
for($i=0; $i<5; $i++) {
if (&is_apache_running()) {
$running = 1;
last;
}
sleep(1);
}
if (!$running) {
# Not running.. find out why
$errorlogstr = &find_directive_struct("ErrorLog", $conf);
$errorlog = $errorlogstr ? $errorlogstr->{'words'}->[0]
: "logs/error_log";
if ($errorlog eq 'syslog' || $errorlog =~ /^\|/) {
&error($text{'restart_eunknown'});
}
else {
$errorlog = &server_root($errorlog, $conf);
$out = `tail -5 $errorlog`;
&error("<pre>$out</pre>");
}
}
&webmin_log("apply");
&redirect($in{'redir'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`