From: minima <minima>
Date: Mon, 5 Mar 2001 23:42:40 +0000 (+0000)
Subject: check for qra locator and offer alternative
X-Git-Tag: R_1_47~137
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=56c178d0f7a93f500bea68e2e999951538986f76;p=spider.git

check for qra locator and offer alternative
---

diff --git a/cmd/set/location.pl b/cmd/set/location.pl
index 41f44194..8d1f1350 100644
--- a/cmd/set/location.pl
+++ b/cmd/set/location.pl
@@ -15,6 +15,7 @@ $line =~ s/^\s+//;
 $line =~ s/\s+$//;
 
 return (1, $self->msg('loce1')) if !$line;
+return (1, $self->msg('loce3', uc $line)) if DXBearing::is_qra($line);
 return (1, $self->msg('loce2', $line)) unless $line =~ /\d+ \d+ [NnSs] \d+ \d+ [EeWw]/o;
 
 $user = DXUser->get_current($call);
diff --git a/perl/Messages b/perl/Messages
index 46194311..f25d43de 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -116,6 +116,7 @@ package DXM;
 				lh1 => '$main::data/hop_table.pl doesn\'t exist',
 				loce1 => 'Please enter your location,, set/location <latitude longitude>',
 				loce2 => 'Don\'t recognise \"$_[0]\" as a Lat/Long (eg 52 20 N 0 16 E)',
+				loce3 => '$_[0] is a QRA locator, please use: set/qra $_[0]',
 				loc => 'Your Lat/Long is now \"$_[0]\"',
 				lockout => '$_[0] Locked out',
 				lockoutc => '$_[0] Created and Locked out',