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
This commit is contained in:
parent
933d76ecf9
commit
4c4360d038
2
Changes
2
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 <risko@risko.hu>)
|
||||
|
||||
|
@ -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,
|
||||
|
Loading…
Reference in New Issue
Block a user