added chat stuff for fun

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 250340bf946c4a6adea46a8cb485c6b4a2132d2a..df00b3f689840ccd732b402b0270c00bd5a5bdb8 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -91,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',
@@ -132,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)',