From 56c178d0f7a93f500bea68e2e999951538986f76 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 5 Mar 2001 23:42:40 +0000 Subject: [PATCH] check for qra locator and offer alternative --- cmd/set/location.pl | 1 + perl/Messages | 1 + 2 files changed, 2 insertions(+) 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 ', 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', -- 2.34.1