add missing prs message

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index d48c7d9a7509591d20f94abc37ade6ac624e4b79..2dfbba8024a239182b65a63e43344d1aa236147a 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -24,12 +24,15 @@ package DXM;
                                bbs => 'Your BBS Address is now \"$_[0]\"',
                                beepoff => 'Beeps are now off',
                                beepon => 'Beeps are now on',
+                               believes => 'Believe node $_[0] via $_[1]',
+                               believeu => 'Don\'t believe node $_[0] via $_[1]', 
                                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 $_[1])',
                                conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
                                confail => 'connection to $_[0] failed ($_[1])',
                                constart => 'connection to $_[0] started',
+                               conbump => 'Reconnected as $_[0] at $_[1], this instance is disconnected',
                                deluser => 'User $_[0] has been deleted',
                                db1 => 'This database is hosted at $_[0]',
                                db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
@@ -95,6 +98,7 @@ package DXM;
                                e33 => '$_[0] is not a number of days or a valid date',
                                e34 => 'Need a GROUP and some text',
                                e35 => 'You are not a member of $_[0], join $_[0]',
+                               e36 => 'You can only do this in normal user prompt state',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -168,9 +172,9 @@ package DXM;
                                m5 => 'Sorry, I need a message number', 
                                m6 => 'Reply to: $_[0]',
                                m7 => 'Subject : $_[0]',
-                               m8 => 'Enter Message /EX to send or /ABORT to exit',
+                               m8 => 'Enter lines of text, /EX to send or /ABORT to exit',
                                m9 => 'New mail has arrived for you',
-                               m10 => 'Message Aborted',
+                               m10 => 'Message/Script Aborted',
                                m11 => 'Message no $_[0] saved and directed to $_[1]',
                                m12 => 'Message no $_[0] deleted',
                                m13 => 'Message no $_[0] missing',
@@ -179,6 +183,8 @@ package DXM;
                                m16 => 'Need a Message number',
                                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',
                                msg1 => 'Bulletin Messages Queued',
                                msg2 => 'Private Messages Queued',
                                msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
@@ -225,9 +231,8 @@ package DXM;
                                pinge1 => 'Cannot ping yourself!',
                                pingint => 'Ping interval on $_[0] set to $_[1] secs',
                                'pos' => 'From Callsign: $_[0] Lat: $_[1] Long: $_[2]',
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
-                               prs => 'Prompt now set to \"$_[0]\"',
+                               pr => '%C de %M %D %T dxspider >',
+                               prs => 'Prompt is changed',
                                pru => 'Prompt now set back to default',
                                priv => 'Privilege level changed on $_[0]',
                                prx => '$main::mycall >',
@@ -318,6 +323,8 @@ package DXM;
                                wpc16u => 'Allow PC16 from $_[0] disabled',
                                wpc19s => 'Route PC19 for $_[0] enabled',
                                wpc19u => 'Route PC19 for $_[0] disabled',
+                               wpc90s => 'PC90 for $_[0] enabled',
+                               wpc90u => 'PC90 for $_[0] disabled',
                                wwv1 => '$_[0] is missing or out of range',
                                wwv2 => 'Duplicate WWV',
                                wwv3 => 'Date        Hour   SFI   A   K Forecast                               Logger',