diff --git a/lib/DJabberd/Connection/ServerIn.pm b/lib/DJabberd/Connection/ServerIn.pm index bb64c2d..b1dba71 100644 --- a/lib/DJabberd/Connection/ServerIn.pm +++ b/lib/DJabberd/Connection/ServerIn.pm @@ -110,8 +110,10 @@ sub dialback_verify_valid { } sub dialback_verify_invalid { - my ($self, $reason) = @_; - warn "Dialback verify invalid for $self, reason: $reason\n"; + my $self = shift; + my %opts = @_; + + $self->log->warn("Dialback verify invalid for $self, from $opts{orig_server} to $opts{recv_server}, reason: $opts{reason}"); $self->close_stream; } @@ -127,8 +129,10 @@ sub dialback_result_valid { } sub dialback_result_invalid { - my ($self, $reason) = @_; - $self->log->warn("Dialback result invalid for $self, reason: $reason"); + my $self = shift; + my %opts = @_; + + $self->log->warn("Dialback result invalid for $self, from $opts{orig_server} to $opts{recv_server}, reason: $opts{reason}"); $self->close_stream; } diff --git a/lib/DJabberd/Stanza/DialbackResult.pm b/lib/DJabberd/Stanza/DialbackResult.pm index 332a033..4be29ab 100644 --- a/lib/DJabberd/Stanza/DialbackResult.pm +++ b/lib/DJabberd/Stanza/DialbackResult.pm @@ -43,7 +43,9 @@ sub process { }, fail => sub { my ($self_cb, $reason) = @_; - $conn->dialback_result_invalid($reason);; + $conn->dialback_result_invalid(reason => $reason, + orig_server => $orig_server, + recv_server => $recv_server); }, }); # async DNS lookup diff --git a/lib/DJabberd/Stanza/DialbackVerify.pm b/lib/DJabberd/Stanza/DialbackVerify.pm index 9c84868..9a3c741 100644 --- a/lib/DJabberd/Stanza/DialbackVerify.pm +++ b/lib/DJabberd/Stanza/DialbackVerify.pm @@ -53,7 +53,8 @@ sub process { }, on_failure => sub { $logger->warn("Dialback verify success for connection $conn->{id}"); - $conn->dialback_verify_invalid; + $conn->dialback_verify_invalid(recv_server => $self->recv_server, + orig_server => $self->orig_server); }); }