added registration

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 5cfe6a05f42443cc6c1f37d7c6aea80bc20c34e6..3b5e5b69f710560f02fd6a42c6d9623737a89fd5 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -42,6 +42,7 @@ package DXM;
                                db10 => '$_[0] records imported into $_[1]',
                                db11 => 'Sending your request(s) to $_[0], please stand by...',
                                dfreq1 => 'Invalid freq $_[0] need: eg 0/30000 or hf or hf/cw', 
+                               dir1 => 'No messages found',
                                disc1 => 'Disconnected by $_[0]',
                                disc2 => 'Channel $_[0] disconnected',
                                disc3 => 'No Channel, but connection $_[0] disconnected',
@@ -80,6 +81,8 @@ package DXM;
                                e25 => 'Sorry the value must be between $_[0] and $_[1]',
                                e26 => 'Too many concurrent errors, you are being disconnected',
                                e27 => '$_[0] not a numeric or a callsign prefix', 
+                               e28 => 'Sorry, you need to be registered (SP $main::myalias to register)',
+                               e29 => 'Need a password',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -134,6 +137,7 @@ package DXM;
                                lockout => '$_[0] Locked out',
                                lockoutc => '$_[0] Created and Locked out',
                                lockoutun => '$_[0] Unlocked',
+                               lockoutuse => 'usage: sh/lockout <call>|ALL',
                                loginu => 'User $_[0] has logged in',
                                logoutu => 'User $_[0] has logged out',
                                loginn => 'Node $_[0] has logged in',
@@ -199,6 +203,11 @@ package DXM;
                                pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
                                priv => 'Privilege level changed on $_[0]',
                                prx => '$main::mycall >',
+                               pw0 => 'Enter old password: ',
+                               pw1 => 'Enter new password: ',
+                               pw2 => 'Re-enter new password: ',
+                               pw3 => 'Password changed',
+                               pw4 => 'Passwords differ, password NOT changed',
                                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]\"',
@@ -207,10 +216,14 @@ package DXM;
                                qrae2 => 'Don\'t recognise \"$_[0]\" as a QRA locator (eg JO02LQ)',
                                qra => 'Your QRA Locator is now \"$_[0]\"',
                                rcmdo => 'RCMD \"$_[0]\" sent to $_[1]',
-                               rec => '$_[0] records',
                                read1 => 'Sorry, no new messages for you',
                                read2 => 'Msg $_[0] not found',
                                read3 => 'Msg $_[0] not available',
+                               rec => '$_[0] records',
+                               reg => '$_[0] registered',
+                               regc => '$_[0] created and registered',
+                               reginac => 'Registration is not active (set/var \$main::regreq = 1 to activate)',
+                               regun => '$_[0] unregistered',
                                route => '$_[0] on $_[1] via $_[2]',
                                sat1 => 'Tracking Table for $_[0] for the next $_[1] hours every $_[2] mins',
                                sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',