Index: openacs-4/packages/xowf/tcl/iprange-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/Attic/iprange-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xowf/tcl/iprange-procs.tcl	20 Mar 2022 19:47:19 -0000	1.1.2.1
+++ openacs-4/packages/xowf/tcl/iprange-procs.tcl	12 Sep 2022 13:45:42 -0000	1.1.2.2
@@ -6,15 +6,15 @@
   typically site specific, it is expected that sites define
   interesting IP ranges (such as e.g., WLAN, on-site, VPN, ...) in the
   iprange-init.tcl file.
-  
+
   @author Gustaf Neumann
 }
 
 namespace eval ::xowf {
   nx::Class create IpRange {
     :property {allowed ""}
     :property {disallowed ""}
-    :property {title ""}    
+    :property {title ""}
 
     :method match {spec ip} {
       if {[string first / $spec] > -1 && [ns_subnetmatch $spec $ip]} {
@@ -26,7 +26,7 @@
       }
       return 0
     }
-    
+
     :public method allow_access {ip} {
       #
       # Check, if provided IP address is in the provided ranges of
@@ -40,7 +40,7 @@
       #  <li> literal IP address
       # </ul>
       # @return boolean value expressing success
-      
+
       foreach spec ${:disallowed} {
         if {[:match $spec $ip]} {
           return 0