projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add localhost client aliasing on spots and PC92A
[spider.git]
/
perl
/
RBN.pm
diff --git
a/perl/RBN.pm
b/perl/RBN.pm
index 87cedaa71c73447a78d174e988094f6aeff08897..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
@@
-259,6
+259,14
@@
sub normal
return;
}
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) {
# remove all extraneous crap from the origin - just leave the base callsign
my $norigin = basecall($origin);
unless ($norigin) {