projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
up version no
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 35fd35cc5fc4b510f3acc70675616dcb168c9b36..f2ba37454457b2573fc6088be8fa3e0388cf6a2f 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-9,6
+9,9
@@
package DXCommandmode;
package DXCommandmode;
+use POSIX;
+use IO::File;
+
@ISA = qw(DXChannel);
use DXUtil;
@ISA = qw(DXChannel);
use DXUtil;
@@
-21,9
+24,9
@@
use DXLog;
use DXLogPrint;
use DXBearing;
use CmdAlias;
use DXLogPrint;
use DXBearing;
use CmdAlias;
-use IO::File;
use Filter;
use Carp;
use Filter;
use Carp;
+use Minimuf;
use strict;
use vars qw(%Cache %cmd_cache $errstr %aliases);
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);
$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));
}
$self->send($self->msg('pr', $call));
}