1  <?php // $Id: moodlelib.php,v 1.565.2.51 2006/01/10 01:19:28 mjollnir_ Exp $

***Original function
5790  
5791  /**
5792   * Function to check the passed address is within the passed subnet
5793   *
5794   * The parameter is a comma separated string of subnet definitions.
5795   * Subnet strings can be in one of two formats:
5796   *   1: xxx.xxx.xxx.xxx/xx
5797   *   2: xxx.xxx
5798   * Code for type 1 modified from user posted comments by mediator at
5799   * {@link http://au.php.net/manual/en/function.ip2long.php}
5800   *
5801   * @param string $addr    The address you are checking
5802   * @param string $subnetstr    The string of subnet addresses
5803   * @return boolean
5804   */
5805  function address_in_subnet($addr, $subnetstr) {
5806  
5807      $subnets = explode(',', $subnetstr);
5808      $found = false;
5809      $addr = trim($addr);
5810  
5811      foreach ($subnets as $subnet) {
5812          $subnet = trim($subnet);
5813          if (strpos($subnet, '/') !== false) { /// type 1
5814  
5815              list($ip, $mask) = explode('/', $subnet);
5816              $mask = 0xffffffff << (32 - $mask);
5817              $found = ((ip2long($addr) & $mask) == (ip2long($ip) & $mask));
5818  
5819          } else { /// type 2
5820              $found = (strpos($addr, $subnet) === 0);
5821          }
5822  
5823          if ($found) {
5824              break;
5825          }
5826      }
5827  
5828      return $found;
5829  }


/**
 * Function to check the passed address is within the passed subnet
 *
 * The parameter is a comma separated string of subnet definitions.
 * Subnet strings can be in one of three formats:
 *   1: xxx.xxx.xxx.xxx/xx
 *   2: xxx.xxx
 *   3: xxx.xxx.xxx.xxx-xxx   //a range of IP addresses < 256
 * Code for type 1 modified from user posted comments by mediator at
 * {@link http://au.php.net/manual/en/function.ip2long.php}
 *
 * @param string $addr    The address you are checking
 * @param string $subnetstr    The string of subnet addresses
 * @return boolean
 */
function address_in_subnet($addr, $subnetstr) {

    $subnets = explode(',', $subnetstr);
    $found = false;
    $addr = trim($addr);

    foreach ($subnets as $subnet) {
        $subnet = trim($subnet);
        if (strpos($subnet, '/') !== false) { /// type 1
            list($ip, $mask) = explode('/', $subnet);
            $mask = 0xffffffff << (32 - $mask);
            $found = ((ip2long($addr) & $mask) == (ip2long($ip) & $mask));
        } else if (strpos($subnet, '-') !== false)  {/// type 3
            $dashpos = strpos($subnet, '-');
            if ($dashpos > 0) {  //
                $dotpos = strrpos($subnet,"."); // find last dot in ip address
                $commonstring = substr($subnet,0,$dotpos);
                $startno = substr($subnet,$dotpos+1,$dashpos-$dotpos-1);
                $endno = substr($subnet,$dashpos+1,3);
                $adddotpos = strrpos($addr, '.');
                $addsub = substr($addr,0,$adddotpos);
                if(substr($addr,0,$adddotpos) ==  $commonstring) {
                    $addrlastpart = substr($addr,$adddotpos+1,3);
                    if(($startno <= $addrlastpart) && ($endno >= $addrsubstr)){
                        $found = true;
                    }
                }
            }
        } else { /// type 2
            $found = (strpos($addr, $subnet) === 0);
        }

        if ($found) {
            break;
        }
    }
    return $found;
}