$sip4=$_SERVER[?REMOTE_ADDR?];
//AS31614 194.42.114.0/23, 195.128.0.0/22 http://www.cidr-report.org/cgi-bin/as-report?
$apfx[0]=?195.128.?;
$apfx[1]=?195.129.?;
$apfx[2]=?195.130.?;
$apfx[3]=?195.131.?;
$apfx[4]=?194.42.114.?;
$apfx[5]=?194.42.115.?;
// $npfx gets postive $apfx[#] if REMOTE_ADDDR is out of an ecb subnet else 0
$npfx=0;
while (($apfx[$npfx] != NULL) && ($apfx[$npfx] != ??) && ($npfx >= 0)) {
if ( strlen($apfx[$npfx]) <= strlen($sip4) ) {
if ($apfx[$npfx] == substr($sip4, 0, strlen($apfx[$npfx]))) {
$npfx = ($npfx * -1);
} else {
$npfx++;
}
} else {
$npfx++;
}
}
if ($npfx < 0) { $npfx = ($npfx * -1); } else { $npfx = 0; };
