projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of /scm/spider
[spider.git]
/
cmd
/
forward
/
opername.pl
diff --git
a/cmd/forward/opername.pl
b/cmd/forward/opername.pl
index a80d0ec9e64329273efde7b434ac5467645cc93b..08333724dcd251233635828b602483251e16b4c6 100644
(file)
--- a/
cmd/forward/opername.pl
+++ b/
cmd/forward/opername.pl
@@
-22,33
+22,39
@@
if ($self->priv < 1) {
my $call;
foreach $call (@f) {
my $call;
foreach $call (@f) {
- my $ref = DXUser
->
get_current($call);
+ my $ref = DXUser
::
get_current($call);
if ($ref) {
my $name = $ref->name;
my $qth = $ref->qth;
my $lat = $ref->lat;
my $long = $ref->long;
my $node = $ref->homenode;
if ($ref) {
my $name = $ref->name;
my $qth = $ref->qth;
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) ;
}
}
}
}
}
}