Change DXUser->get* to DXUser::get*

[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 $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;
+               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::broadcast_all_ak1a($l, $DXProt::me) ;
+                       DXChannel::broadcast_all_nodes($l, $main::me) ;
                }
                if ($qth) {
                        my $l = DXProt::pc41($call, 2, $qth);
                        DXProt::eph_dup($l);
-                       DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+                       DXChannel::broadcast_all_nodes($l, $main::me) ;
                }
                if ($latlong) {
                        my $l = DXProt::pc41($call, 3, $latlong);
                        DXProt::eph_dup($l);
-                       DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+                       DXChannel::broadcast_all_nodes($l, $main::me) ;
                }
                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) ;
                }
        }
 }