add set/believe code

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index d48c7d9a7509591d20f94abc37ade6ac624e4b79..e7356ba2381420bdcd308100b62ca961161fc8a2 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -24,6 +24,8 @@ 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])',
@@ -318,6 +320,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',