added Steve's (K9AN) new versions

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index d91335174b0d896b87fa0b34259fcac940282172..e4ee79c68a2df186f2ccd664cb6a3c1e90bb0283 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -14,6 +14,8 @@ package DXM;
                 already => '$_[0] already connnected',
                                anns => 'Announce flag set on $_[0]',
                                annu => 'Announce flag unset on $_[0]',
+                               annts => 'AnnTalk flag set on $_[0]',
+                               anntu => 'AnnTalk flag unset on $_[0]',
                                badnode1 => '$_[0] is now a bad node',
                                badnode2 => '$_[0] is now a good node',
                                badnode3 => 'List of Bad Nodes:-',
@@ -48,6 +50,7 @@ package DXM;
                                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',
@@ -76,6 +79,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',
@@ -94,6 +98,7 @@ package DXM;
                                filter6 => '$_[0]$_[1] Filter for $[2] not found',
                                grids => 'DX Grid flag set on $_[0]',
                                gridu => 'DX Grid flag unset on $_[0]',
+                               illcall => 'Sorry, $_[0] is an invalid callsign',
                                hasha => '$_[0] already exists in $_[1]',
                                hashb => '$_[0] added to $_[1]',
                                hashc => '$_[0] removed from $_[1]',
@@ -155,7 +160,8 @@ package DXM;
                                msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
                                msgu => 'usage: msg <cmd> <msgno> data...',
                                merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
-                               moon => 'Location                              Rise   Set      Azim   Elev RGain dB',
+                               moon => 'Location                              dd/mm/yyyy Rise   Set',
+                               moon_with_azel => 'Location                              dd/mm/yyyy Rise   Set      Azim   Elev',
                                mond => 'Monitoring Disabled',
                                mone => 'Monitoring Enabled',
                                namee1 => 'Please enter your name, set/name <your name>',
@@ -228,7 +234,8 @@ package DXM;
                                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',
+                               sun => 'Location                              dd/mm/yyyy Rise   Set',
+                               sun_with_azel => 'Location                              dd/mm/yyyy Rise   Set      Azim   Elev',
                                suser1 => 'usage: callsign user_field_name value',
                                suser2 => 'User $_[0] not found',
                                suser3 => 'User field \'$_[0]\' was \'$_[1]\' now set to \'$_[2]\'',
@@ -240,6 +247,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 ***',