/*****************************************************************************\

 Javascript "SOAP Client" library
	--bugs.ulgom modify for cross domain


 @version: 1.4 - 2005.12.10
 @author: Matteo Casati, Ihar Voitka - http://www.guru4.net/
 @description: (1) SOAPClientParameters.add() method returns 'this' pointer.
               (2) "_getElementsByTagName" method added for xpath queries.
               (3) "_getXmlHttpPrefix" refactored to "_getXmlHttpProgID" (full 
                   ActiveX ProgID).
               
 @version: 1.3 - 2005.12.06
 @author: Matteo Casati - http://www.guru4.net/
 @description: callback function now receives (as second - optional - parameter) 
               the SOAP response too. Thanks to Ihar Voitka.
               
 @version: 1.2 - 2005.12.02
 @author: Matteo Casati - http://www.guru4.net/
 @description: (1) fixed update in v. 1.1 for no string params.
               (2) the "_loadWsdl" method has been updated to fix a bug when 
               the wsdl is cached and the call is sync. Thanks to Linh Hoang.
               
 @version: 1.1 - 2005.11.11
 @author: Matteo Casati - http://www.guru4.net/
 @description: the SOAPClientParameters.toXML method has been updated to allow
               special characters ("<", ">" and "&"). Thanks to Linh Hoang.

 @version: 1.0 - 2005.09.08
 @author: Matteo Casati - http://www.guru4.net/
 @notes: first release.

\*****************************************************************************/

function SOAPClientParameters()
{
	var _pl = new Array();
	this.add = function(name, value) 
	{
		_pl[name] = value; 
		return this; 
	}
	this.toXml = function()
	{
		var xml = "";
		for(var p in _pl)
		{
			if(typeof(_pl[p]) != "function")
				xml += "<" + p + ">" + _pl[p].toString().replace(/&/g, "&amp;").replace(/</g, "&lt;").replace(/>/g, "&gt;") + "</" + p + ">";
		}
		return xml;	
	}
}

function SOAPClient() {}
SOAPClient.proxyUrl	= '/xmlGate.asp';

SOAPClient.invoke	= function(url, method, parameters, async, callback)
{
	if(async)
		SOAPClient._loadWsdl(url, method, parameters, async, callback);
	else
		return SOAPClient._loadWsdl(url, method, parameters, async, callback);
}

// private: wsdl cache
SOAPClient_cacheWsdl = new Array();

// private: invoke async
SOAPClient._loadWsdl = function(url, method, parameters, async, callback)
{
	// load from cache?
	var wsdl = SOAPClient_cacheWsdl[url];
	if(wsdl + "" != "" && wsdl + "" != "undefined")
		return SOAPClient._sendSoapRequest(url, method, parameters, async, callback, wsdl);
	// get wsdl
	var xmlHttp = SOAPClient._getXmlHttp();
	var targetUrl = (SOAPClient._isSameDomain(url))?url:SOAPClient.proxyUrl + '?xmlurl=' + url;

	xmlHttp.open("GET", targetUrl + "?wsdl", async);
	if(async) 
	{
		xmlHttp.onreadystatechange = function() 
		{
			if(xmlHttp.readyState == 4)
//				alert(xmlHttp.responseText);
				SOAPClient._onLoadWsdl(url, method, parameters, async, callback, xmlHttp);
		}
	}
	xmlHttp.send(null);
	
	if (!async)
		return SOAPClient._onLoadWsdl(url, method, parameters, async, callback, xmlHttp);
}
SOAPClient._onLoadWsdl = function(url, method, parameters, async, callback, req)
{
	//var wsdl = req.responseXML;
	var wsdl = SOAPClient._getXmlFromHttp(req);
	SOAPClient_cacheWsdl[url] = wsdl;	// save a copy in cache
	return SOAPClient._sendSoapRequest(url, method, parameters, async, callback, wsdl);
}
SOAPClient._sendSoapRequest = function(url, method, parameters, async, callback, wsdl)
{
	// get namespace
	var ns = (wsdl.documentElement.attributes["targetNamespace"] + "" == "undefined") ? wsdl.documentElement.attributes.getNamedItem("targetNamespace").nodeValue : wsdl.documentElement.attributes["targetNamespace"].value;
	var soapaction = ((ns.lastIndexOf("/") != ns.length - 1) ? ns + "/" : ns) + method;
	// build SOAP 1.1request
	var sr = 
				"<?xml version=\"1.0\" encoding=\"utf-8\"?>" +
				"<soap:Envelope " +
				"xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" " +
				"xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" " +
				"xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\">" +
				"<soap:Body>" +
				"<SOAPAction>" + soapaction + "</SOAPAction>" +
				"<" + method + " xmlns=\"" + ns + "\">" +
				parameters.toXml() +
				"</" + method + "></soap:Body></soap:Envelope>";
	// send request
	var xmlHttp = SOAPClient._getXmlHttp();
	var targetUrl = (SOAPClient._isSameDomain(url))?url:SOAPClient.proxyUrl + '?wsdlurl=' + url;
	xmlHttp.open("POST", targetUrl, async);

	xmlHttp.setRequestHeader("SOAPAction", soapaction);
	xmlHttp.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
	if(async) 
	{
		xmlHttp.onreadystatechange = function() 
		{
			if(xmlHttp.readyState == 4){
				SOAPClient._onSendSoapRequest(method, async, callback, wsdl, xmlHttp);
			}
		}
	}
	xmlHttp.send(sr);
	if (!async)
		return SOAPClient._onSendSoapRequest(method, async, callback, wsdl, xmlHttp);
}



SOAPClient._onSendSoapRequest = function(method, async, callback, wsdl, req)
{
	var o = null;
	var xml = SOAPClient._getXmlFromHttp(req);

	var nd = SOAPClient._getElementsByTagName(xml, method + "Result");

	if(nd.length == 0)
	{
		if(req.responseXML.getElementsByTagName("faultcode").length > 0)
			throw new Error(500, req.responseXML.getElementsByTagName("faultstring")[0].childNodes[0].nodeValue);
	}
	else{
		o = SOAPClient._soapresult2object(nd[0], wsdl);
	}
	
	//test(o);
	//test(nd[0].childNodes[0].nodeType);
	//test(nd[0].childNodes.length);

	//test('¤§¹ø°:' + nd[0].childNodes[1].nodeValue.length);
	//test('¤µ¹ø°:' + nd[0].childNodes[2].nodeValue.length);


	if(callback)
		callback(o, req.responseXML);
	if(!async)
		return o;		
}

// private: utils
SOAPClient._getElementsByTagName = function(xml, tagName)
{
	try
	{
		// trying to get node omitting any namespaces (latest versions of MSXML.XMLDocument)
		return xml.selectNodes(".//*[local-name()=\""+ tagName +"\"]");
	}
	catch (ex) {}
	// old XML parser support
	return xml.getElementsByTagName(tagName);
}

SOAPClient._soapresult2object = function(node, wsdl)
{
	return SOAPClient._node2object(node, wsdl);
}
SOAPClient._node2object = function(node, wsdl)
{
	//node.normalize();
	//alert(node.nodeType);
	// null node
	if(node == null){
		return null;
	}
	// text node
	if(node.nodeType == 3 || node.nodeType == 4){
		return SOAPClient._extractValue(node, wsdl);
	}

	if(SOAPClient._isComplexTypeFromWsdl(node.parentNode.nodeName, wsdl)){
		node.firstChild.removeAttribute('xmlns');
		return SOAPClient._getOuterXml(node.firstChild);
	}

	//alert(node.childNodes.length);
	// leaf node
	if (node.childNodes.length == 1 && (node.childNodes[0].nodeType == 3 || node.childNodes[0].nodeType == 4)){
		
		return SOAPClient._node2object(node.childNodes[0], wsdl);
	}
	var isarray = SOAPClient._getTypeFromWsdl(node.nodeName, wsdl).toLowerCase().indexOf("arrayof") != -1;

	// object node
	if(!isarray)
	{
		var obj = null;
		if(node.hasChildNodes())
			obj = new Object();
		for(var i = 0; i < node.childNodes.length; i++)
		{
			var p = SOAPClient._node2object(node.childNodes[i], wsdl);
			obj[node.childNodes[i].nodeName] = p;
		}
		return obj;
		
	}
	// list node
	else
	{
		
		// create node ref
		var l = new Array();
		for(var i = 0; i < node.childNodes.length; i++)
			l[l.length] = SOAPClient._node2object(node.childNodes[i], wsdl);
		return l;
	}

	return null;
}
SOAPClient._extractValue = function(node, wsdl)
{
	var value = (!!node.firChild)?node.firstChild.nodeValue:node.nodeValue;
	//var value = node.nodevalue;
	//alert(value);

	switch(SOAPClient._getTypeFromWsdl(node.parentNode.nodeName, wsdl).toLowerCase())
	{
		default:
		case "s:string":	

			return (value != null) ? value + "" : "";
		
		case "s:boolean":
			return value+"" == "true";
		case "s:int":
		case "s:long":
			return (value != null) ? parseInt(value + "", 10) : 0;
		case "s:double":
			return (value != null) ? parseFloat(value + "") : 0;
		case "s:any" :
			alert(1);
			return node;
		case "s:datetime":
			if(value == null)
				return null;
			else
			{
				value = value + "";
				value = value.substring(0, value.lastIndexOf("."));
				value = value.replace(/T/gi," ");
				value = value.replace(/-/gi,"/");
				var d = new Date();
				d.setTime(Date.parse(value));										
				return d;				
			}
	}
}
SOAPClient._getTypeFromWsdl = function(elementname, wsdl)
{
	var ell = wsdl.getElementsByTagName("s:element");	// IE
	if(ell.length == 0){
		ell = wsdl.getElementsByTagName("element");	// MOZ
	}

//	return "";
	for(var i = 0; i < ell.length; i++)
	{
		if(ell[i].attributes["name"] + "" == "undefined")	// IE
		{
			if(ell[i].attributes.getNamedItem("name") != null && ell[i].attributes.getNamedItem("name").nodeValue == elementname && ell[i].attributes.getNamedItem("type") != null) 
				return ell[i].attributes.getNamedItem("type").nodeValue;
		}	
		else // MOZ
		{
			if(ell[i].attributes["name"] != null && ell[i].attributes["name"].value == elementname && ell[i].attributes["type"] != null)
				return ell[i].attributes["type"].value;
		}
	}
	return "";
}

//complex type return;
SOAPClient._isComplexTypeFromWsdl = function(elementname, wsdl)
{

	var ell = wsdl.getElementsByTagName("s:element");	// IE
	if(ell.length == 0){
		ell = wsdl.getElementsByTagName("element");	// MOZ
	}

//	test(elementname + ":" + wsdl.xml);
//	return "";
	for(var i = 0; i < ell.length; i++)
	{
		//test(elementname + ':' + i + ':' + ell[i].getAttribute("name"));

		if( ell[i].getAttribute("name") == elementname)
		{
			var complexNode = ell[i].getElementsByTagName("s:complexType");//IE
			if(complexNode.length == 0){								//MOZ
				complexNode = ell[i].getElementsByTagName("complexType");
			}

			for(var j = 0; j < complexNode.length; j ++){
				if(complexNode[j].getAttribute('mixed') == 'true'){
					return true;
				}
			}
		}	
	}
	return false;
}


// private: xmlhttp factory
SOAPClient._getXmlHttp = function() 
{
	
	try
	{
		if(window.XMLHttpRequest) 
		{
			var req = new XMLHttpRequest();
			// some versions of Moz do not support the readyState property and the onreadystate event so we patch it!
			if(req.readyState == null) 
			{
				req.readyState = 1;
				req.addEventListener("load", 
									function() 
									{
										req.readyState = 4;
										if(typeof req.onreadystatechange == "function")
											req.onreadystatechange();
									},
									false);
			}
			return req;
		}
		if(window.ActiveXObject) 
			return new ActiveXObject(SOAPClient._getXmlHttpProgID());
	}
	catch (ex) {}

	throw new Error("Your browser does not support XmlHttp objects");
}

SOAPClient._getXmlHttpProgID = function()
{
	if(SOAPClient._getXmlHttpProgID.progid)
		return SOAPClient._getXmlHttpProgID.progid;
	var progids = ["Msxml2.XMLHTTP.5.0", "Msxml2.XMLHTTP.4.0", "MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP", "Microsoft.XMLHTTP"];
	var o;
	for(var i = 0; i < progids.length; i++)
	{
		try
		{
			o = new ActiveXObject(progids[i]);
			return SOAPClient._getXmlHttpProgID.progid = progids[i];
		}
		catch (ex) {};
	}
	throw new Error("Could not find an installed XML parser");
}

// ulgom create. _isSameDomain.... return boolean
SOAPClient._isSameDomain = function(url)
{
	var thisUrl	= new SOAPClient._urlSet(document.location.href);
	var url		= new SOAPClient._urlSet(url);
	
	if(url.domain.toLowerCase() == thisUrl.domain.toLowerCase() && url.domain != "") return true;
	else return false;

		
}

//ulgom create.
SOAPClient._urlSet = function(url){
	this.url		= url;
	this.protocol	= "";
	this.domain		= "";

	var re = /(\w+):\/\/([^\/]+)(:\d*)?([^#|?]+)/;
	var tmpArr = re.exec(url)

	this.protocol	= tmpArr[1];
	this.domain		= tmpArr[2];
}


//firefox responseXML bug fix -ulgom added
SOAPClient._getXmlFromHttp = function(req){
	//test(req.responseText);
	try { 

		var dp = new DOMParser();
		var text = req.responseText;
		return dp.parseFromString(text, "text/xml");
	}catch(e) {
		return req.responseXML;
	}
}



SOAPClient._getOuterXml = function(xmlNode){
	var outerXml = '';
	try{
		var serializer = new XMLSerializer();
		outerXml = serializer.serializeToString(xmlNode);
	}catch(e){
		outerXml =  xmlNode.xml;
	}
	return outerXml;
}