added unset/hops command

[spider.git] / perl / Messages

diff --git a/perl/Messages b/perl/Messages
index a0308c562920b96356dd04e65d3813002f54f284..e5a123fc4013fdcc6a0789e256150a1f6dbc0dd7 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -264,6 +264,8 @@ package DXM;
                                talknh => 'Sorry $_[0] is not online at the moment',
                                talkprompt => 'Talk ($_[0])>',
                                talkstart => 'Starting talking to you',
+                               unsethop1 => 'usage: unset/hops <call> ann|spots|wwv|wcy',
+                               unsethop2 => 'hops unset on $_[1] for $_[0]', 
                                usernf => '*** User record for $_[0] not found ***',
                                wwvs => 'WWV flag set on $_[0]',
                                wwvu => 'WWV flag unset on $_[0]',
@@ -641,14 +643,14 @@ package DXM;
                        badnode2 => '$_[0] ist nun ein good node',
                        badnode3 => 'Liste der Bad Nodes:-',
                        bbse1 => 'Bitte die BBS Adresse eingeben,, set/bbs <your bbs address>',
-                       bbs => 'Deine BBS Adresse ist nun \"$_[0]\"'
+                       bbs => 'Deine BBS Adresse ist nun \"$_[0]\"',
                        beepoff => 'Beeps sind nun aus',
                        beepon => 'Beeps sind nun eingeschaltet',
                        call1 => 'Callsign lookup via $_[0]:',
                        conother => 'Sorry $_[0] Du bist zu mir auf einem anderen Port connected',
                        concluster => 'Sorry $_[0] Du bist schon anderswo in einem Cluster connected (on $_[1])',
                        conscript => 'Kein connect script mit Namen \"$_[0]\" gefunden in $main::root/connect',
-                       confail => 'Verbindung zu $_[0] misslungen ($_[1])'
+                       confail => 'Verbindung zu $_[0] misslungen ($_[1])',
                        constart => 'Verbindung zu $_[0] gestartet',
                        deluser => 'User $_[0] wurde geloescht',
                        db1 => 'Diese Datenbank ist untergebracht bei $_[0]',
@@ -709,7 +711,7 @@ package DXM;
                        echooff => 'Echo disabled',
                        echow => '*Echo ist im moment disabled, set/echo to enable',
                        emaile1 => 'Bitte email Addresse eingeben, set/email <Deine e-mail Adresse>',
-                       emaila => 'Deine E-Mail Adresse ist nun \"$_[0]\"'
+                       emaila => 'Deine E-Mail Adresse ist nun \"$_[0]\"',
                        email => 'E-mail Adresse gesetzt auf: $_[0]',
                        export1 => 'Gebrauch: export <msgno> <dateiname>',
                        export2 => '$_[3] has error exporting msg $_[0]to $_[1] ($_[2])',