cvs commit: qpsmtpd/lib/Qpsmtpd TcpServer.pm
[email protected] (Ask Bjoern Hansen)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 03/04/16 09:35:14
Modified: . Changes
lib/Qpsmtpd TcpServer.pm
Log:
Set the process name to "qpsmtpd [1.2.3.4 : host.name.tld]"
is it possible to embed ANSI escape codes in a hostname? Hmn, probably not.
Revision Changes Path
1.40 +2 -0 qpsmtpd/Changes
Index: Changes
===================================================================
RCS file: /cvs/public/qpsmtpd/Changes,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -w -r1.39 -r1.40
--- Changes 15 Apr 2003 18:10:44 -0000 1.39
+++ Changes 16 Apr 2003 16:35:14 -0000 1.40
@@ -1,5 +1,7 @@
0.26-dev
+ Set the process name to "qpsmtpd [1.2.3.4 : host.name.tld]"
+
Fixed timeout bug when the client sent DATA and then stopped before
sending the next line. (Gergely Risko <[email protected]>)
1.7 +2 -0 qpsmtpd/lib/Qpsmtpd/TcpServer.pm
Index: TcpServer.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/TcpServer.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- TcpServer.pm 15 Apr 2003 17:01:43 -0000 1.6
+++ TcpServer.pm 16 Apr 2003 16:35:14 -0000 1.7
@@ -15,6 +15,8 @@
my $remote_info = $ENV{TCPREMOTEINFO} ? "$ENV{TCPREMOTEINFO}\@$remote_host" : $remote_host;
my $remote_ip = $ENV{TCPREMOTEIP};
+ $0 = "$0 [$remote_ip : $remote_host]";
+
$self->SUPER::connection->start(remote_info => $remote_info,
remote_ip => $remote_ip,
remote_host => $remote_host,