add wcys/u messages

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 2a42e71e7c52e06482f34714062a8d5343ccc9c2..4b0259fb7c809df7391d0ac25b161165de53670d 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -22,8 +22,8 @@ package DXM;
                                beepoff => 'Beeps are now off',
                                beepon => 'Beeps are now on',
                                call1 => 'Callsign lookup via $_[0]:',
-                               conother => 'Sorry $_[0] you are connected on another port',
-                               concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',
+                               conother => 'Sorry $_[0] you are connected on another port here',
+                               concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster ($_[1])',
                                conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
                                confail => 'connection to $_[0] failed ($_[1])',
                                constart => 'connection to $_[0] started',
@@ -223,6 +223,8 @@ package DXM;
                                talkprompt => 'Talk ($_[0])>',
                                talkstart => 'Starting talking to you',
                                usernf => '*** User record for $_[0] not found ***',
+                               wcys => 'WCY flag set on $_[0]',
+                               wcyu => 'WCY flag unset on $_[0]',
                                wwvs => 'WWV flag set on $_[0]',
                                wwvu => 'WWV flag unset on $_[0]',
                                wxs => 'WX flag set on $_[0]',