var bp_data_div = null;
var bp_div = null;
var disp_box = null;
var ptile_lr = 1;
var asid = "ptile-22";
var cur_link = "";
var ie6 = false;


function pInit(){
  if(document.all){
    bp_data_div = document.all("bp_data");
    bp_div = document.all("bp_div");
    disp_box = document.all("disp_box");
    ie6 = true;
  }
  else if(document.getElementById){
    bp_data_div = document.getElementById("bp_data");
    bp_div = document.getElementById("bp_div");
    disp_box = document.getElementById("disp_box");
  }

  var tmp_id = rCk("asid");
  if(tmp_id != ""){
    asid = tmp_id;
    wCk("asid",asid);
    document.forms["ctrl"].elements["asid"].value = asid;
  }
  chDisp();
}

function rCk(v_name,torf){
  var ck = document.cookie + ";";
  var dataArr = new Array();
  var stPos = 0;
  var tmpPos = ck.indexOf(";");
  var endPos = ck.length;
  var ii=0;
  var ttl = "";
  while(tmpPos != -1 && tmpPos < endPos){
    dataArr[ii] = ck.substring(stPos,tmpPos);
    if(dataArr[ii].indexOf(v_name) != -1 && dataArr[ii].indexOf("=") != -1){
      st_pos = dataArr[ii].indexOf("=");
      ttl = dataArr[ii].substring(st_pos+1,dataArr[ii].length);
      break;
    }
    stPos = tmpPos+1;
    tmpPos = ck.indexOf(";",stPos);
    ii++;
  }
  if(!torf){
    return unescape(ttl);
  }
  return decodeURIComponent(ttl);
}

function wCk(v_name,val,torf){
  if(val != ""){
    var setDay = new Date();
    setDay.setTime(setDay.getTime()+(365*1000*60*60*24));
    var expDay = setDay.toGMTString();
  }
  else{
    var expDay = "expires=Sun,01-Jan-70 00:00:01 GMT";
  }
  if(!torf){
    var ck_str = v_name + "=" + escape(val);
  }
  else{
    var ck_str = v_name + "=" + encodeURIComponent(val);
  }
  document.cookie = ck_str + ";expires="+expDay;
}

function chDisp(){
  var tmp_fm = document.forms["ctrl"];

  var cols = parseInt(tmp_fm.elements["cols"].value);
  var rows = parseInt(tmp_fm.elements["rows"].value);
  var data_len = cols * rows;

  ptile_lr = (tmp_fm.elements["lr"][1].checked)? 1 : 0;

  /*
  alert(bp_data_div);
  alert(bp_div);
  alert(data_len);
  */

  if(bp_data_div && bp_div && data_len > 0){
    bp_div.innerHTML = "";

    var parts_arr = [];
    var tmp_obj = bp_data_div.firstChild;
    var idx = 0;
    while(tmp_obj && idx < data_len){
      var nname = tmp_obj.nodeName;
      //alert("nname="+nname);
      if(nname.toLowerCase() == "a"){
	parts_arr[idx] = tmp_obj.cloneNode(true);
	idx++;
      }
      tmp_obj = tmp_obj.nextSibling;
    }

    var br_obj = document.createElement("br");

    data_len = parts_arr.length;
    //alert("data_len = " + data_len);


    for(ii=0;ii<data_len;ii++){
      bp_div.appendChild(parts_arr[ii]);
      if((ii + 1) % cols == 0){
	var ins_obj = br_obj.cloneNode(true);
	bp_div.appendChild(ins_obj);
      }
    }

    var text_val = bp_div.innerHTML;
    var tmp_asid = tmp_fm.elements["asid"].value;
    if(tmp_asid != "" && tmp_asid.indexOf("-22") != -1){
      asid = tmp_asid;
      text_val = strRpl("ptile-22",asid,text_val);
      wCk("asid",asid);
    }
    text_val = "<div onmouseout=\"hideImg()\">" + text_val + "</div>";
    text_val += "<br><a href=\"http://www.popuptile.net\">by popupTile</a>";
    text_val += "<div id=\"disp_box\" style=\"position:absolute;display:none;\">"+ptile_lr+"</div>";
    text_val = "<script type=\"text/javascript\" src=\"http://www.popuptile.net/js/parts.js\"></script>" + text_val;

    tmp_fm.elements["bp_out"].value = text_val;
  }

}


function strRpl(ol,nw,val,dp){
  if(typeof(val) != "string" || val.length < 1){
    return "";
  }

  var rt = val;
  var pos = rt.indexOf(ol);
  var oll = ol.length;
  var nwl = nw.length;

  while(pos > -1 && pos <= rt.length){
    var st_str = rt.substring(0,pos);
    var rst_str = rt.substring(pos + oll,rt.length);
    rt = st_str + nw + rst_str;

    //alert("strRpl,ol="+ol + ",nw="+nw+",val="+val+",rt="+rt + ",pos="+pos); //+",val.rpl=" + val.replace(ol,nw));

    pos = rt.indexOf(ol,pos + nwl);
  }

  return rt;
}