Remove remnants of older name of this project :-)

git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@391 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-03-08 23:34:51 +00:00
parent 8588a066d2
commit 93e0025aae
4 changed files with 6 additions and 6 deletions

View File

@ -71,7 +71,7 @@ sub register {
sub connect_handler {
my ($self, $transaction) = @_;
if ($self->argh->can_read($self->{_args}->{'wait'})) {
if ($self->qp->can_read($self->{_args}->{'wait'})) {
$self->log(LOGNOTICE, 'remote host started talking before we said hello');
if ($self->{_args}->{'defer-reject'}) {
$self->connection->notes('earlytalker', 1);

View File

@ -42,7 +42,7 @@ sub connect_handler {
callback => sub { $self->process_a_result($dnsbl_zones{$dnsbl}, @_) },
host => "$reversed_ip.$dnsbl",
type => 'A',
client => $self->argh->input_sock,
client => $self->qp->input_sock,
);
} else {
$self->log(LOGDEBUG, "Checking $reversed_ip.$dnsbl for TXT record in the background");
@ -50,7 +50,7 @@ sub connect_handler {
callback => sub { $self->process_txt_result(@_) },
host => "$reversed_ip.$dnsbl",
type => 'TXT',
client => $self->argh->input_sock,
client => $self->qp->input_sock,
);
}
}

View File

@ -30,12 +30,12 @@ sub check_dns {
callback => sub { $self->dns_result(@_) },
host => $host,
type => "MX",
client => $self->argh->input_sock,
client => $self->qp->input_sock,
);
Danga::DNS->new(
callback => sub { $self->dns_result(@_) },
host => $host,
client => $self->argh->input_sock,
client => $self->qp->input_sock,
);
}

View File

@ -30,7 +30,7 @@ sub mail_handler {
Danga::DNS->new(
callback => sub { $self->process_result($host, $rhsbl_zones{$rhsbl}, @_) },
host => "$host.$rhsbl",
client => $self->argh->input_sock,
client => $self->qp->input_sock,
);
}
}