X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FRBN.pm;fp=perl%2FRBN.pm;h=e844b6d6bcba0c5597a948b2c5fc765520cd45d2;hp=e0d096b9dcd6ecf389ed349c3a0b4362cb6ac084;hb=ca5baf12f22e041cb14af595254af4ae88d82ae0;hpb=c9fab2f4ef517442cb113c4081ff7d815622236d

diff --git a/perl/RBN.pm b/perl/RBN.pm
index e0d096b9..e844b6d6 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -172,9 +172,9 @@ sub start
 	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