12. added an 'auto rcmd <node> for/oper <call>' for people I can see on the

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 532322d0f506f6731988ddc695a68ef25d11e174..7a2ca91036c396001b8ba557f4e08f2e2c656bb6 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -255,6 +255,26 @@ sub normal
                                                $user->put;
                                        }
                                }
+
+                               # send a remote command to a distant cluster if it is visible and there is no
+                               # qra locator and we havn't done it for a month.
+
+                               unless ($user->qra) {
+                                       my $node;
+                                       my $to = $user->homenode;
+                                       my $last = $user->lastoper || 0;
+                                       if ($main::systime > $last + $DXUser::lastoperinterval && $to && ($node = DXCluster->get_exact($to)) ) {
+                                               my $cmd = "forward/opernam $spot[4]";
+                                               # send the rcmd but we aren't interested in the replies...
+                                               if ($node && $node->dxchan && $node->dxchan->is_clx) {
+                                                       route(undef, $to, pc84($main::mycall, $to, $main::mycall, $cmd));
+                                               } else {
+                                                       route(undef, $to, pc34($main::mycall, $to, $cmd));
+                                               }
+                                               $user->lastoper($main::systime);
+                                               $user->put;
+                                       }
+                               }
                        }
                                
                        # local processing 
@@ -669,7 +689,8 @@ sub normal
                                $user->lat($lat);
                                $user->long($long);
                                my $qra = $user->qra || DXBearing::lltoqra($lat, $long);
-                               $qra = DXBearing::lltoqra($lat, $long) unless DXBearing::is_qra($qra);
+                               $qra = DXBearing::lltoqra($lat, $long) unless $qra && DXBearing::is_qra($qra);
+                               $user->qra($qra) if $qra ne $user->qra;
                        } elsif ($field[2] == 4) {
                                $user->homenode($field[3]);
                        }