<?php
	// ブラウザの言語一覧
	$LANG_NAME{"is"}	=	"en";		//アイスランド語 
	$LANG_NAME{"ga"}	=	"en";		//アイルランド語 
	$LANG_NAME{"af"}	=	"en";		//アフリカーンス語 
	$LANG_NAME{"sq"}	=	"en";		//アルバニア語 
	$LANG_NAME{"it"}	=	"en";		//イタリア語 
	$LANG_NAME{"it-ch"}	=	"en";		//イタリア語 
	$LANG_NAME{"id"}	=	"id";		//インドネシア語 
	$LANG_NAME{"uk"}	=	"en";		//ウクライナ語 
	$LANG_NAME{"nl"}	=	"en";		//オランダ語 
	$LANG_NAME{"nl-be"}	=	"en";		//オランダ語/ベルギー語 
	$LANG_NAME{"ca"}	=	"en";		//カタロニア語 
	$LANG_NAME{"gl"}	=	"en";		//ガリチア語 
	$LANG_NAME{"el"}	=	"en";		//ギリシア語 
	$LANG_NAME{"hr"}	=	"en";		//クロアチア語 
	$LANG_NAME{"sv"}	=	"en";		//スウェーデン語 
	$LANG_NAME{"gd"}	=	"en";		//スコッチ ゲール語 
	$LANG_NAME{"es"}	=	"en";		//スペイン語 
	$LANG_NAME{"es-ar"}	=	"en";		//スペイン語/アルゼンチン 
	$LANG_NAME{"es-co"}	=	"en";		//スペイン語/コロンビア 
	$LANG_NAME{"es-es"}	=	"en";		//スペイン語/スペイン 
	$LANG_NAME{"es-mx"}	=	"en";		//スペイン語/メキシコ 
	$LANG_NAME{"sk"}	=	"en";		//スロヴァキア語 
	$LANG_NAME{"sl"}	=	"en";		//スロヴェニア語 
	$LANG_NAME{"sr"}	=	"en";		//セルビア語 
	$LANG_NAME{"cs"}	=	"en";		//チェコ語 
	$LANG_NAME{"da"}	=	"en";		//デンマーク語 
	$LANG_NAME{"de"}	=	"en";		//ドイツ語 
	$LANG_NAME{"de-at"}	=	"en";		//ドイツ語/オーストリア 
	$LANG_NAME{"de-ch"}	=	"en";		//ドイツ語/スイス 
	$LANG_NAME{"de-de"}	=	"en";		//ドイツ語/ドイツ 
	$LANG_NAME{"tr"}	=	"en";		//トルコ語 
	$LANG_NAME{"no"}	=	"en";		//ノルウェー語 
	$LANG_NAME{"eu"}	=	"en";		//バスク語 
	$LANG_NAME{"hu"}	=	"en";		//ハンガリー語 
	$LANG_NAME{"fi"}	=	"en";		//フィンランド語 
	$LANG_NAME{"fo"}	=	"en";		//フェロー語 
	$LANG_NAME{"fr"}	=	"en";		//フランス語 
	$LANG_NAME{"fr-ca"}	=	"en";		//フランス語/カナダ 
	$LANG_NAME{"fr-ch"}	=	"en";		//フランス語/スイス 
	$LANG_NAME{"fr-fr"}	=	"en";		//フランス語/フランス 
	$LANG_NAME{"fr-be"}	=	"en";		//フランス語/ベルギー 
	$LANG_NAME{"bg"}	=	"en";		//ブルアリア語 
	$LANG_NAME{"pl"}	=	"en";		//ポーランド語 
	$LANG_NAME{"pt"}	=	"en";		//ポルトガル語 
	$LANG_NAME{"pt-br"}	=	"en";		//ポルトガル語/ブラジル 
	$LANG_NAME{"mk"}	=	"en";		//マケドニア語 
	$LANG_NAME{"ro"}	=	"en";		//ルーマニア語 
	$LANG_NAME{"ru"}	=	"en";		//ロシア語 
	$LANG_NAME{"en"}	=	"en";		//英語 
	$LANG_NAME{"en-gb"}	=	"en";		//英語/英国 
	$LANG_NAME{"en-us"}	=	"en";		//英語/米国 
	$LANG_NAME{"ko"}	=	"en";		//韓国語 
	$LANG_NAME{"zh"}	=	"cn";		//中国語 
	$LANG_NAME{"zh-tw"}	=	"tw";		//中国語/台湾 
	$LANG_NAME{"zh-sg"}	=	"cn";		//中国語/ｼﾝｶﾞﾎﾟｰﾙ 
	$LANG_NAME{"zh-mo"}	=	"cn";		//中国語/マカオ 
	$LANG_NAME{"zh-hk"}	=	"cn";		//中国語/香港 
	$LANG_NAME{"zh-cn"}	=	"cn";		//中国語/中国 
	$LANG_NAME{"ja"}	=	"en";		//日本語 
	$LANG_NAME{"be"}	=	"en";		//白ロシア語 
	$LANG_NAME{"ms"}	=	"en";		//マレー語(マレーシア) 
	$LANG_NAME{"th"}	=	"th";		//タイ語 


	if( $_SERVER["SERVER_NAME"] != "" ){
		$_ENV["SERVER_NAME"] = $_SERVER["SERVER_NAME"];
	}
	if( $_SERVER["HTTP_ACCEPT_LANGUAGE"] != "" ){
		$_ENV["HTTP_ACCEPT_LANGUAGE"] = $_SERVER["HTTP_ACCEPT_LANGUAGE"];
	}
	if( $_SERVER["REQUEST_URI"] != "" ){
		$_ENV["REQUEST_URI"] = $_SERVER["REQUEST_URI"];
	}

	$SERVER_NAME = $_ENV["SERVER_NAME"];
	$HTTP_ACCEPT_LANGUAGE = strtolower($_ENV["HTTP_ACCEPT_LANGUAGE"]);
	$REQUEST_URI = $_ENV["REQUEST_URI"];

//$HTTP_ACCEPT_LANGUAGE = "es-pe,fr;q=0.7,de;q=0.3";

	$nowlang = "en";
	$wlang = "en";
	$lang_list = explode(",",$HTTP_ACCEPT_LANGUAGE);
	if( count($lang_list) > 0 )
	{
		$max=0;
		for($ii=0;$ii<count($lang_list);$ii++)
		{
			list($wlang,$wpr)=explode(";",$lang_list[$ii]);
			if( $wpr == "" )
			{
				$wpr=1;
			}
			else
			{
				$wpr=str_replace("q=","", $wpr);
			}
			$wpr*=1;
			if( $wpr > $max )
			{
				$max=$wpr;
				$mlang = $LANG_NAME{$wlang};
				if( $mlang == "" )
				{
					list($l1,$l2)=explode("-",$wlang);
					$mlang=$LANG_NAME{$l1};
					if( $mlang == "" )
					{
						$mlang = "en";
					}
				}
			}
		}
		$nowlang = $mlang;
	}

//	print "サーバーネームは[" . $SERVER_NAME . "]です<br>";
//	print "ブラウザの言語は[" . $HTTP_ACCEPT_LANGUAGE . "]です<br>";
//	print "選択した言語は[" . $nowlang . "]です<br>";

	header("Pragma: no-cache");
	header("Cache-Control: no-cache");
	$prm="";
	if( $_GET["utm_source"] != "utm_source" && $_GET["utm_medium"] != "" && $_GET["utm_campaign"] != "" )
	{
		list($a,$b)=explode("?", $REQUEST_URI);
		$prm = "?" . $b;
	}
	header("Location: https://global.sharp/pci/" . $nowlang . "/" . $prm);
	exit;
?>
