From 4c4360d03896ce6298a0436832fd8449009f0682 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= Date: Wed, 16 Apr 2003 16:35:14 +0000 Subject: [PATCH] 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. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@139 958fd67b-6ff1-0310-b445-bb7760255be9 --- Changes | 2 ++ lib/Qpsmtpd/TcpServer.pm | 2 ++ 2 files changed, 4 insertions(+) diff --git a/Changes b/Changes index 6285b70..493b233 100644 --- a/Changes +++ b/Changes @@ -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 ) diff --git a/lib/Qpsmtpd/TcpServer.pm b/lib/Qpsmtpd/TcpServer.pm index 9ff6eb8..bf0f798 100644 --- a/lib/Qpsmtpd/TcpServer.pm +++ b/lib/Qpsmtpd/TcpServer.pm @@ -15,6 +15,8 @@ sub start_connection { 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,