X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=f2ba37454457b2573fc6088be8fa3e0388cf6a2f;hb=82de56e409a19a05761794c9588713160b51144e;hp=35fd35cc5fc4b510f3acc70675616dcb168c9b36;hpb=3eb722692c2c1e9de84752391d5b6330e062c7e6;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 35fd35cc..f2ba3745 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -9,6 +9,9 @@ package DXCommandmode; +use POSIX; +use IO::File; + @ISA = qw(DXChannel); use DXUtil; @@ -21,9 +24,9 @@ use DXLog; use DXLogPrint; use DXBearing; use CmdAlias; -use IO::File; use Filter; use Carp; +use Minimuf; use strict; use vars qw(%Cache %cmd_cache $errstr %aliases); @@ -91,8 +94,6 @@ sub start $self->send($self->msg('hnodee1')) if !$user->qth; $self->send($self->msg('m9')) if DXMsg::for_me($call); - # get the filters - $self->{spotfilter} = Filter::read_in('spots', $call); $self->send($self->msg('pr', $call)); }