var ajax = [];

function do_ajax() {
  var args = do_ajax.arguments;
  for( var i=0; i<args[0].length;i++ ) {
    args[0][i] = fnsplit(args[0][i]);
  }
  var l = ajax.length;
  ajax[l]= new pjx(args,"do_ajax",args[2]);
  ajax[l].url = '/hmds/ajax?' + ajax[l].url;
  ajax[l].send2perl();
  jsdebug();
}

function pjx(args,fname,method) {
	this.target=args[1];
	this.args=args[0];
	method=(method)?method:'GET';
	if(method=='post'){
		method='POST';
	}
	this.method = method;
	this.r=ghr();
	this.url = this.getURL(fname);
}

function formDump(){
	var all = [];
	var fL = document.forms.length;
	for(var f = 0;f<fL;f++){
		var els = document.forms[f].elements;
		for(var e in els){
			var tmp = (els[e].id != undefined)? els[e].id : els[e].name;
			if(typeof tmp != 'string'){continue;}
			if(tmp){ all[all.length]=tmp }
		}
	}
	return all;
}

function getVal(id) {
	if (id.constructor == Function ) { return id(); }
	if (typeof(id)!= 'string') { return id; }
	var element = document.getElementById(id);
	if( !element ) {
		for( var i=0; i<document.forms.length; i++ ){
			element = document.forms[i].elements[id];
			if( element ) break;
		}
		if( element && !element.type ) element = element[0];
	}
	if(!element){
		alert('ERROR: Cant find HTML element with id or name: ' + id+'. Check that an element with name or id='+id+' exists');
		return 0;
	}

	if(element.type == 'select-one') {
		if(element.selectedIndex == -1) return;
		var item = element[element.selectedIndex];
		return item.value || item.text;
	}
	if(element.type == 'select-multiple') {
		var ans = [];
		var k =0;
		for (var i=0;i<element.length;i++) {
			if (element[i].selected || element[i].checked ) {
				ans[k++]= element[i].value || element[i].text;
			}
		}
		return ans;
	}
	if(element.type == 'radio' || element.type == 'checkbox'){
		var ans =[];
		var elms = document.getElementsByTagName('input');
		var endk = elms.length ;
		var i =0;
		for(var k=0;k<endk;k++){
			if(elms[k].type== element.type && elms[k].checked && (elms[k].id==id||elms[k].name==id)){
				ans[i++]=elms[k].value;
			}
		}
		return ans;
	}
	if( element.value == undefined ){ return element.innerHTML; }
	else{ return element.value; }
}

function fnsplit(arg) {
	var url="";
	if(arg=='NO_CACHE'){
		return '&pjxrand='+Math.random()
	}
	if((typeof(arg)).toLowerCase() == 'object'){
		for(var k in arg){
			url += '&' + k + '=' + arg[k];
		}
	}
	else if (arg.indexOf('__') != -1) {
		arga = arg.split(/__/);
		url += '&' + arga[0] +'='+ escape(arga[1]);
	}
	else {
		var res = getVal(arg) || '';
		if(res.constructor != Array){ res = [res] }
		for(var i=0;i<res.length;i++) {
			url += '&args=' + escape(res[i]) + '&' + arg + '=' + escape(res[i]);
		}
	}
	return url;
}

pjx.prototype = {
	send2perl : function(){
		var r = this.r;
		var dt = this.target;
		this.pjxInitialized(dt);
		var url=this.url;
		var postdata;
		if(this.method=="POST"){
			var idx=url.indexOf('?');
			postdata = url.substr(idx+1);
			url = url.substr(0,idx);
		}
		r.open(this.method,url,true); ;
		if(this.method=="POST"){
			r.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
			r.send(postdata);
		}
		if(this.method=="GET"){ r.send(null); }
		r.onreadystatechange = handleReturn;
	},
	pjxInitialized : function(){},
	pjxCompleted : function(){},
	readyState4 : function(){
		var rsp = unescape(this.r.responseText);
		/* the response from perl */ var splitval = '__pjx__';
		/* to split text */ /* fix IE problems with undef values in an Array getting squashed*/
		rsp = rsp.replace(splitval+splitval+'g',splitval+" "+splitval);
		var data = rsp.split(splitval);
		dt = this.target;
		if (dt.constructor != Array) { dt=[dt]; }
		if (data.constructor != Array) { data=[data]; }
		if (typeof(dt[0])!='function') {
			for ( var i=0; i<dt.length; i++ ) {
				var div = document.getElementById(dt[i]);
				if (div.type =='text' || div.type=='textarea' || div.type=='hidden' ) {
					div.value=data[i];
				}
				else{ div.innerHTML = data[i]; }
			}
		}
		else if (typeof(dt[0])=='function') {
			dt[0].apply(this,data);
		}
		this.pjxCompleted(dt);
	},
	getURL : function(fname) {
		var args = this.args;
		var url= 'fname=' + fname;
		for (var i=0;i<args.length;i++) {
			url=url + args[i];
		}
		return url;
	}
};

handleReturn = function() {
	for( var k=0;
	k<ajax.length; k++ ) {
		if (ajax[k].r==null) {
			ajax.splice(k--,1);
			continue;
		}
		if ( ajax[k].r.readyState== 4) {
			ajax[k].readyState4();
			ajax.splice(k--,1);
			continue;
		}
	}
};

var ghr=getghr();

function getghr(){
	if(typeof XMLHttpRequest != "undefined") {
		return function(){
			return new XMLHttpRequest();
		}
	}
	var msv= ["Msxml2.XMLHTTP.7.0", "Msxml2.XMLHTTP.6.0", "Msxml2.XMLHTTP.5.0", "Msxml2.XMLHTTP.4.0", "MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP", "Microsoft.XMLHTTP"];
	for(var j=0;j<=msv.length;j++){
		try {
			A = new ActiveXObject(msv[j]);
			if(A){
				return function(){
					return new ActiveXObject(msv[j]);
				}
			}
		}
		catch(e) { }
	}
	return false;
}

function jsdebug(){
	var tmp = document.getElementById('pjxdebugrequest').innerHTML = "<br><pre>";
	for( var i=0; i < ajax.length; i++ ) {
		tmp += '<a href= '+ ajax[i].url +' target=_blank>' + decodeURI(ajax[i].url) + ' <\/a><br>';
	}
	document.getElementById('pjxdebugrequest').innerHTML = tmp + "<\/pre>";
}