sub toClient {local($x,$To,$IN,$OUT) = @_; 
 local($y); 
 $$IN .= "window.parent.charge.Owner = \"".$wwIdent."\";\n";
 $$IN .= "window.parent.charge.Pass = \"".$wwAuth."\";\n";
 $$IN .= "window.parent.charge.Compta = ".&uneval($wwNum).";\n";
 $y = "recharge"; 
 $$OUT .= "<script language=\"JavaScript\">\n";
 $$OUT .= "var target = ".&uneval($y).";\n";
 $$OUT .= "var value = ".&uneval($$IN).";\n";
 $$OUT .= "<"."/script>\n";
 return 0;
}

function toClient(x,To,IN,OUT) { 
 var y; 
 IN[0] += "window.parent.charge.Owner = \""+wwIdent[0]+"\";\n";
 IN[0] += "window.parent.charge.Pass = \""+wwAuth[0]+"\";\n";
 IN[0] += "window.parent.charge.Compta = "+uneval(wwNum[0])+";\n";
 y = "recharge";
 OUT[0] += "<script language=\"JavaScript\">\n";
 OUT[0] += "var target = "+uneval(y)+";\n";
 OUT[0] += "var value = "+uneval(IN[0])+";\n";
 OUT[0] += "<"+"/script>\n";
 return 0;
}