Subject: [PATCH] Use timeoutsmtpd as well as timeout

from Justin Erenkrantz and John Peacock


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@344 958fd67b-6ff1-0310-b445-bb7760255be9

lib/Qpsmtpd/TcpServer.pm

@@ -52,7 +52,11 @@ sub run {
 sub read_input {
   my $self = shift;
 
-  my $timeout = $self->config('timeout');
+  my $timeout =
+    $self->config('timeoutsmtpd')   # qmail smtpd control file
+      || $self->config('timeout')   # qpsmtpd control file
+        || 1200;                    # default value
+
   alarm $timeout;
   while (<STDIN>) {
     alarm 0;