projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changed Changes
[spider.git]
/
cmd
/
dx.pl
diff --git
a/cmd/dx.pl
b/cmd/dx.pl
index b80d89bffb0404cafa226c3b059ac424c44ea988..bda2979ec83ffefdb927612dea0c3f2f628b3081 100644
(file)
--- a/
cmd/dx.pl
+++ b/
cmd/dx.pl
@@
-65,7
+65,6
@@
if (!$valid) {
}
}
-
push @out, $self->msg('dx1', $freq) if !$valid;
# check we have a callsign :-)
push @out, $self->msg('dx1', $freq) if !$valid;
# check we have a callsign :-)
@@
-85,13
+84,14
@@
if (grep $_ eq $spotted, @DXProt::baddx) {
my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter);
push @out, $buf;
} else {
my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter);
push @out, $buf;
} else {
- if (Spot::add($freq, $spotted, $main::systime, $line, $spotter, $main::mycall)) {
+ my @spot = Spot::add($freq, $spotted, $main::systime, $line, $spotter, $main::mycall);
+ if (@spot) {
# send orf to the users
my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter);
# send orf to the users
my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter);
- DXProt::broadcast_users($buf, 'dx',
$buf
);
+ DXProt::broadcast_users($buf, 'dx',
\@spot
);
# send it orf to the cluster (hang onto your tin helmets)
# send it orf to the cluster (hang onto your tin helmets)
- DXProt::broadcast_a
k1a(DXProt::pc11($spotter, $freq, $spotted, $line)
);
+ DXProt::broadcast_a
ll_ak1a(DXProt::pc11($spotter, $freq, $spotted, $line), $DXProt::me
);
}
}
}
}