function redirect_page(dest)
{


	if (window.location.replace)
	{
		window.location.replace(dest);
	}
	else
	{
		window.location=dest;
	}
}


  function makeRequest(url, fallURL) {
        var httpRequest;

        if (window.XMLHttpRequest) { // Mozilla, Safari, ...
            httpRequest = new XMLHttpRequest();
            if (httpRequest.overrideMimeType) {
                httpRequest.overrideMimeType('text/xml');
                // See note below about this line
            }
        } 
        else if (window.ActiveXObject) { // IE
            try {
                httpRequest = new ActiveXObject("Msxml2.XMLHTTP");
                } 
                catch (e) {
                           try {
                                httpRequest = new ActiveXObject("Microsoft.XMLHTTP");
                               } 
                             catch (e) {}
                          }
                                       }

        if (!httpRequest) {
            alert('Giving up :( Cannot create an XMLHTTP instance');
            return false;
        }
        httpRequest.onreadystatechange = function() { alertContents(httpRequest,url, fallURL); };
        httpRequest.open('GET', url, true);
        httpRequest.send('');

    }

    function alertContents(httpRequest,url, fallURL) {

        if (httpRequest.readyState == 4) {
            if (httpRequest.status == 200) {
				
               // alert(newURL+httpRequest.responseText);
				redirect_page(url);
            } else {
				
              //  alert(newURL+'There was a problem with the request.');
				redirect_page(fallURL);
            }
        }

    }



function resourceExists(sURI,newURL) 
{ 
  var req = null; 
  // Mozilla, Opera, Safari, IE 7 
  try 
  { 
    req = new XMLHttpRequest(); 
  } 
  catch (e) 
  { 
    // IE <= 6 
    try 
    { 
      req = new ActiveXObject("Msxml2.XMLHTTP"); 
    } 
    catch (e) 
    { 
      try 
      { 
        req = new ActiveXObject("Microsoft.XMLHTTP"); 
      } 
      catch(e) 
      { 
        req = null; 
      } 
    } 
  } 

  if (req) 
  { 
    req.open("GET", sURI, false); 
    req.send(null); 
	
  } 

  return req && /\b2\d\d\b/.test(req.status); 
} 


function readCookie(name) {
	var nameEQ = name + "=";
	var ca = document.cookie.split(';');
	
	for(var i=0;i < ca.length;i++) {
		var c = ca[i];
		while (c.charAt(0)==' ') c = c.substring(1,c.length);
		if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
	}
	return null;
}


function createCookie(name,value,days) {
	if (days) {
		var date = new Date();
		date.setTime(date.getTime()+(days*24*60*60*1000));
		var expires = "; expires="+date.toGMTString();
		
	}
	else var expires = "";
	
	document.cookie = name+"="+value+expires+"; path=/";
	
	//alert(document.cookie);
}


function eraseCookie(name) {
	createCookie(name,"",-1);
}




function write_lang (param) { 

	eraseCookie('language');
	createCookie('language', param, 7);
  
} 


var parseUri = function (source) {
	var o = parseUri.options,
		value = o.parser[o.strictMode ? "strict" : "loose"].exec(source);
	
	for (var i = 0, uri = {}; i < 14; i++) {
		uri[o.key[i]] = value[i] || "";
	}
	
	uri[o.q.name] = {};
	uri[o.key[12]].replace(o.q.parser, function ($0, $1, $2) {
		if ($1) uri[o.q.name][$1] = $2;
	});
	
	return uri;
};

parseUri.options = {
	strictMode: false,
	key: ["source","protocol","authority","userInfo","user","password","host","port","relative","path","directory","file","query","anchor"],
	q: {
		name: "queryKey",
		parser: /(?:^|&)([^&=]*)=?([^&]*)/g
	},
	parser: {
		strict: /^(?:([^:\/?#]+):)?(?:\/\/((?:(([^:@]*):?([^:@]*))?@)?([^:\/?#]*)(?::(\d*))?))?((((?:[^?#\/]*\/)*)([^?#]*))(?:\?([^#]*))?(?:#(.*))?)/,
		loose: /^(?:(?![^:@]+:[^:@\/]*@)([^:\/?#.]+):)?(?:\/\/)?((?:(([^:@]*):?([^:@]*))?@)?([^:\/?#]*)(?::(\d*))?)(((\/(?:[^?#](?![^?#\/]*\.[^?#\/.]+(?:[?#]|$)))*\/?)?([^?#\/]*))(?:\?([^#]*))?(?:#(.*))?)/
	}
};


function pause(millisecondi)
{
    var now = new Date();
    var exitTime = now.getTime() + millisecondi;

    while(true)
    {
        now = new Date();
        if(now.getTime() > exitTime) return;
    }
}






function change_lang (param) { 
	//var prefix="http://comport.game-host.org:4711/~bdaehn/";
	//var prefix=document.domain;
	
	prot=parseUri(document.location.href).protocol;
	domain=parseUri(document.location.href).authority;

	
	prefix=prot+"://"+domain;
	
	// for local webserver
	//prefix=prefix+"/~bdaehn/";
	//prefix=prefix+"/_bla_/";
	prefix=prefix+"/";
	

	//alert(prefix);
	


	var URL=document.location.href;
	var temp = URL.split(prefix);
	
	files=temp[1];

	var temp2=files.split("/");

	var lang=temp2[0];
	var rest="";

	for (var loop=1; loop < temp2.length; loop++)
	{
		rest=rest+"/"+temp2[loop];
	}

	if ( param != lang )
	{
		new_url=prefix+param+rest;
		var lang=readCookie('language');
	 
		if ( lang != null ) 
			write_lang(param);
		
		
		//alert(new_url);
		
		makeRequest(new_url, prefix+param+"/index.shtml");
		
		return false;
		
		alert(new_url);
		//alert(resourceExists(new_url));
	
		//res=resourceExists(new_url);
		
		
		res=true;
		
		if  (res)
		{
			pause(1000);
			redirect_page(new_url);
			//alert(new_url);
		}
		else
		{
			pause(1000);
			redirect_page(prefix+param+"/index2.html");
			//alert(prefix+param+"/index2.html");
			
		}
	}
	
	
}