X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMessages;h=e7d9d8c650e959823f3b3d720c29023618b9121b;hb=4f444f8dd0c7a7bf53a8d40e4e0fbadf57d32ffb;hp=7918a6e13917c24c411d6659fd09dfbdf6d8b35b;hpb=8e45a3dac2e136dc0c9d6f1e78f8c048a8d7ba21;p=spider.git

diff --git a/perl/Messages b/perl/Messages
index 7918a6e1..e7d9d8c6 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -57,6 +57,7 @@ package DXM;
 				e14 => 'First argument must be numeric and > 0',
 				e15 => 'invalid qualifier \"$_[0]\"',
 				e16 => 'File \"$_[0]\" exists',
+				e17 => 'Please don\'t use the words: @_ on here', 
 
 				echoon => 'Echoing enabled',
 				echooff => 'Echoing disabled',
@@ -115,6 +116,7 @@ package DXM;
 				m14 => 'Message no $_[0] marked as sent to $_[1]',
 				m15 => 'Message no $_[0] unmarked as sent to $_[1]',
 				m16 => 'Need a Message number',
+				m17 => 'Sorry, cannot send messages in $_[0] mode',
                 msg1 => 'Bulletin Messages Queued',
                 msg2 => 'Private Messages Queued',
 				msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
@@ -146,7 +148,7 @@ package DXM;
 				pingi => 'Ping Returned from $_[0] $_[1] (Ave $_[2]) secs',
 				pinge1 => 'Cannot ping yourself!',
 				pingint => 'Ping interval on $_[0] set to $_[1] secs',
-				pos => 'From Callsign: $_[0] Lat: $_[1] Long: $_[2]',
+				'pos' => 'From Callsign: $_[0] Lat: $_[1] Long: $_[2]',
 				pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
 				pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
 				priv => 'Privilege level changed on $_[0]',