X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMessages;h=98cf96db9899204e65fd8960741e10dd037aaab9;hb=78cf2dcb9be8128af7f8dc5ae37540c9c53c6057;hp=9e75609f3559a120fb4f0cdd1155a86076df14ba;hpb=510a72595a4806a2c2a5ad0cd71f844d06c8c279;p=spider.git

diff --git a/perl/Messages b/perl/Messages
index 9e75609f..98cf96db 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -23,12 +23,14 @@ package DXM;
 				beepon => 'Beeps are now on',
 				call1 => 'Callsign lookup via $_[0]:',
 				conother => 'Sorry $_[0] you are connected to me on another port',
-				concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster (on $_[0])',
+				concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster (on $_[1])',
 				conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
 				confail => 'connection to $_[0] failed ($_[1])',
 				constart => 'connection to $_[0] started',
 				disc1 => 'Disconnected by $_[0]',
-				disc2 => '$_[0] disconnected',
+				disc2 => 'Channel $_[0] disconnected',
+				disc3 => 'No Channel, but connection $_[0] disconnected',
+				disc4 => 'No Channel or connection but orphan $_[0] disconnected',
 				db1 => 'This database is hosted at $_[0]',
 				db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
 				db3 => 'Sorry, database $_[0] doesn\'t exist here',
@@ -41,6 +43,7 @@ package DXM;
 				db10 => '$_[0] records imported into $_[1]',
 				db11 => 'Sending your request(s) to $_[0], please stand by...',
 				dfreq1 => 'Invalid freq $_[0] need: eg 0/30000 or hf or hf/cw', 
+				done => 'Done',
 				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',
@@ -71,6 +74,7 @@ package DXM;
 				e23 => '$_[0] not a range (eg 0/30000)', 
 				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',
 
 				echoon => 'Echoing enabled',
 				echooff => 'Echoing disabled',
@@ -82,7 +86,7 @@ package DXM;
 				export2 => '$_[3] has error exporting msg $_[0] to $_[1] ($_[2])',
 				export3 => '$_[2 ] exported msg $_[0] to $_[1]',
 				filter1 => 'Filter $_[0] updated for $_[1]',
-				filter2 => 'Need a value for $_[0]',
+				filter2 => 'Unknown filter keyword $_[0]',
 				filter3 => 'No filters defined for $_[0]',
 				filter4 => '$_[0]$_[1] Filter $_[2] deleted for $_[3]',
 				filter5 => 'need some filter commands...',
@@ -155,6 +159,8 @@ package DXM;
 				name => 'Your name is now \"$_[0]\"',
 				nodea => '$_[0] set as AK1A style Node',
 				nodeac => '$_[0] created as AK1A style Node',
+				nodeb => '$_[0] set as BBS',
+				nodebc => '$_[0] created as BBS',
 				nodec => '$_[0] set as CLX style Node',
 				nodecc => '$_[0] created as CLX style Node',
 				noder => '$_[0] set as AR-Cluster style Node',
@@ -165,6 +171,8 @@ package DXM;
 				nodexc => '$_[0] created as DXNET style Node',
 				nodeu => '$_[0] set back as a User',
 				nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
+				notdone => 'NOT Done',
+				nothere => 'Sorry, but $_[0] isn\'t here at the moment, please try later', 
 				obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
 				ok => 'Operation successful',
 				outconn => 'Outstanding connect to $_[0]',