From d572c34d7d49a76310446ca0ccae4fbbaceb8224 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 2 Mar 2023 12:11:09 +0000 Subject: [PATCH] fix sh/dx/30 problem --- Changes | 2 ++ perl/DXCommandmode.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 1a646f84..38eaec52 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +02Mar23======================================================================= +1. Fix sh/dx/30 problem. I.e. allow old style version of sh/dx 30. 01Mar23======================================================================= 1. Revert PC92 A D and PC92 C record flags back to defaults. 2. Deal with users that send gibberish. diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 9b3a371b..d2f4a4ff 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -541,7 +541,7 @@ sub run_cmd $cmd =~ s|//+|/|g; # check for length of whole command line and any invalid characters - if (length $cmdline > $maxcmdlth || $cmd =~ m|\.| || $cmd !~ m|^\w+(?:/\w+){0,1}$|) { + if (length $cmdline > $maxcmdlth || $cmd =~ m|\.| || $cmd !~ m|^\w+(?:/\w+){0,1}(?:/\d+)?$|) { LogDbg('DXCommand', "cmd: $self->{call} - invalid characters in '$cmd'"); return $self->_error_out('e40'); } -- 2.43.0