From: djk Date: Mon, 8 Nov 1999 16:01:41 +0000 (+0000) Subject: fixed set location so that it puts the qra locator in the right place X-Git-Tag: R_1_34~4 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e6971e33c8757e1e952922c44903707379dd100;p=spider.git fixed set location so that it puts the qra locator in the right place --- diff --git a/Changes b/Changes index 9e06872d..140f2bb4 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,8 @@ 08Nov99======================================================================= 1. added spoofing (mk1 version) for sysops, useful for those little jobs like reseting a user's qra locator and such like "spoof g7brn set/qra jo02lq". +2. fixed set/location so it stores the qra locator in the qra locator slot, +NOT the lat/long (who wrote this stuff...?). 07Nov99======================================================================= 1. reduced the amount of stuff compared against for dup announces. 2. Check the regex for DK0WCY announces produces results before storing it as diff --git a/cmd/set/location.pl b/cmd/set/location.pl index a9be3e00..41f44194 100644 --- a/cmd/set/location.pl +++ b/cmd/set/location.pl @@ -24,8 +24,8 @@ if ($user) { $user->lat($lat); $user->long($long); DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $line), $DXProt::me); - if (!$user->qra) { - my $qra = DXBearing::lltos($lat, $long); + unless ($user->qra && DXBearing::is_qra($user->qra) ) { + my $qra = DXBearing::lltoqra($lat, $long); $user->qra($qra); }