extend the Web interface protocol further

[spider.git] / cmd / dx.pl

diff --git a/cmd/dx.pl b/cmd/dx.pl
index 18687a6843b5780758010684d68d8c9d3e8efaad..3fd00e6bb1bce1a4e56169f231d3a378095f2331 100644 (file)
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -123,7 +123,7 @@ return (1, @out) unless $valid;
 my $ipaddr;
 
 if ($self->conn && $self->conn->peerhost) {
-       my $addr = $self->conn->peerhost;
+       my $addr = $self->hostname;
        $ipaddr = $addr unless !is_ipaddr($addr) || $addr =~ /^127\./ || $addr =~ /^::[0-9a-f]+$/;
 } elsif ($self->inscript) {
        $ipaddr = "script";