@CACHES=qw/sj pb uc bo sv sd pa rtp ny/;

foreach $f ( @CACHES ) {
	PAC($f);
	foreach $s ( @CACHES ) {
		next if ($s eq $f);
		PAC($f,$s);
	}
}

sub PAC {
	local(@c) = @_;
	local($F)=join('-',@c) . '.pac';
	open (F, ">$F") || die "$F: $!";
	print F <<EOF;
function FindProxyForURL(url, host)
{
    if (isPlainHostName(host))
        return "DIRECT";
    if (!isResolvable(host))
        return "DIRECT";
EOF
	local($p);
	local($c);
	foreach $p (qw/http: ftp: gopher:/) {
		printf F "\tif (url.substring(0, %d) == \"%s\")\n", length($p), $p;
		printf F "\t\treturn \"";
		foreach $c (@c) {
			printf F "PROXY %s.us.ircache.net:3128; ", $c;
		}
		printf F "DIRECT\";\n";
	}

	print F <<EOF;
    return "DIRECT";
}
EOF
	close(F);
}