Accept-Language header: ',$_SERVER['HTTP_ACCEPT_LANGUAGE'],"\n"; echo '

Parsed languages: ',join('|', Platon::parse_HTTP_accept_language()),"\n"; echo '

Top level domain: ',Platon::get_top_level_domain('maxim.platon.sk'),"\n"; echo '

Resulted language: ',$lng,"\n\n"; echo '

',"\n\n";

if (($f = @fopen('lang.txt', 'r')) == false) {
	die('file not found');
}

while (($str = fgets($f, 4096)) !== false) {
	$str = trim($str);
	$ar  = Platon::parse_HTTP_accept_language($str);
	$lng = Platon::negotiate_language($languages, $str, null);
	$lng = strtoupper($lng);
	echo $str,"\n [",$lng,'] [',join('|', $ar),"]\n";
}

echo "\n",'