show the correct call on 'connected on other node' messages

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 0a11c0863ddb931c5ab6f758ad3d893a8b38ea2d..573857ab59bc089fab44dffce13a5e535ba071f9 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',
@@ -83,7 +85,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...',