stop.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 19 行

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

require './sendmail-lib.pl';
&ReadParse();
$access{'stop'} || &error("You are not allowed to stop sendmail");
$whatfailed = "Failed to stop sendmail";
if ($config{'sendmail_stop_command'}) {
	$out = `$config{'sendmail_stop_command'} </dev/null 2>&1`;
	if ($?) { &error("<tt>$out</tt>"); }
	}
else {
	kill('KILL', $in{'pid'});
	unlink($config{'sendmail_pid'});
	}
&redirect("");