From b79a0873dd3223490cf6aaf5b4b0cf9d2c4a420f Mon Sep 17 00:00:00 2001
From: Joe Carstairs <me@joeac.net>
Date: Tue, 16 Jun 2026 21:56:01 +0100
Subject: [PATCH] can pass PATH_PATTERN to mkws

---
 http/bin/mkws | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/http/bin/mkws b/http/bin/mkws
index 83e3821..78b2473 100755
--- a/http/bin/mkws
+++ b/http/bin/mkws
@@ -2,7 +2,7 @@
 export PATH="$(dirname $(realpath $0)):$PATH"
 
 usage() {
-	>&2 printf "usage: %s url [path]\\n" "$(basename "$0")"
+	>&2 printf "usage: %s url [pattern]\\n" "$(basename "$0")"
 	exit 1
 }
 
@@ -30,7 +30,8 @@ then
 	exit 1
 fi
 
-for t in $(find -L "${SRC}/" -type f -and -name "*\.upp*" -and -not -name "*\.upp*\.*")
+PATH_PATTERN="${2:-*}"
+for t in $(find -L "${SRC}/" -type f -and -wholename "${PATH_PATTERN}" -and -name "*\.upp*" -and -not -name "*\.upp*\.*")
 do
   basename="$(basename "$t")"
   ext="${basename##*upp}"