cvs commit: qpsmtpd/lib/Qpsmtpd TcpServer.pm
[email protected] (Robert Spier)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/11/25 11:50:19
Modified: lib/Qpsmtpd TcpServer.pm
Log:
Subject: [PATCH] Use timeoutsmtpd as well as timeout
from Justin Erenkrantz and John Peacock
Revision Changes Path
1.13 +5 -1 qpsmtpd/lib/Qpsmtpd/TcpServer.pm
Index: TcpServer.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/TcpServer.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- TcpServer.pm 19 Nov 2004 08:44:24 -0000 1.12
+++ TcpServer.pm 25 Nov 2004 19:50:18 -0000 1.13
@@ -52,7 +52,11 @@
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;