projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changed return in send_announce to next!
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index d05af70a2936bd67c3ee9aec70b5a3142c8c0426..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 FileHandle;
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);
@@
-77,7
+80,9
@@
sub start
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
- DXProt::broadcast_ak1a(@pc16);
+ for (@pc16) {
+ DXProt::broadcast_all_ak1a($_);
+ }
Log('DXCommand', "$call connected");
# send prompts and things
Log('DXCommand', "$call connected");
# send prompts and things
@@
-87,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('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('m
sgnew
')) if DXMsg::for_me($call);
+ $self->send($self->msg('m
9
')) 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));
}
@@
-144,6
+147,8
@@
sub normal
} else {
$self->send($self->msg('sorry'));
}
} else {
$self->send($self->msg('sorry'));
}
+ } else {
+ $self->send($self->msg('sorry'));
}
delete $self->{passwd};
$self->state('prompt');
}
delete $self->{passwd};
$self->state('prompt');
@@
-302,7
+307,7
@@
sub finish
# issue a pc17 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my $pc17 = $nchan->pc17($self);
# issue a pc17 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my $pc17 = $nchan->pc17($self);
- DXProt::broadcast_ak1a($pc17);
+ DXProt::broadcast_a
ll_a
k1a($pc17);
Log('DXCommand', "$call disconnected");
$ref->del() if $ref;
Log('DXCommand', "$call disconnected");
$ref->del() if $ref;
@@
-505,7
+510,7
@@
sub find_cmd_name {
} else {
delete_package($package) if defined $Cache{$package}{mtime};
} else {
delete_package($package) if defined $Cache{$package}{mtime};
- my $fh = new
FileHand
le;
+ my $fh = new
IO::Fi
le;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
return undef;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
return undef;