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

 Javascript "SOAP Client" library
 
 @version: 2.4 - 2007.12.21
 @author: Matteo Casati - http://www.guru4.net/
 
\*****************************************************************************/

var WebServiceException = false;

function SOAPClientParameters()
{
	var _pl = new Array();
	this.add = function(name, value) 
	{
		_pl[name] = value;
		this[name] = value;
		return this; 
	}
	this.toXml = function()
	{
		var xml = "";
		for(var p in _pl)
		{
			switch(typeof(_pl[p])) 
			{
                case "string":
                case "number":
                case "boolean":
                case "object":
                    xml += "<" + p + ">" + SOAPClientParameters._serialize(_pl[p]) + "</" + p + ">";
                    break;
                default:
                    break;
            }
		}
		return xml;	
	}
	
	
	/////added by SL - 28/05/2008 - to expose the array of params
	this.items = function()
	{
		return _pl;
	}
}
SOAPClientParameters._serialize = function(o)
{
    var s = "";
    switch(typeof(o))
    {
        case "string":
            s += o.replace(/&/g, "&amp;").replace(/</g, "&lt;").replace(/>/g, "&gt;"); break;
        case "number":
        case "boolean":
            s += o.toString(); break;
        case "object":
            // Date
            if(o.constructor.toString().indexOf("function Date()") > -1)
            {
        
                var year = o.getFullYear().toString();
                var month = (o.getMonth() + 1).toString(); month = (month.length == 1) ? "0" + month : month;
                var date = o.getDate().toString(); date = (date.length == 1) ? "0" + date : date;
                var hours = o.getHours().toString(); hours = (hours.length == 1) ? "0" + hours : hours;
                var minutes = o.getMinutes().toString(); minutes = (minutes.length == 1) ? "0" + minutes : minutes;
                var seconds = o.getSeconds().toString(); seconds = (seconds.length == 1) ? "0" + seconds : seconds;
                var milliseconds = o.getMilliseconds().toString();
                var tzminutes = Math.abs(o.getTimezoneOffset());
                var tzhours = 0;
                while(tzminutes >= 60)
                {
                    tzhours++;
                    tzminutes -= 60;
                }
                tzminutes = (tzminutes.toString().length == 1) ? "0" + tzminutes.toString() : tzminutes.toString();
                tzhours = (tzhours.toString().length == 1) ? "0" + tzhours.toString() : tzhours.toString();
                var timezone = ((o.getTimezoneOffset() < 0) ? "+" : "-") + tzhours + ":" + tzminutes;
                s += year + "-" + month + "-" + date + "T" + hours + ":" + minutes + ":" + seconds + "." + milliseconds + timezone;
            }
            // Array
            else if(o.constructor.toString().indexOf("function Array()") > -1)
            {
                for(var p in o)
                {
                    if(!isNaN(p))   // linear array
                    {
                        (/function\s+(\w*)\s*\(/ig).exec(o[p].constructor.toString());
                        var type = RegExp.$1;
                        switch(type)
                        {
                            case "":
                                type = typeof(o[p]);
                            case "String":
                                type = "string"; break;
                            case "Number":
                                type = "int"; break;
                            case "Boolean":
                                type = "bool"; break;
                            case "Date":
                                type = "DateTime"; break;
                        }
                        s += "<" + type + ">" + SOAPClientParameters._serialize(o[p]) + "</" + type + ">"
                    }
                    else    // associative array
                        s += "<" + p + ">" + SOAPClientParameters._serialize(o[p]) + "</" + p + ">"
                }
            }
            // Object or custom function
            else
                for(var p in o)
                    s += "<" + p + ">" + SOAPClientParameters._serialize(o[p]) + "</" + p + ">";
            break;
        default:
            break; // throw new Error(500, "SOAPClientParameters: type '" + typeof(o) + "' is not supported");
    }
    return s;
}

function SOAPClient() {}

SOAPClient.username = null;
SOAPClient.password = null;
SOAPClient.LoadWSDL = false;
SOAPClient.TargetNamespace = "http://www.truckfile.co.uk/";
SOAPClient.TargetNamespaces = new Object();

SOAPClient.invoke = function(url, method, parameters, async, callback, sender)
{
	// Check if an external window is in use, e.g running in Vintel.
	if (window.top.External)
	{
		if (callback != null)
		{
			callback(window.external.SOAPClientInvoke(url, method, parameters.toXml()), null, object);
			return;
		}
		else
		{
			return window.external.SOAPClientInvoke(url, method, parameters.toXml());
		}
	}
	else
	{
		WebServiceException = false;

		if(async)
			SOAPClient._loadWsdl(url, method, parameters, async, callback, sender);
		else
			return SOAPClient._loadWsdl(url, method, parameters, async, callback, sender);
	}
}

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

SOAPClient._getNamespace = function(url)
{
	if (SOAPClient.TargetNamespaces[url.toLowerCase()])
		return SOAPClient.TargetNamespaces[url.toLowerCase()];

	return SOAPClient.TargetNamespace;
}

SOAPClient.setNamespace = function(url, strNamespace)
{
	SOAPClient.TargetNamespaces[url.toLowerCase()] = strNamespace;
}

// private: invoke async
SOAPClient._loadWsdl = function(url, method, parameters, async, callback, sender)
{
	//sl: 04/09/2009 - only load the WSDL if SOAPClient.LoadWSDL = true
	if (SOAPClient.LoadWSDL != true)
		return SOAPClient._sendSoapRequest(url, method, parameters, async, callback, wsdl, sender);

	// load from cache?
	var wsdl = SOAPClient_cacheWsdl[url];
	if (wsdl + "" != "" && wsdl + "" != "undefined")
		return SOAPClient._sendSoapRequest(url, method, parameters, async, callback, wsdl, sender);
	// get wsdl
	var xmlHttp = SOAPClient._getXmlHttp();
	xmlHttp.open("GET", url + "?wsdl", async);
	if (async)
	{
		xmlHttp.onreadystatechange = function()
		{
			if (xmlHttp.readyState == 4)
				SOAPClient._onLoadWsdl(url, method, parameters, async, callback, xmlHttp, sender);
		}
	}
	xmlHttp.send(null);
	if (!async)
		return SOAPClient._onLoadWsdl(url, method, parameters, async, callback, xmlHttp, sender);
}
SOAPClient._onLoadWsdl = function(url, method, parameters, async, callback, req, sender)
{
	var wsdl = req.responseXML;
	SOAPClient_cacheWsdl[url] = wsdl;	// save a copy in cache
	return SOAPClient._sendSoapRequest(url, method, parameters, async, callback, wsdl, sender);
}
SOAPClient._sendSoapRequest = function(url, method, parameters, async, callback, wsdl, sender)
{
	try
	{
		var ns = "";

		if (SOAPClient.LoadWSDL)
		{
			if (wsdl == null)
				return;

			// get namespace
			ns = (wsdl.documentElement.attributes["targetNamespace"] + "" == "undefined") ? wsdl.documentElement.attributes.getNamedItem("targetNamespace").nodeValue : wsdl.documentElement.attributes["targetNamespace"].value;
		}
		else
		{
			ns = SOAPClient._getNamespace(url);
		}

		// build SOAP request
		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>" +
					"<" + method + " xmlns=\"" + ns + "\">" +
					parameters.toXml() +
					"</" + method + "></soap:Body></soap:Envelope>";
		// send request
		var xmlHttp = SOAPClient._getXmlHttp();
		var soapaction = ((ns.lastIndexOf("/") != ns.length - 1) ? ns + "/" : ns) + method;

		if (url.indexOf("?") == -1)
		{
			try
			{
				if (BrowserDetect.browser == "Safari" && BrowserDetect.version == "an unknown version")
					url += "?op=" + method;
			}
			catch (exc) { }
		}

		if (SOAPClient.userName && SOAPClient.password)
		{
			xmlHttp.open("POST", url, async, SOAPClient.userName, SOAPClient.password);
			// Some WS implementations (i.e. BEA WebLogic Server 10.0 JAX-WS) don't support Challenge/Response HTTP BASIC, so we send authorization headers in the first request
			xmlHttp.setRequestHeader("Authorization", "Basic " + SOAPClient._toBase64(SOAPClient.userName + ":" + SOAPClient.password));
		}
		else
			xmlHttp.open("POST", url, async);
			
		xmlHttp.setRequestHeader("SOAPAction", soapaction);
		xmlHttp.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
		if (async)
		{
			xmlHttp.onreadystatechange = function()
			{
				if (xmlHttp.readyState == 4)
				{
					try
					{
						SOAPClient._onSendSoapRequest(method, async, callback, wsdl, xmlHttp, sender);
					}
					catch (exc)
					{
						//alert("Could not invoke SOAPClient._onSendSoapRequest;\n" + exc.message);
					}
				}
			}
		}
		xmlHttp.send(sr);
		if (!async)
			return SOAPClient._onSendSoapRequest(method, async, callback, wsdl, xmlHttp, sender);
	}
	catch (e)
	{
		if (e.message != "SOAPClient is not defined")
		{
			var strError = "";

			try
			{
				if (e.stack != "")
					strError += e.stack;
			}
			catch (exc) { }

			alert('ERROR in SOAPClient._sendSoapRequest(): ' + e.message + '\n\n' + url + '\n' + method + "\n\n" + strError);
		}
	}
}

SOAPClient._onSendSoapRequest = function(method, async, callback, wsdl, req, sender)
{
	var o = null;
	var strError = "";
	var blnError = false;

	var nd = SOAPClient._getElementsByTagName(req.responseXML, method + "Result");
	if (nd.length == 0)
		nd = SOAPClient._getElementsByTagName(req.responseXML, "return"); // PHP web Service?
	if (nd.length == 0)
	{
		if (req.responseXML.getElementsByTagName("faultcode").length > 0)
		{
			strError = req.responseXML.getElementsByTagName("faultstring")[0].childNodes[0].nodeValue;

			strError = strError.replace("System.Web.Services.Protocols.SoapException: Server was unable to process request. ---> ", "");
			strError = strError.replace("Server was unable to process request. ---> ", "");
			
			var strEndOfError = "\n   --- End of inner exception stack trace ---";

			var intIndexOfError = strError.indexOf(strEndOfError);
			if (intIndexOfError != -1)
				strError = strError.substring(0, strError.length - strEndOfError.length);
			blnError = true;

			o = new Error(500, strError);

			if (callback == null)
			{
				if (async)
					throw o;
				else
					return o;
			}
		}
	}
	else
	{
		var _Value = new Array(1);
		_Value[0] = '';

		if (wsdl)
			o = SOAPClient._soapresult2object(nd[0], wsdl, _Value);
		else
		{
			o = SOAPClient._node2object(nd[0], null, _Value);
		}

		if (typeof (o) == 'object')
			o = _Value[0];
	}

	if (callback)
	{
		try
		{
			if (blnError)
				callback(o, strError, sender);
			else
				callback(o, req.responseXML, sender);
		}
		catch (exc)
		{
			alert("Error invoking callback method for " + method + ";\n" + exc.message);
		}
	}
	if (!async)
		return o;
}
SOAPClient._soapresult2object = function(node, wsdl, _Value)
{
    var wsdlTypes = SOAPClient._getTypesFromWsdl(wsdl);
    return SOAPClient._node2object(node, wsdlTypes, _Value);
}
SOAPClient._node2object = function(node, wsdlTypes, _Value)
{
	if (wsdlTypes == null)
	{
		var obj = null;
		if (node.hasChildNodes())
			obj = new Object();
		for (var i = 0; i < node.childNodes.length; i++)
		{
			var p = SOAPClient._extractValue(node.childNodes[i], wsdlTypes, _Value);
			obj[node.childNodes[i].nodeName] = p;
		}
		return obj;
	}

	// null node
	if (node == null)
		return null;
	// text node
	if (node.nodeType == 3 || node.nodeType == 4)
		return SOAPClient._extractValue(node, wsdlTypes, _Value);
	// leaf node
	if (node.childNodes.length == 1 && (node.childNodes[0].nodeType == 3 || node.childNodes[0].nodeType == 4))
		return SOAPClient._node2object(node.childNodes[0], wsdlTypes, _Value);
	var isarray = SOAPClient._getTypeFromWsdl(node.nodeName, wsdlTypes).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], wsdlTypes, _Value);
			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], wsdlTypes, _Value);
		return l;
	}
	return null;
}
SOAPClient._extractValue = function(node, wsdlTypes, _Value)
{
	var value = node.nodeValue;

	if (wsdlTypes == null)
	{
		_Value[0] += (value != null) ? value + "" : "";
		return _Value[0];
	}

	switch (SOAPClient._getTypeFromWsdl(node.parentNode.nodeName, wsdlTypes).toLowerCase())
	{
		default:
		case "s:string":
			_Value[0] += (value != null) ? value + "" : "";
			return _Value[0];
		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:datetime":
			if (value == null)
				return null;
			else
			{
				value = value + "";
				value = value.substring(0, (value.lastIndexOf(".") == -1 ? value.length : value.lastIndexOf(".")));
				value = value.replace(/T/gi, " ");
				value = value.replace(/-/gi, "/");
				var d = new Date();
				d.setTime(Date.parse(value));
				return d;
			}
	}
}
SOAPClient._getTypesFromWsdl = function(wsdl)
{
	var wsdlTypes = new Array();
	// IE
	var ell = wsdl.getElementsByTagName("s:element");	
	var useNamedItem = true;
	// MOZ
	if(ell.length == 0)
	{
		ell = wsdl.getElementsByTagName("element");	     
		useNamedItem = false;
	}
	for(var i = 0; i < ell.length; i++)
	{
		if(useNamedItem)
		{
			if(ell[i].attributes.getNamedItem("name") != null && ell[i].attributes.getNamedItem("type") != null) 
				wsdlTypes[ell[i].attributes.getNamedItem("name").nodeValue] = ell[i].attributes.getNamedItem("type").nodeValue;
		}	
		else
		{
			if(ell[i].attributes["name"] != null && ell[i].attributes["type"] != null)
				wsdlTypes[ell[i].attributes["name"].value] = ell[i].attributes["type"].value;
		}
	}
	return wsdlTypes;
}
SOAPClient._getTypeFromWsdl = function(elementname, wsdlTypes)
{
    var type = wsdlTypes[elementname] + "";
    return (type == "undefined") ? "" : type;
}
// private: utils
SOAPClient._getElementsByTagName = function(document, tagName)
{
	try
	{
		// trying to get node omitting any namespaces (latest versions of MSXML.XMLDocument)
		return document.selectNodes(".//*[local-name()=\""+ tagName +"\"]");
	}
	catch (ex) {}
	// old XML parser support
	return document.getElementsByTagName(tagName);
}
// 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");
}

SOAPClient._toBase64 = function(input)
{
	var keyStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
	var output = "";
	var chr1, chr2, chr3;
	var enc1, enc2, enc3, enc4;
	var i = 0;

	do {
		chr1 = input.charCodeAt(i++);
		chr2 = input.charCodeAt(i++);
		chr3 = input.charCodeAt(i++);

		enc1 = chr1 >> 2;
		enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
		enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
		enc4 = chr3 & 63;

		if (isNaN(chr2)) {
			enc3 = enc4 = 64;
		} else if (isNaN(chr3)) {
			enc4 = 64;
		}

		output = output + keyStr.charAt(enc1) + keyStr.charAt(enc2) +
		keyStr.charAt(enc3) + keyStr.charAt(enc4);
	} while (i < input.length);

	return output;
}