Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.128 -r1.129
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	11 Sep 2024 06:15:48 -0000	1.128
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	26 Nov 2024 08:18:55 -0000	1.129
@@ -3067,27 +3067,6 @@
         # returned.
         #
         set validationOk [expr {![ns_ip public [ns_addrbyhost $host]]}]
-
-    } elseif {[acs::icanuse "ns_subnetmatch"]} {
-        #
-        # Test for older versions of NaviServer testing if value is an
-        # IP address belonging to a "private network".
-        #
-        try {
-            ns_subnetmatch 0.0.0.0/0 $host
-        } on error {errorMsg} {
-            set ip_address_p 0
-        } on ok {ip_address_p} {
-        }
-        if {$ip_address_p} {
-            if {[ns_subnetmatch 10.0.0.0/8 $host]
-                || [ns_subnetmatch 172.16.0.0/12 $host]
-                || [ns_subnetmatch 192.168.0.0/16 $host]
-                || [ns_subnetmatch fd00::/8 $host]
-            } {
-                return 1
-            }
-        }
     }
 
     return 0