byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TcpServer: don't 'use parent Qpsmtpd::Base'

Browse Source 
it breaks stuff. Instead, grab a base object and use it
This commit is contained in:
Matt Simerson 2015-01-29 00:15:43 -08:00
parent 98d148a0bf
commit cad4f2b1d6
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Qpsmtpd/TcpServer.pm
View File

@ -5,10 +5,12 @@ use POSIX ();
use Socket;
use lib 'lib';
use Qpsmtpd::Base;
use Qpsmtpd::Constants;
use parent 'Qpsmtpd::Base';
use parent 'Qpsmtpd::SMTP';
my $base = Qpsmtpd::Base->new();
my $has_ipv6 = 0;
if (
eval { require Socket6; } &&
@ -55,7 +57,7 @@ sub conn_info_inetd {
my ($r_port, $iaddr) = sockaddr_in($hersockaddr);
my $r_ip = inet_ntoa($iaddr);
my ($r_host) = $self->resolve_ptr($r_ip) || "[$r_ip]";
my ($r_host) = $base->resolve_ptr($r_ip) || "[$r_ip]";
return (
local_ip => '',
@ -193,7 +195,9 @@ sub tcpenv {
return $TCPLOCALIP, $TCPREMOTEIP,
$TCPREMOTEIP ? "[$ENV{TCPREMOTEIP}]" : "[noip!]";
}
my ($TCPREMOTEHOST) = $self->resolve_ptr($TCPREMOTEIP) || 'Unknown';
my ($TCPREMOTEHOST) = $base->resolve_ptr($TCPREMOTEIP);
$TCPREMOTEHOST ||= 'Unknown';
return $TCPLOCALIP, $TCPREMOTEIP, $TCPREMOTEHOST;
}