fix dx and import_cmd problems

[spider.git] / cmd / dx.pl

diff --git a/cmd/dx.pl b/cmd/dx.pl
index d8dd56cbbd7ee76bf0507242d3eea7d9d8ee1ead..18687a6843b5780758010684d68d8c9d3e8efaad 100644 (file)
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -122,9 +122,11 @@ return (1, @out) unless $valid;
 
 my $ipaddr;
 
-if ($self->conn->peerhost) {
+if ($self->conn && $self->conn->peerhost) {
        my $addr = $self->conn->peerhost;
        $ipaddr = $addr unless !is_ipaddr($addr) || $addr =~ /^127\./ || $addr =~ /^::[0-9a-f]+$/;
+} elsif ($self->inscript) {
+       $ipaddr = "script";
 }
 
 # Store it here (but only if it isn't baddx)