I thought I had changed this? added callsign to other port messages

diff --git a/perl/Messages b/perl/Messages
index 6f1e09b7724e122d7e63717ea4124a77d01c9642..46194311a76bd2eb3ac56a744d19d5e11adb5d1b 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -22,8 +22,8 @@ package DXM;
                                beepoff => 'Beeps are now off',\r
                                beepon => 'Beeps are now on',\r
                                call1 => 'Callsign lookup via $_[0]:',\r
                                beepoff => 'Beeps are now off',\r
                                beepon => 'Beeps are now on',\r
                                call1 => 'Callsign lookup via $_[0]:',\r

-                               conother => 'Sorry $_[0] you are connected on another port',\r
-                               concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',\r
+                               conother => 'Sorry $_[0] you are connected to me on another port',\r
+                               concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster (on $_[0])',\r

                                conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',\r
                                confail => 'connection to $_[0] failed ($_[1])',\r
                                constart => 'connection to $_[0] started',\r
                                conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',\r
                                confail => 'connection to $_[0] failed ($_[1])',\r
                                constart => 'connection to $_[0] started',\r