X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;fp=perl%2FDXCommandmode.pm;h=729675be0685da73848d16f6c648c291daa7e111;hb=dd73f6f34ce7f3e142e480dfb7153611d87f509b;hp=900460aef2c1df89f65fb48b1a97fd1ef7bb3eeb;hpb=fa27020ac9e6e3e8b64a2e82351eb00487b04bfb;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 900460ae..729675be 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -136,6 +136,7 @@ sub start $self->{dx} = $user->wantdx; $self->{logininfo} = $user->wantlogininfo; $self->{ann_talk} = $user->wantann_talk; + $self->{wantrbn} = $user->wantrbn; $self->{here} = 1; $self->{prompt} = $user->prompt if $user->prompt; $self->{lastmsgpoll} = 0; @@ -176,7 +177,10 @@ sub start $self->{annfilter} = Filter::read_in('ann', $call, 0) || Filter::read_in('ann', $nossid, 0) || Filter::read_in('ann', 'user_default', 0) ; - + $self->{rbnfilter} = Filter::read_in('rbn', $call, 0) + || Filter::read_in('rbn', $nossid, 0) + || Filter::read_in('rbn', 'user_default', 0); + # clean up qra locators my $qra = $user->qra; $qra = undef if ($qra && !DXBearing::is_qra($qra));