X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=729675be0685da73848d16f6c648c291daa7e111;hb=9e6322c41076ff462cb37416e28c3742567dc62a;hp=900460aef2c1df89f65fb48b1a97fd1ef7bb3eeb;hpb=963a74a359bda8ac6c348977f70d85e8e879697a;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));