projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. Fixed DXBearing::is_qra so that it correctly detects full QRA locators
[spider.git]
/
cmd
/
send.pl
diff --git
a/cmd/send.pl
b/cmd/send.pl
index 8667d0cc35edf80ae0e21ea4a088e469c9c37bfc..959a8101e531b957c9c9f364dd8f2397fcdebcbc 100644
(file)
--- a/
cmd/send.pl
+++ b/
cmd/send.pl
@@
-25,6
+25,9
@@
my $loc;
if ($self->state eq "prompt") {
my @f = split /\s+/, $line;
if ($self->state eq "prompt") {
my @f = split /\s+/, $line;
+
+ # any thing after send?
+ return (1, $self->msg('e6')) if !@f;
$f[0] = uc $f[0];
$f[0] = uc $f[0];
@@
-52,7
+55,9
@@
if ($self->state eq "prompt") {
$main::systime,
'1',
$newsubj,
$main::systime,
'1',
$newsubj,
- $main::mycall, $rr);
+ $main::mycall,
+ '0',
+ $rr);
my @list;
my $from = $oref->from;
my $to = $oref->to;
my @list;
my $from = $oref->from;
my $to = $oref->to;
@@
-91,10
+96,9
@@
if ($self->state eq "prompt") {
}
# check we have some callsigns
}
# check we have some callsigns
- if ($i > @f) {
+ if ($i >
=
@f) {
delete $self->{loc};
delete $self->{loc};
- #return (0, $self->msg('esend2'));
- return (0, "need a callsign");
+ return (1, $self->msg('e6'));
}
# now save all the 'to' callsigns for later
}
# now save all the 'to' callsigns for later