X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=bce0255fd4750002963821575ccd462f5173ddda;hb=8942c27356acc5d5f5a20134461bcf7e6bd6a044;hp=2094cbfaea51d6e9abdf4cec110ac1b29093f3f3;hpb=324bd80ed4aef7e2636f5a03288788ce11ab2663;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 2094cbfa..bce0255f 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -22,6 +22,7 @@ use DXLogPrint; use DXBearing; use CmdAlias; use FileHandle; +use Filter; use Carp; use strict; @@ -87,6 +88,9 @@ sub start $self->send($self->msg('qll')) if !$user->qra || (!$user->lat && !$user->long); $self->send($self->msg('hnodee1')) if !$user->qth; $self->send($self->msg('msgnew')) if DXMsg::for_me($call); + + # get the filters + $self->{spotfilter} = Filter::read_in('spots', $call); $self->send($self->msg('pr', $call)); }