1. fixed problem with missing DXDebug in DXProt.

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index 16ad509edcd0af3700030e76206ee6cfac161ce9..e43667bf14c7f2d680bc6960679bdf57848c77aa 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -39,6 +39,8 @@ package DXM;
                                e8 => 'Need a callsign and some text',
                                e9 => 'Need at least some text',
                                e10 => '$_[0] not connected locally',
+                               e12 => 'Need a node callsign',
+                               e13 => '$_[0] is not a node',
                                emaile1 => 'Please enter your email address, set/email <your e-mail address>',
                                emaila => 'Your E-Mail Address is now \"$_[0]\"',
                                email => 'E-mail address set to: $_[0]',
@@ -51,18 +53,24 @@ package DXM;
                                homenode => 'Home Node set to: $_[0]',
                                hnodee1 => 'Please enter your Home Node, set/homenode <your home DX Cluster>',
                                hnode => 'Your Homenode is now \"$_[0]\"',
+                               iso => '$_[0] Isolated',
+                               isou => '$_[0] UnIsolated',
+                               isoc => '$_[0] created and Isolated',
                                l1 => 'Sorry $_[0], you are already logged on on another channel',
                                l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
+                               lh1 => '$main::data/hop_table.pl doesn\'t exist',
                                loce1 => 'Please enter your location,, set/location <latitude longitude>',
                                loce2 => 'Don\'t recognise \"$_[0]\" as a Lat/Long (eg 52 20 N 0 16 E)',
                                loc => 'Your Lat/Long is now \"$_[0]\"',
                                lockout => '$_[0] Locked out',
                                lockoutun => '$_[0] Unlocked',
                                m2 => '$_[0] Information: $_[1]',
+                               merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
                                namee1 => 'Please enter your name, set/name <your name>',
                                namee2 => 'Can\'t find user $_[0]!',
                                name => 'Your name is now \"$_[0]\"',
                                node => '$_[0] set as AK1A style Node',
+                               nodeu => '$_[0] set back as a User',
                                nodec => '$_[0] created as AK1A style Node',
                                nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
                                ok => 'Operation successful',