make Internet.pm return a 1

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 0840c93f5822328830441e329151d7de9c7180a2..8494c7daebb42e30fa6fd017c8f64319c85c6c41 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -14,11 +14,14 @@ package DXM;
                 already => '$_[0] already connnected',
                                anns => 'Announce flag set on $_[0]',
                                annu => 'Announce flag unset on $_[0]',
+                               badnode1 => '$_[0] is now a bad node',
+                               badnode2 => '$_[0] is now a good node',
+                               badnode3 => 'List of Bad Nodes:-',
                                bbse1 => 'Please enter your BBS address,, set/bbs <your bbs address>',
                                bbs => 'Your BBS Address is now \"$_[0]\"',
                                beepoff => 'Beeps are now off',
                                beepon => 'Beeps are now on',
-                               call1 => 'Callsign lookup via Pineknot:',
+                               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',
                                conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
@@ -66,6 +69,7 @@ package DXM;
                                e21 => '$_[0] not numeric',
                                e22 => '$_[0] not a callsign',
                                e23 => '$_[0] not a range (eg 0/30000)', 
+                               e24 => 'Sorry, Internet access is not enabled',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',