projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix missing IP addresses on spots and PC92 A records
[spider.git]
/
perl
/
RBN.pm
diff --git
a/perl/RBN.pm
b/perl/RBN.pm
index e0d096b9dcd6ecf389ed349c3a0b4362cb6ac084..e844b6d6bcba0c5597a948b2c5fc765520cd45d2 100644
(file)
--- a/
perl/RBN.pm
+++ b/
perl/RBN.pm
@@
-172,9
+172,9
@@
sub start
my $name = $user->{name};
# log it
my $name = $user->{name};
# log it
- my $host = $self->{conn}->peerhost;
-
$host ||= "unknown"
;
- $self->{hostname} = $host;
+ unless ($self->{hostname}) {
+
$self->{hostname} = $self->{conn}->peerhost || 'unknown'
;
+ }
$self->{name} = $name ? $name : $call;
$self->state('prompt'); # a bit of room for further expansion, passwords etc
$self->{name} = $name ? $name : $call;
$self->state('prompt'); # a bit of room for further expansion, passwords etc