Cleanup now we have no fork server in this script (Brian Grossman)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@647 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2006-06-28 00:06:18 +00:00
parent bcbe52f2f8
commit 22b589859b

11
qpsmtpd
View File

@ -58,9 +58,8 @@ Options:
-h, --help : this page -h, --help : this page
--use-poll : force use of poll() instead of epoll()/kqueue() --use-poll : force use of poll() instead of epoll()/kqueue()
NB: -f and -j are mutually exclusive. If -f flag is not used the server uses NB: The server uses poll() style loops running inside J child processes. Set J
poll() style loops running inside J child processes. Set J to the number of to the number of CPUs you have at your disposal.
CPUs you have at your disposal.
EOT EOT
exit(0); exit(0);
@ -159,12 +158,6 @@ sub sig_chld {
$SIG{CHLD} = \&sig_chld; $SIG{CHLD} = \&sig_chld;
} }
sub HUNTSMAN {
$SIG{CHLD} = 'DEFAULT';
kill 'INT' => keys %childstatus;
exit(0);
}
sub run_as_server { sub run_as_server {
local $::MAXconn = $MAXCONN; local $::MAXconn = $MAXCONN;
# establish SERVER socket, bind and listen. # establish SERVER socket, bind and listen.