X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMessages;h=0098094a08ce364dcedb356957b54083d237d12f;hb=9a61ef555083e7288a41de95d3709454c0a20625;hp=6a2b4fb5722507abcb75b53ab4a3314f16c2663e;hpb=517695ec47b0ab768da54c7b0830de9ed0dd4914;p=spider.git

diff --git a/perl/Messages b/perl/Messages
index 6a2b4fb5..0098094a 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -12,10 +12,10 @@ package DXM;
 		 en => {
 				addr => 'Address set to: $_[0]',
                 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]',
+				anns => 'Announces enabled for $_[0]',
+				annu => 'Announces disabled for $_[0]',
+				annts => 'AnnTalk enabled for $_[0]',
+				anntu => 'AnnTalk disabled for $_[0]',
 				badnode1 => '$_[0] is now a bad node',
 				badnode2 => '$_[0] is now a good node',
 				badnode3 => 'List of Bad Nodes:-',
@@ -52,8 +52,8 @@ 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',
-				dxs => 'DX Spots flag set on $_[0]',
-				dxu => 'DX Spots flag unset on $_[0]',
+				dxs => 'DX Spots enabled for $_[0]',
+				dxu => 'DX Spots disabled for $_[0]',
 				e1 => 'Invalid command',
 				e2 => 'Error: $_[0]',
 				e3 => '$_[0]: $_[1] not found',
@@ -84,6 +84,7 @@ package DXM;
 				e28 => 'Sorry, you need to be registered (SP $main::myalias to register)',
 				e29 => 'Need a password',
 				e30 => 'Cannot Open $_[0] $!',
+				e31 => '$_[0] is not a user', 
 
 				echoon => 'Echoing enabled',
 				echooff => 'Echoing disabled',
@@ -100,8 +101,8 @@ package DXM;
 				filter4 => '$_[0]$_[1] Filter $_[2] deleted for $_[3]',
 				filter5 => 'need some filter commands...',
 				filter6 => '$_[0]$_[1] Filter for $[2] not found',
-				grids => 'DX Grid flag set on $_[0]',
-				gridu => 'DX Grid flag unset on $_[0]',
+				grids => 'DX Grid enabled for $_[0]',
+				gridu => 'DX Grid disabled for $_[0]',
 				illcall => 'Sorry, $_[0] is an invalid callsign',
 				hasha => '$_[0] already exists in $_[1]',
 				hashb => '$_[0] added to $_[1]',
@@ -196,6 +197,8 @@ package DXM;
 				passerr => 'Please use: SET/PASS <password> <callsign>',
 				password => 'Password set or changed for $_[0]',
 				passwordu => 'Password removed for $_[0]',
+				pc90s => 'PC90 enabled for $_[0]',
+				pc90u => 'PC90 disabled $_[0]',
 				pingo => 'Ping Started to $_[0]',
 				pingi => 'Ping Returned from $_[0] $_[1] (Ave $_[2]) secs',
 				pinge1 => 'Cannot ping yourself!',
@@ -261,8 +264,8 @@ package DXM;
 				time1 => 'Local Time: $_[0] $_[1], UTC $_[2]',
 				time2 => '$_[0] Local (standard) time: $_[1] ($_[2] Hours)',
 				time3 => '$_[0]  $_[1]',
-				talks => 'Talk flag set on $_[0]',
-				talku => 'Talk flag unset on $_[0]',
+				talks => 'Talk enabled for $_[0]',
+				talku => 'Talk disabled for $_[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',
@@ -273,12 +276,14 @@ package DXM;
 				usernf => '*** User record for $_[0] not found ***',
 				wcy1 => '$_[0] is missing or out of range',
 				wcy2 => 'Duplicate WCY',
+                wcys => 'WCY enabled for $_[0]',
+				wcyu => 'WCY disabled for $_[0]',
 				wwv1 => '$_[0] is missing or out of range',
 				wwv2 => 'Duplicate WWV',
-				wwvs => 'WWV flag set on $_[0]',
-				wwvu => 'WWV flag unset on $_[0]',
-				wxs => 'WX flag set on $_[0]',
-				wxu => 'WX flag unset on $_[0]',
+				wwvs => 'WWV enabled for $_[0]',
+				wwvu => 'WWV disabled $_[0]',
+				wxs => 'WX enabled for $_[0]',
+				wxu => 'WX disabled for $_[0]',
 			   },
 		 nl => {
 				addr => 'Addres gezet op: $_[0]',