From 8bc5ceb44109c59f200655a62cb875d58b7d4df0e5be0477c3473284c861b4ab Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 15 Aug 2025 11:38:10 +0300
Subject: [PATCH] Stricter length checks

---
 schema/net/*/check        | 4 ++--
 schema/srv/*/check        | 4 ++--
 schema/sys/hostname/check | 4 ++--
 schema/ui/password/check  | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/schema/net/*/check b/schema/net/*/check
index 0d492a1..d03dd79 100755
--- a/schema/net/*/check
+++ b/schema/net/*/check
@@ -1,8 +1,8 @@
 #!/usr/bin/env tclsh8.6
 
 set n [read -nonewline stdin]
-if {! [regexp {^[a-z0-9]+$} $n]} {
-    puts {does not match ^[a-z0-9]+$}
+if {! [regexp {^[a-z0-9]{1,16}$} $n]} {
+    puts {does not match ^[a-z0-9]{1,16}$}
     exit 1
 }
 puts $n
diff --git a/schema/srv/*/check b/schema/srv/*/check
index 0f8cef8..18ad9a9 100755
--- a/schema/srv/*/check
+++ b/schema/srv/*/check
@@ -1,8 +1,8 @@
 #!/usr/bin/env tclsh8.6
 
 set n [read -nonewline stdin]
-if {! [regexp {^[.A-Za-z0-9_-]+$} $n]} {
-    puts {does not match ^[.A-Za-z0-9_-]+$}
+if {! [regexp {^[.A-Za-z0-9_-]{1,32}$} $n]} {
+    puts {does not match ^[.A-Za-z0-9_-]{1,32}$}
     exit 1
 }
 puts $n
diff --git a/schema/sys/hostname/check b/schema/sys/hostname/check
index a90bf84..4df8a41 100755
--- a/schema/sys/hostname/check
+++ b/schema/sys/hostname/check
@@ -4,8 +4,8 @@ set n [read -nonewline stdin]
 if {$n == ""} {
     set n unknown
 }
-if {! [regexp {^[a-z0-9]+$} $n]} {
-    puts {does not match ^[a-z0-9]+$}
+if {! [regexp {^[a-z0-9]{1,32}$} $n]} {
+    puts {does not match ^[a-z0-9]{1,32}$}
     exit 1
 }
 puts $n
diff --git a/schema/ui/password/check b/schema/ui/password/check
index f396097..33bfac0 100755
--- a/schema/ui/password/check
+++ b/schema/ui/password/check
@@ -4,8 +4,8 @@ set passwd [read -nonewline stdin]
 if {$passwd == ""} {
     set passwd admin
 }
-if {! [regexp {^[0-9a-z-]+$} $passwd]} {
-    puts {does not match ^[0-9a-z-]+$}
+if {! [regexp {^[0-9a-z-]{1,64}$} $passwd]} {
+    puts {does not match ^[0-9a-z-]{1,64}$}
     exit 1
 }
 puts $passwd
-- 
2.50.0