X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=e844b6d6bcba0c5597a948b2c5fc765520cd45d2;hb=56b93915d65c299a5f2d2e555ee361c056773843;hp=87cedaa71c73447a78d174e988094f6aeff08897;hpb=6e3c63cde45923c99f21b312a440e373bc23e679;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 87cedaa7..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
@@ -259,6 +259,14 @@ sub normal
 		return;
 	}
 
+	# is it 'baddx'
+	if ($DXProt::baddx->in($call)) {
+		dbg("RBN: Bad DX spot '$call', ignored");
+		dbg($line) if isdbg('nologchan');
+		return;
+	}
+
+	
 	# remove all extraneous crap from the origin - just leave the base callsign
 	my $norigin = basecall($origin);
 	unless ($norigin) {