_global.PerlService = function(hostname,appName,fileName,packageName)
{
	this.host             = hostname;
	this.appName          = appName;
	this.fileName         = fileName;
	this.objectName       = packageName;
	this.replyHandlers    = new Object();
}

PerlService.prototype.setDefaultReplyObject = function(targetObject,methodname)
{
	this.onReplyMethodName = methodname;
	this.onReplyObject = targetObject;
	this.onReplyHandler=null;
}

PerlService.prototype.setDefaultReplyHandler = function(handler)
{
	this.onReplyHandler = handler;
	this.onReplyMethodName = null;
	this.onReplyObject = null;
}

PerlService.prototype.registerReplyHandler = function(remoteMethodName,handler)
{
  this.replyHandlers[remoteMethodName] = handler;
}

PerlService.prototype.registerReplyObject = function(remoteMethodName,targetObject,targetMethodName)
{
  this.replyHandlers[remoteMethodName] = {obj:targetObject,mtd:targetMethodName};
}

PerlService.prototype.setApplicationName( name )
{
	this.appName  = name;
}

PerlService.prototype.setFileName( name )
{
	this.fileName = name;
}

PerlService.prototype.setPackageName( name )
{
	this.objectName = name;
}

PerlService.prototype.onXMLReply = function(status, xmlreturn, methodname)
{  
  var returnval;
  var node = xmlreturn.firstChild;
  if(node.nodeName!="xwsp"){ return "Error: Server sent an invalid xwsp document"; }
	
  node = node.firstChild;
	
  if(node.nodeName!="rply")
    return "Error: Server sent an invalid xwsp document";
	
  if(node.attributes.rslt!="okay")
  {
    returnval =  node.firstChild.firstChild.nodeValue; 
  }
  else
  {
    node = node.firstChild;
    returnval = this.idReplyNode(node);
  }
  
  if( this.replyHandlers[methodname] )
  {
	if( typeof(this.replyHandlers[methodName]) == "function" )
	{
	  this.replyHandlers[methodName](returnval);
	}
	else if( typeof(this.replyHandlers[methodName]) == "object" )
	{
	  var obj = this.replyHandlers[methodName].obj;
	  var mtd = this.replyHandlers[methodName].mtd;
	  obj[mtd](returnval);
	}
  }
  else if(this.onReplyHandler) 
    this.onReplyHandler(returnval);
  else if(this.onReplyObject)  
    this.onReplyObject[this.onReplyMethodName](returnval);
}

PerlService.prototype.idReplyNode = function(node,key)
{
	if(node.nodeName == "stng")
	{  
	  return node.firstChild.nodeValue; 
	}
	else if( node.nodeName == "ingr")
	{
	  return parseInt(  node.firstChild.nodeValue );
	}
	else if( node.nodeName == "nmbr")
	{
	  return parseFloat(node.firstChild.nodeValue);	
	}
	else if( node.nodeName == "arry")
	{
		var arr = new Array();
		for(var i=0;i<node.childNodes.length;i++)
		{
			arr[i] = this.idReplyNode(node.childNodes[i]);
		}
		return arr;
	}
	else if(node.nodeName == "tabl")
	{
		var tbl = new Object();
		var emt;
		for(var i=0; i<node.childNodes.length; i++)
		{
			emt = node.childNodes[i];
			tbl[emt.attributes.tkey] = this.idReplyNode(emt);
		}
	    return tbl;		
	}
}

PerlService.prototype.encodeWSPVar = function(xmlsend,ctx,v,keyName)
{
    if(typeof(v)=="number")
	{  
	  if( v == int(v) ) this.encodeWSPIngr(xmlsend,ctx,v,keyName);
      else              this.encodeWSPNmbr(xmlsend,ctx,v,keyName);
	}
	
	if(typeof(v)=="string") this.encodeWSPString(xmlsend,ctx,v,keyName);
	if(typeof(v)=="object") this.encodeWSPObj   (xmlsend,ctx,v,keyName);
}

PerlService.prototype.encodeWSPString = function(xmlsend,ctx,str,keyName)
{
  var stng = xmlsend.createElement("stng");

  if(typeof(keyName)=="string") 
    stng.attributes.tkey=keyName;
  
  var txt  = xmlsend.createTextNode(str);

  stng.appendChild(txt);
  ctx.appendChild(stng);
}

PerlService.prototype.encodeWSPIngr = function(xmlsend,ctx,str,keyName)
{
  var stng = xmlsend.createElement("ingr");

  if(typeof(keyName)=="string") 
    stng.attributes.tkey=keyName;
  
  var txt  = xmlsend.createTextNode(str);

  stng.appendChild(txt);
  ctx.appendChild(stng);
}

PerlService.prototype.encodeWSPNmbr = function(xmlsend,ctx,str,keyName)
{
  var stng = xmlsend.createElement("nmbr");

  if(typeof(keyName)=="string") 
    stng.attributes.tkey=keyName;
  
  var txt  = xmlsend.createTextNode(str);

  stng.appendChild(txt);
  ctx.appendChild(stng);
}

PerlService.prototype.encodeWSPObj = function(xmlsend,ctx,obj,keyName)
{
	if(obj.length==undefined)
	{
		var tabl = xmlsend.createElement("tabl");
		if(typeof(keyName)=="string") tabl.attributes.tkey=keyName;
		for(var key in obj)
		  this.encodeWSPVar(xmlsend,tabl,obj[key],key);
		ctx.appendChild(tabl);	
	}
	
	else
	{
		var arr = xmlsend.createElement("arry");
		if(typeof(keyName)=="string") arr.attributes.tkey=keyName;
		for(var i=0; i<obj.length; i++) 
		  this.encodeWSPVar(xmlsend,arr,obj[i]);
		ctx.appendChild(arr);
	}
}

// This only works for one level so don't try to improve on it, you will fail
PerlService.prototype.__resolve = function()
{
  var methodname = arguments[0];
	var code  = 
	function()
	{ 
	  if(this.objectName==""){ this.onReply("PerlService Error: object name is undefined"); }
		if(this.fileName==""){ this.onReply("PerlService Error: file name is undefined"); }
  
	  var xmlreturn             = new XML();
	      xmlreturn.ignoreWhite = true;
	      xmlreturn.parent      = this;
		  xmlreturn.methodname  = methodname;
	      xmlreturn.onLoad      = function(status){  this.parent.onXMLReply(status, this, this.methodname); }

	  var xmlsend = new XML();
	  var xwsp = xmlsend.createElement("xwsp");
	  var svce = xmlsend.createElement("svce");
          svce.attributes.appl = this.appName;
	      svce.attributes.file = this.fileName;
          svce.attributes.call = this.objectName+"::"+methodname;
				
	  xmlsend.appendChild(xwsp);
	  xwsp.appendChild(svce);
	  svce.appendChild(stng);
	  var ctx = svce;
	
	  for(var i=0;i<arguments.length;i++)
	  {
      this.encodeWSPVar(xmlsend,ctx,arguments[i]);
	  }
      xmlsend.sendAndLoad("http://"+this.host+"/perlservice",xmlreturn,"POST");
	}
  return code;
}