projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
8578afa
)
fixed set location so that it puts the qra locator in the right place
author
djk
<djk>
Mon, 8 Nov 1999 16:01:41 +0000
(16:01 +0000)
committer
djk
<djk>
Mon, 8 Nov 1999 16:01:41 +0000
(16:01 +0000)
Changes
patch
|
blob
|
history
cmd/set/location.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 9e06872d2c4933f6c154e0a6059f470be5da5421..140f2bb4507e0b96243fc7b3b330452ea415413f 100644
(file)
--- 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".
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
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 a9be3e006d8bccef5b7d881ed59457096219ba19..41f44194005f73d2f404ead1377d220880ef45a8 100644
(file)
--- 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);
$user->lat($lat);
$user->long($long);
DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $line), $DXProt::me);
-
if (!$user->qra
) {
- my $qra = DXBearing::llto
s
($lat, $long);
+
unless ($user->qra && DXBearing::is_qra($user->qra)
) {
+ my $qra = DXBearing::llto
qra
($lat, $long);
$user->qra($qra);
}
$user->qra($qra);
}