<?
echo '
// Proxy autoconfiguration with direct UA-IX networks
// tech-c: i@abc.ua
// $Id$
';
error_reporting(0);

if( $def == '' ) $def = 'DIRECT';
$p32=pow(2,32);

$ua = array();

function LoadUa($url = 'list.html'){
global $ua;

	$n = 0;
	echo "\n// Download network list from $url\n";

	if( $fp = @fopen($url, 'r') ){
		while($l = fgetss($fp,4096)){
			if(preg_match('/([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\/([0-9]+)/', $l, $m)){
				$ua[$m[1]]=Mask2Netmask($m[2]);
				// echo "IP: ${m[1]}  / ${m[2]}   m: ".$ua[$m[1]] ."\n";
				$n++;
			}
		}
		fclose($fp);
		echo "\n// Detected $n prefixes\n";
		if( $n > 0 ) return TRUE;
	} else echo "\n// Unable to open file $url. Please contact to mailto:i@abc.ua.\n";
	return FALSE;
}
function Mask2Netmask($mask){
  global $p32;
	return implode(".",array_reverse(unpack("C4",pack("L", $p32 - pow(2, 32 - $mask)))));
}
echo 'function FindProxyForURL(url, host)
{
    if (isPlainHostName(host))
      return "DIRECT";
';

if( LoadUa('http://dg.ip.net.ua/list.html') ) {
	echo '  if ( ';
	foreach( $ua as $ip => $nm ){
		echo '		isInNet(dnsResolve(host), "' . $ip .'", "'. $nm .'") || '."\n";
	}
	echo '
      isPlainHostName(host))
    return "DIRECT";
  else
    return "PROXY proxy.abc.ua:3128; " + "DIRECT";
';
} // if LoadUa...

echo '}
';
?>