projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
nominally working JSON Storable DXUser replacement
[spider.git]
/
cmd
/
dx.pl
diff --git
a/cmd/dx.pl
b/cmd/dx.pl
index d8dd56cbbd7ee76bf0507242d3eea7d9d8ee1ead..3fd00e6bb1bce1a4e56169f231d3a378095f2331 100644
(file)
--- a/
cmd/dx.pl
+++ b/
cmd/dx.pl
@@
-122,9
+122,11
@@
return (1, @out) unless $valid;
my $ipaddr;
my $ipaddr;
-if ($self->conn->peerhost) {
- my $addr = $self->
conn->peerhost
;
+if ($self->conn
&& $self->conn
->peerhost) {
+ my $addr = $self->
hostname
;
$ipaddr = $addr unless !is_ipaddr($addr) || $addr =~ /^127\./ || $addr =~ /^::[0-9a-f]+$/;
$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)
}
# Store it here (but only if it isn't baddx)