add vestigial WWV and WCY 'progress'

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index ef4a7c9a15dcef2bcbd9a57d34a5562569f86448..8f64a7dedcbeb479cd14355522aaa89a2b848a2e 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -34,6 +34,7 @@ package DXM;
                                chatinst => 'Entering Chatmode on $_[0], /EX to end, /<cmd> to run a command',
                                chatprompt => 'Chat ($_[0])>',
                                chattoomany => 'Not allowed, already in $_[1], use /chat $_[0]',
+                               cluster => 'Nodes: $_[0] / $_[1] Clr Users: $_[2] / $_[3] Clr Max Users: $_[4] / $_[5] Clr Uptime: $_[6]',
                                conother => 'Sorry $_[0] you are connected to me on another port',
                                concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster (on $_[1])',
                                contomany => 'Sorry $_[0] but you are already connected to $_[1] other nodes (on $_[2])',
@@ -110,6 +111,7 @@ package DXM;
                                e35 => 'You are not a member of $_[0], join $_[0]',
                                e36 => 'You can only do this in normal user prompt state',
                                e37 => 'Need at least a callsign',
+                               e38 => 'This is not a valid regex',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -205,8 +207,9 @@ package DXM;
                                m17 => 'Sorry, cannot send messages in $_[0] mode',
                                m18 => 'Sorry, message $_[0] is currently set to KEEP',
                                m19 => 'Startup Script for $_[0] saved, $_[1] lines',
-                               m20 => 'Empty Startup Script for $_[0] deleted',
+                               m20 => 'Startup Script for $_[0] deleted',
                                m21 => '$_[0] Working...',
+                               m22 => 'Startup Script for $_[0] not found/error $!',
                                maxconnect => 'Max connections on $_[0] set to $_[1]',
                                msg1 => 'Bulletin Messages Queued',
                                msg2 => 'Private Messages Queued',