added chat stuff for fun

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index f88481b3505b3dc55b190c9c5addc9b1a77887fd..df00b3f689840ccd732b402b0270c00bd5a5bdb8 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -52,6 +52,10 @@ package DXM;
                                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',
+                               dxcqs => 'DX CQ Zones enabled for $_[0]',
+                               dxcqu => 'DX CQ Zones disabled for $_[0]',
+                               dxitus => 'DX ITU Zones enabled for $_[0]',
+                               dxituu => 'DX ITU Zones disabled for $_[0]',
                                dxs => 'DX Spots enabled for $_[0]',
                                dxu => 'DX Spots disabled for $_[0]',
                                e1 => 'Invalid command',
@@ -87,6 +91,8 @@ package DXM;
                                e31 => '$_[0] is not a user', 
                                e32 => 'Need a passphrase',
                                e33 => '$_[0] is not a number of days or a valid date',
+                               e34 => 'Need a GROUP and some text',
+                               e35 => 'You are not a member of $_[0], join $_[0]',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -128,11 +134,13 @@ package DXM;
                                isoari => 'there is an input route filter for $_[0]; clear/route input $_[0] first',
                                isoaro => 'there is an output route filter for $_[0]; clear/route $_[0] first',
                                isow => '$_[0] is isolated; unset/isolate $_[0] first',
+                               join => 'joining group $_[0]',
                                l1 => 'Sorry $_[0], you are already logged on on another channel',
                                l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Language is now English',
                                lange1 => 'set/language <lang> where <lang> is one of ($_[0])',
                                lange2 => 'failed to set language on $_[0]', 
+                               leave => 'leaving group $_[0]',
                                lh1 => '$main::data/hop_table.pl doesn\'t exist',
                                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)',
@@ -286,10 +294,16 @@ package DXM;
                                unsethop1 => 'usage: unset/hops <call> ann|spots|wwv|wcy',
                                unsethop2 => 'hops unset on $_[1] for $_[0]', 
                                usernf => '*** User record for $_[0] not found ***',
+                               usstates => 'US State display enabled for $_[0]',
+                               usstateu => 'US State display disabled for $_[0]',
                                wcy1 => '$_[0] is missing or out of range',
                                wcy2 => 'Duplicate WCY',
                 wcys => 'WCY enabled for $_[0]',
                                wcyu => 'WCY disabled for $_[0]',
+                               wpc16s => 'Allow PC16 from $_[0] enabled',
+                               wpc16u => 'Allow PC16 from $_[0] disabled',
+                               wpc19s => 'Route PC19 for $_[0] enabled',
+                               wpc19u => 'Route PC19 for $_[0] disabled',
                                wwv1 => '$_[0] is missing or out of range',
                                wwv2 => 'Duplicate WWV',
                                wwvs => 'WWV enabled for $_[0]',