X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=e844b6d6bcba0c5597a948b2c5fc765520cd45d2;hb=ca5baf12f22e041cb14af595254af4ae88d82ae0;hp=9d17d33bddfd597bf6318f0e1b2ec263d2f0cf8d;hpb=a152a2950881b694b5bc75fbc0cb4a1677243b81;p=spider.git diff --git a/perl/RBN.pm b/perl/RBN.pm index 9d17d33b..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) { @@ -980,7 +988,7 @@ sub del_seeme my $call = shift; my $base = basecall($call); my $ref = $seeme{$base}; - return unless @$ref; + return unless $ref && @$ref; @$ref = grep {$_ ne $call} @$ref; if (@$ref) {