Support for Classless IN-ADDR.ARPA delegation (RFC2317) about ona HOT 2 CLOSED

$ diff functions_db.inc.php-v10.05.27 functions_db.inc.php 
1672a1673,1702
> 
> if ($status == 0 and $parts[0] === "arpa") { // check the PTR domain for classless (CIDR) subnet that suits the ip, for example ip=192.168.1.2, domain=0/25.1.168.192.in-addr.arpa
> $ip = implode('.', $parts); // now we have something like arpa.in-addr.192.168.1.2
> $ip = str_replace("arpa.in-addr.", '', $ip); // get pure ip, for example 192.168.1.2. We gonna find a subnet for this ip
> list($localPart, $parent_domain) = explode('.', $fqdn,2); // taking the parent domain name, i.e. 1.168.192.in-addr.arpa
> list($exit_status, $number_of_rows, $record) = ona_get_domain_record("name LIKE '%.{$parent_domain}'"); // grab classless sub-domains. Example: 0/25.1.168.192.in-addr.arpa
> $i=0;
> while($i < $number_of_rows) { // walk through all subdomains
> $i++;
> list($subnet_def, $class_subnet) = explode('.', $record['fqdn'], 2); // get subnet defenition, i.e. $subnet_def='0/25', and $class_range=1.168.192.in-addr.arpa
> $split_characters = '\/\-'; // subnet defenition symbols. Currently '/' or '-' can be used
> if (1 == preg_match("/(\d+)[$split_characters](\d+)/", $subnet_def, $matches)) { // yes, we have a CIDR. Let's check if ip is within this CIDR
> $subnet = $matches[1]; // here we pop '0' (last octet of the ip range) from '0/25' string
> $subnet = implode('.', array_reverse(explode('.', $class_subnet)) ) . $subnet; // now we have something like arpa.in-addr.192.168.1.0
> $subnet = str_replace("arpa.in-addr.",'',$ip); // finally we have normal subnet 192.168.1.0
> $subnet_dec = ip2long($subnet); // convert 192.168.1.0 to its decimal representation
> $ip_dec = ip2long($ip); // the same for IP
> $netmask = $matches[2]; // get the netmask length, i.e. '25'
> printmsg("DEBUG => ona_find_domain({$fqdn}). Subnet: {$subnet} Netmask: {$netmask} Matches: ".var_export($matches,true), 3);
> $wildcard_dec = pow(2, (32-$netmask)) - 1;
> $netmask_dec = ~ $wildcard_dec; // decimal netmask
> if (($ip_dec & $netmask_dec) == ($subnet_dec & $netmask_dec)) { // check if both ip and subnet are within the netmask
> $domain = $record;
> printmsg("DEBUG => ona_find_domain({$fqdn}) Found: {$domain['fqdn']}", 3);
> }
> }
> list($exit_status, $number_of_rows, $domain) = ona_get_domain_record("name LIKE '%.{$parent_domain}'"); // get the next row
> }
> }
>