1. Incorporated sh/st, (un)set/lockout, forward/opername from Iain G0RDI

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 1dee13e387364ec145123add75047f2bf6c9d2d1..16ad509edcd0af3700030e76206ee6cfac161ce9 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -34,7 +34,7 @@ package DXM;
                                e3 => '$_[0]: $_[1] not found',
                                e4 => 'Need at least a prefix or callsign',
                                e5 => 'Not Allowed',
-                               e6 => 'Need a callsign',
+                               e6 => '*** No station specified ***',
                                e7 => 'callsign $_[0] not visible on the cluster',
                                e8 => 'Need a callsign and some text',
                                e9 => 'Need at least some text',
@@ -56,6 +56,8 @@ package DXM;
                                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)',
                                loc => 'Your Lat/Long is now \"$_[0]\"',
+                               lockout => '$_[0] Locked out',
+                               lockoutun => '$_[0] Unlocked',
                                m2 => '$_[0] Information: $_[1]',
                                namee1 => 'Please enter your name, set/name <your name>',
                                namee2 => 'Can\'t find user $_[0]!',
@@ -74,7 +76,8 @@ package DXM;
                                qll => 'Please enter your location with set/location or set/qra',
                                qthe1 => 'Please enter your QTH, set/qth <your qth>',
                                qth => 'Your QTH is now \"$_[0]\"',
-                               qrae1 => 'Please enter your QRA locator, set/qra <qra locator>',
+                               qrae1 => 'Please enter your QRA locator, set/qra <qra locator> (eg set/qra JO02LQ)',
+                               qrashe1 => 'Please enter a QRA locator, eg sh/qra JO02LQ or sh/qra JO02LQ IO93NS',
                                qrae2 => 'Don\'t recognise \"$_[0]\" as a QRA locator (eg JO02LQ)',
                                qra => 'Your QRA Locator is now \"$_[0]\"',
                                rcmdo => 'RCMD \"$_[0]\" sent to $_[1]',
@@ -84,6 +87,7 @@ package DXM;
                                shutting => '$main::mycall shutting down...',
                                talks => 'Talk flag set on $_[0]',
                                talku => 'Talk flag unset on $_[0]',
+                               usernf => '*** User record for $_[0] not found ***',
                                wwvs => 'WWV flag set on $_[0]',
                                wwvu => 'WWV flag unset on $_[0]',
                },