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

More fields work

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@649 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2006-06-28 23:27:40 +00:00
parent 22b589859b
commit b000e35bf9
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/Danga/DNS/Resolver.pm
View File

@ -303,7 +303,7 @@ sub new {
#} #}
sub timeout { sub timeout {
my $self = shift; my Danga::DNS::Resolver::Query $self = shift;
trace(2, "NS Query timeout. Trying next host\n"); trace(2, "NS Query timeout. Trying next host\n");
if ($self->send_query) { if ($self->send_query) {
@ -329,7 +329,8 @@ sub timeout {
} }
sub error { sub error {
my ($self, $error) = @_; my Danga::DNS::Resolver::Query $self = shift;
my ($error) = @_;
trace(2, "NS Query error. Trying next host\n"); trace(2, "NS Query error. Trying next host\n");
if ($self->send_query) { if ($self->send_query) {
@ -355,13 +356,13 @@ sub error {
} }
sub run_callback { sub run_callback {
my ($self, $response) = @_; my Danga::DNS::Resolver::Query $self = shift;
trace(2, "NS Query callback($self->{host} = $response\n"); trace(2, "NS Query callback($self->{host} = $_[0]\n");
$self->{asker}->run_callback($response, $self->{host}); $self->{asker}->run_callback($_[0], $self->{host});
} }
sub send_query { sub send_query {
my ($self) = @_; my Danga::DNS::Resolver::Query $self = shift;
my $dst = $self->{resolver}->ns($self->{ns}++); my $dst = $self->{resolver}->ns($self->{ns}++);
return unless defined $dst; return unless defined $dst;