From 399d826c56c029796a5c0b397c61a51dfb81ff77 Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 15 Mar 1999 21:16:26 +0000 Subject: [PATCH] added an extra sorry --- cmd/Commands_en.hlp | 32 ++++++++++++++++++-------------- perl/DXCommandmode.pm | 2 ++ perl/DXProt.pm | 1 + 3 files changed, 21 insertions(+), 14 deletions(-) diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index a9e0e9f2..20d92d15 100644 --- a/cmd/Commands_en.hlp +++ b/cmd/Commands_en.hlp @@ -289,9 +289,10 @@ If you are a sysop and you come in as a normal user on a remote connection your privilege will automatically be set to 0. === 9^SET/PASSWORD ^Set a users password -The password for a user can only be set by a full sysop. The string can contain -any characters but any spaces are removed (you can type in spaces - but they -won't appear in the password). You can see the result with STAT/USER. +The password for a user can only be set by a full sysop. The string +can contain any characters but any spaces are removed (you can type in +spaces - but they won't appear in the password). You can see the +result with STAT/USER. === 0^SET/QRA ^Set your QRA locator === 9^SET/SYS_QRA ^Set your cluster QRA locator @@ -386,15 +387,17 @@ and stuff. Only the fields that are defined (in perl term) will be displayed. === 0^SYSOP^Regain your privileges if you login remotely -The system automatically reduces your privilege level to that of a normal user -if you login in remotely. This command allows you to regain your normal privilege -level. It uses the normal system: five numbers are returned that are indexes into -the character array that is your assigned password (see set/password). The indexes -start from zero. - -You are expected to return a string which contains the characters required in the -correct order. You may intersperse those characters with others to obscure your -reply for any watchers. For example (and these values are for explanation :-): +The system automatically reduces your privilege level to that of a +normal user if you login in remotely. This command allows you to +regain your normal privilege level. It uses the normal system: five +numbers are returned that are indexes into the character array that is +your assigned password (see SET/PASSWORD). The indexes start from +zero. + +You are expected to return a string which contains the characters +required in the correct order. You may intersperse those characters +with others to obscure your reply for any watchers. For example (and +these values are for explanation :-): password = 012345678901234567890123456789 > sysop @@ -404,8 +407,9 @@ aa2bbbb0ccc5ddd7xxx3n or 2 0 5 7 3 or 20573 -They will all match. If there is no password you will still be offered numbers but -nothing will happen when you input a string. Any match is case sensitive. +They will all match. If there is no password you will still be offered +numbers but nothing will happen when you input a string. Any match is +case sensitive. === 0^TALK ^Send a text message to another station === 0^TALK > ^Send a text message to another station via a node diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index d05af70a..f9981349 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -144,6 +144,8 @@ sub normal } else { $self->send($self->msg('sorry')); } + } else { + $self->send($self->msg('sorry')); } delete $self->{passwd}; $self->state('prompt'); diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 7f145114..6d9afb4e 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -403,6 +403,7 @@ sub normal # queue mail DXMsg::queue_msg(0); + return; } -- 2.34.1