projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't linger on AGWMsg connections.
[spider.git]
/
cmd
/
forward
/
opername.pl
diff --git
a/cmd/forward/opername.pl
b/cmd/forward/opername.pl
index a80d0ec9e64329273efde7b434ac5467645cc93b..91acc8b4c9eb173be8a8ecae1fca7897e033682b 100644
(file)
--- a/
cmd/forward/opername.pl
+++ b/
cmd/forward/opername.pl
@@
-29,26
+29,32
@@
foreach $call (@f) {
my $lat = $ref->lat;
my $long = $ref->long;
my $node = $ref->homenode;
my $lat = $ref->lat;
my $long = $ref->long;
my $node = $ref->homenode;
+ my $qra = $ref->qra;
my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
if ($name) {
my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
if ($name) {
- my $l = DXProt::pc41($
DXProt
::me, $call, 1, $name);
+ my $l = DXProt::pc41($
main
::me, $call, 1, $name);
DXProt::eph_dup($l);
DXProt::eph_dup($l);
- DX
Prot::broadcast_all_ak1a($l, $DXProt
::me) ;
+ DX
Channel::broadcast_all_nodes($l, $main
::me) ;
}
if ($qth) {
my $l = DXProt::pc41($call, 2, $qth);
DXProt::eph_dup($l);
}
if ($qth) {
my $l = DXProt::pc41($call, 2, $qth);
DXProt::eph_dup($l);
- DX
Prot::broadcast_all_ak1a($l, $DXProt
::me) ;
+ DX
Channel::broadcast_all_nodes($l, $main
::me) ;
}
if ($latlong) {
my $l = DXProt::pc41($call, 3, $latlong);
DXProt::eph_dup($l);
}
if ($latlong) {
my $l = DXProt::pc41($call, 3, $latlong);
DXProt::eph_dup($l);
- DX
Prot::broadcast_all_ak1a($l, $DXProt
::me) ;
+ DX
Channel::broadcast_all_nodes($l, $main
::me) ;
}
if ($node) {
my $l = DXProt::pc41($call, 4, $node);
DXProt::eph_dup($l);
}
if ($node) {
my $l = DXProt::pc41($call, 4, $node);
DXProt::eph_dup($l);
- DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ DXChannel::broadcast_all_nodes($l, $main::me) ;
+ }
+ if ($qra) {
+ my $l = DXProt::pc41($call, 5, $qra);
+ DXProt::eph_dup($l);
+ DXChannel::broadcast_all_nodes($l, $main::me) ;
}
}
}
}
}
}