add more routing code together with associated commands

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index f863a139f5dc80304445d32d9ed02dc2005af2fc..a9a1be91d2e9e97c1d25921f82174874ddd60a71 100644 (file)
--- 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...',
@@ -109,7 +113,7 @@ package DXM;
                                isou => '$_[0] UnIsolated',
                                isoc => '$_[0] created and Isolated',
                                l1 => 'Sorry $_[0], you are already logged on on another channel',
-                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
+                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Language is now $_[0]',
                                lange1 => 'set/language <lang> where <lang> is one of ($_[0])',
                                lange2 => 'failed to set language on $_[0]', 
@@ -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,7 @@ 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',
                                obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
                                ok => 'Operation successful',
                                outconn => 'Outstanding connect to $_[0]',