---

Class ::xowf::IpRange

::xowf::IpRange create ... \
           [ -allowed (default "") ] \
           [ -disallowed (default "") ] \
           [ -title (default "") ]

Class representing a range of IPs to be used to enforce access control.

Defined in packages/xowf/tcl/iprange-procs.tcl

Class Relations

• class: ::nx::Class
• superclass: ::nx::Object

::nx::Class create ::xowf::IpRange \
     -superclass ::nx::Object

Methods (to be applied on instances)

• allow_access (scripted, public)

   <instance of xowf::IpRange> allow_access ip

  Check, if provided IP address is in the provided ranges of disallowed or allowed addresses. First, the explicitly disallowed addresses are checked, then the explicitly allowed ones. Addresses can be specified in the following formats:

  • IP address in CIDR format (e.g., 127.208.0.0/16)
  • IP address containing wildcard "*"
  • literal IP address

  Parameters:

  ip (required)

  Returns:

  boolean value expressing success

  Testcases:

  No testcase defined.

  foreach spec ${:disallowed} {
    if {[:match $spec $ip]} {
      return 0
    }
  }
  
  foreach spec ${:allowed} {
    if {[:match $spec $ip]} {
      return 1
    }
  }
  return 0

---