From a60740aaf40bd0193a47f7b2296b106e2340940b Mon Sep 17 00:00:00 2001 From: Jacob Bachmeyer Date: Fri, 28 Apr 2023 18:35:56 -0500 Subject: [PATCH] Copy filename validation patterns to keymaster --- gatekeeper.pl | 1 + keymaster.pl | 4 ++++ 2 files changed, 5 insertions(+) diff --git a/gatekeeper.pl b/gatekeeper.pl index 956d1a8..c32e34a 100755 --- a/gatekeeper.pl +++ b/gatekeeper.pl @@ -772,6 +772,7 @@ my $RE_filename_here = qr/[[:alnum:]][-.[:alnum:]_+~]*/; # a trailing slash is not allowed # a leading slash is not allowed my $RE_filename_relative = qr[$RE_filename_here(?:/$RE_filename_here)*]; +# These patterns are also copied in the keymaster; keep them matched. # limit on the length of a filename that will be processed use constant MAX_FILE_NAME_LEN => 100; diff --git a/keymaster.pl b/keymaster.pl index 2de850f..c91f619 100755 --- a/keymaster.pl +++ b/keymaster.pl @@ -111,6 +111,10 @@ use Text::Wrap; use Pod::Usage; use Getopt::Long; +# file name validation patterns copied from gatekeeper; keep them matched +my $RE_filename_here = qr/[[:alnum:]][-.[:alnum:]_+~]*/; +my $RE_filename_relative = qr[$RE_filename_here(?:/$RE_filename_here)*]; + =head1 INTERNALS This section catches the internal documentation for internal functions -- 2.25.1