function set_text(id,text){
	var e=document.getElementById(id);	
	if(e) e.innerHTML=text;
}

var _appkey;
if(location.href.indexOf("labtest")<0){
	_appkey="U5EIyg2-8SERyFmtg3ExvOZu9DqU0.0Xi7a0HLOqkC2RPOzYkmVasBA8lHk.TMVSzGNqlkb0EMXhK7V-LaYI85h1coNpp78kEQu7u.4TzkwQEoVNBQiKgJyS6MK7lDq0S5Ence7kQwEZ4zlcKwgJnLmPjYFeUXGEhs2OgkoejGzddPFxyDymyCtigjeQFiUYmO5t57SiVrhT4Hg.V84WCrwZ9L1WmiehJpkyfwPaRHw5kdWTV4Gj1ue.apncw47USo76pbDPRnvWnuJWK0fdnwZIkoLCi43bDg0NT39hL.oOANLM85NVtvXV.Xdpnvvlzl5J6OhYpy1DFIGW0JGdRQ__,aHR0cDovL3d3dy5hbHBzbGFiLmpw,QUxQU0xBQg__";
}else{
	_appkey="L4OMqP8hlzoRkxQb8jvkRdZYnp-iDryalzewBvT2RtwUmeA0J21OFrK.YauqBeA3Ib8u2wHFNC07tccaujcK0FujKBZwy.vGwiNeLCDr-Nz3VbvIoYUVn5RtRmXIXtrS3Z5p8B0Vb1ZvU7hgGSaNjUX1k7IpLbsKcr4SDYb3ZvNw8F2yy90dGmfoQCDzPY4JtuNQhE12L0oglJMIgTBc5OKtJvzzDvqGT20J9w.n8j1L8I.UhHBqZVKkecZqpuwf8paFKWHDmQF2.Pn6LR.5IoxqRlbKYQ1gnOc-g08EVWbj2e7pBXd-LS4wX6fe51hq4kYxgd2oMS7Nb7qJVNWZag__,aHR0cDovL3d3dy5sYWJ0ZXN0LmFscHNtYXAuY28uanA_,QUxQU0xBQg__";
}

var _pe;
function peinfo(){
	_pe=new PEngine({
	idstatus:"pestatus",
	appkey:_appkey,
	onMessage:function(str){
		if(!_pe) set_text("pestatus","");
	},
	onGetLocation:function(x,y,r,info){
		if(r>0){
			window.open("http://clip.alpslab.jp/bin/rd?q="+y+","+x+" WGS84");
			set_text("pestatus","");
/*
			set_text("peresult",info.addr+"付近の新着投稿");
			var xmlhttp=AlpsUtil.getXMLHttp();
			xmlhttp.open("GET","/html/local/peinfo.rb?lat="+y+"&lon="+x,true);
			xmlhttp.onreadystatechange=function() {
				if(xmlhttp.readyState==4&&xmlhttp.status==200){
					var e=document.getElementById("user_contents");
					if(e) e.innerHTML=xmlhttp.responseText;
				}
			};
			xmlhttp.send(null);
*/
		}
	}
	});
}
AlpsEvent.addBuiltInEvent(window,"load",peinfo);