X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=f2ba37454457b2573fc6088be8fa3e0388cf6a2f;hb=5232a160e5361e9bdcb8e2202c8063b8df6bd9dc;hp=24d3f0a9597fe475c2e178290fe1b2f3e2e3d17f;hpb=97315924f561c56cef3b581691409d4217f5c1b5;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 24d3f0a9..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); @@ -89,10 +92,8 @@ sub start $self->send($self->msg('qthe1')) if !$user->qth; $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); + $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)); }