X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fforward%2Fopername.pl;h=08333724dcd251233635828b602483251e16b4c6;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=a80d0ec9e64329273efde7b434ac5467645cc93b;hpb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git

diff --git a/cmd/forward/opername.pl b/cmd/forward/opername.pl
index a80d0ec9..08333724 100644
--- 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) ;
 		}
 	}
 }