1. did some work on making talk more intelligent and fixed a>b problem.

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index b6b0f67f5ee702de80af7c250b641f6aca139c2c..d762e7e9516e6917cbec7a8b4c0c38af459b7ab3 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -27,10 +27,7 @@ package DXM;
                                conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
                                confail => 'connection to $_[0] failed ($_[1])',
                                constart => 'connection to $_[0] started',
-                               disc1 => 'Disconnected by $_[0]',
-                               disc2 => 'Channel $_[0] disconnected',
-                               disc3 => 'No Channel, but connection $_[0] disconnected',
-                               disc4 => 'No Channel or connection but orphan $_[0] disconnected',
+                               deluser => 'User $_[0] has been deleted',
                                db1 => 'This database is hosted at $_[0]',
                                db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
                                db3 => 'Sorry, database $_[0] doesn\'t exist here',
@@ -43,10 +40,15 @@ 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', 
+                               disc1 => 'Disconnected by $_[0]',
+                               disc2 => 'Channel $_[0] disconnected',
+                               disc3 => 'No Channel, but connection $_[0] disconnected',
+                               disc4 => 'No Channel or connection but orphan $_[0] disconnected',
                                done => 'Done',
                                dup => 'Sorry, this is a duplicate',
                                dx1 => 'Frequency $_[0] not in band (see show/band); usage: DX [BY call] freq call comments',
                                dx2 => 'Need a callsign; usage: DX [BY call] freq call comments',
+                               dx3 => 'The callsign or frequency is invalid',
                                dxs => 'DX Spots flag set on $_[0]',
                                dxu => 'DX Spots flag unset on $_[0]',
                                e1 => 'Invalid command',
@@ -75,6 +77,7 @@ package DXM;
                                e24 => 'Sorry, Internet access is not enabled',
                                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', 
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -222,6 +225,11 @@ package DXM;
                                sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
                                sorry => 'Sorry',
                                spf1 => 'spoof: creating new user $_[0]',
+                               stathf => 'HF DX Spot Stats, last 31 days',
+                               stathft => 'HF DX Spot Stats, last 31 days for DXCC $_[0]',
+                               statvhf => 'VHF+ DX Spot Stats, last 31 days',
+                               statvhft => 'VHF+ DX Spot Stats, last 31 days for DXCC $_[0]',
+                               statdx => 'Total DX Spots last 31 days',
                                sun => 'Location                              Rise   Set      Azim   Elev',
                                suser1 => 'usage: callsign user_field_name value',
                                suser2 => 'User $_[0] not found',
@@ -234,6 +242,7 @@ package DXM;
                                talku => 'Talk flag unset on $_[0]',
                                talkend => 'Finished talking to you',
                                talkinst => 'Entering Talkmode, /EX to end, /<cmd> to run a command',
+                               talknh => 'Sorry $_[0] is not online at the moment',
                                talkprompt => 'Talk ($_[0])>',
                                talkstart => 'Starting talking to you',
                                usernf => '*** User record for $_[0] not found ***',