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 1daaa1c3291b69cafc2b47cd6f650b787985749e..08333724dcd251233635828b602483251e16b4c6 100644
(file)
--- a/
cmd/forward/opername.pl
+++ b/
cmd/forward/opername.pl
@@
-22,7
+22,7
@@
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;
if ($ref) {
my $name = $ref->name;
my $qth = $ref->qth;
@@
-32,29
+32,29
@@
foreach $call (@f) {
my $qra = $ref->qra;
my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
if ($name) {
my $qra = $ref->qra;
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);
- DX
Prot::broadcast_all_ak1a($l, $DXProt
::me) ;
+ DX
Channel::broadcast_all_nodes($l, $main
::me) ;
}
if ($qra) {
my $l = DXProt::pc41($call, 5, $qra);
DXProt::eph_dup($l);
}
if ($qra) {
my $l = DXProt::pc41($call, 5, $qra);
DXProt::eph_dup($l);
- DX
Prot::broadcast_all_ak1a($l, $DXProt
::me) ;
+ DX
Channel::broadcast_all_nodes($l, $main
::me) ;
}
}
}
}
}
}