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
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) {