// *********************************************************************//
// CopyRight (C) 2007-2008 BY aymanstar (aymanstar@hotmail.com)
// ********************** F R E E    P R O G R A M *********************//
// *********************************************************************//

  function limitText(limitField,limitCount,limitNum) {
       if (limitField.value.length > limitNum)
        { limitField.value=limitField.value.substring(0,limitNum);}
        else { limitCount.value=limitNum-limitField.value.length;
        }
       }
       
       
       
       
       
       if(self.Node&&self.Node.prototype){
Node.prototype.removeNode=remove_Node;
Node.prototype.replaceNode=replace_Node;
Node.prototype.swapNode=swap_Node;
Element.prototype.applyElement=apply_Element;
Element.prototype.contains=_contains;
Element.prototype.insertAdjacentText=insertAdj_Text;
Element.prototype.insertAdjacentHTML=insertAdj_HTML;
Element.prototype.insertAdjacentElement=insertAdj_El;
Element.prototype.insert__Adj=insert__Adj;
}

function remove_Node(a1){
var p=this.parentNode;
if(p&&!a1){
var df=document.createDocumentFragment();
for(var a=0;a<this.childNodes.length;a++){
df.appendChild(this.childNodes[a])
}
p.insertBefore(df,this)
}
return p?p.removeChild(this):this;
}

function replace_Node(a1){return this.parentNode.replaceChild(a1,this)}

function swap_Node(a1){
var p=a1.parentNode;
var s=a1.nextSibling;
this.parentNode.replaceChild(a1,this);
p.insertBefore(this,s)
return this;
}

function apply_Element(a1,a2){
if(!a1.splitText){
a1.removeNode();
if(a2&&a2.toLowerCase()=="inside"){
for(var a=0;a<this.childNodes.length;a++){
a1.appendChild(this.childNodes[a])
}
this.appendChild(a1)
}
else{
var p=this.parentNode;
p.insertBefore(a1,this);
a1.appendChild(this);
}
return a1;
}
}

function _contains(a1){
var r=document.createRange();
r.selectNode(this);
return r.compareNode(a1)==3;
}

function insertAdj_Text(a1,a2){
var t=document.createTextNode(a2||"")
this.insert__Adj(a1,t);
}

function insertAdj_HTML(a1,a2){
var r=document.createRange();
r.selectNode(this);
var t=r.createContextualFragment(a2);
this.insert__Adj(a1,t);
}

function insertAdj_El(a1,a2){
this.insert__Adj(a1,a2);
return a2;
}

function insert__Adj(a1,a2){
var p=this.parentNode;
var s=a1.toLowerCase();
if(s=="beforebegin"){p.insertBefore(a2,this)}
if(s=="afterend"){p.insertBefore(a2,this.nextSibling)}
if(s=="afterbegin"){this.insertBefore(a2,this.childNodes[0])}
if(s=="beforeend"){this.appendChild(a2)}
}
      



// show or hide filter
// set 1 for showing or 0 for hiding
var ShowFilter = 1;

////////////////////////// set default parameters //////////////////////////
function poet_setDefaultVar() {

  // ÅÐÇ áã íæÌÏ ÇáÎØ ÇáÐí ÍÏÏå ÇáãÓÊÎÏã
  // ÝÅä ÇáÇÊÔ Êí Çã Çá íÎÊÇÑ ÊáÞÇÆíÇ æÇÍÏ ãä ÇáÎØæØ ÇáÊÇáíÉ ÚáìÇáÊÑÊíÈ 
  // ÝÅä áã íÌÏ ÇáÃæá ÇäÊÞá Åáì ÇáËÇäí æåßÐÇ
  
  poetDefaultFont = "tahoma,ms sans serif,verdana,arial,helvetica";  

  poetType = "0",
  poetLine = "200%",
  poetAlign = "center",
  poetUse = "sp";
  poetLength = "0";

  poetFontName = "",
  poetFontSize = "4", //1 to 7
  poetFontColor = "",
  poetFontBold = "",
  poetFontItalic = "";

  poetBackColor = "none",
  poetBackImage = "none";  

  poetFilter = "";

  poetBorderStyle = "none",
  poetBorderWidth = "medium",
  poetBorderColor = "black";

  poetChar = "";

  poetSerialNum = "0",
  poetSerialNumColor = "";

}

//////////////////////////////////////////////////////////////////////////
           
  var poetSpaceWidth, poetExtendWidth;
  var poetToolFix, poetDiff;
            
  var poetLetters1 = "ÇÃÅÂÄÁÏÐÑÒæÉì"
  var poetLetters2 = "ÇÃÅÂÄÆÈÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÝÞßáãäåæíÉì";
  var poetLetters3 = "óðõñöòúø";

  function create_testWidth_table() {
    if (!document.getElementById("testWidth")) {
      var HTML = "<table border=1 width=0 style='visibility:hidden;position:absolute'>"
      HTML += "<tr><td id='testWidth' width=0 nowrap></td></tr>"
      HTML += "</table>"
      document.body.insertAdjacentHTML("afterBegin", HTML);

    }
  }

  function poet_getValue(t, p) {
	if (!p)
	{
		return "";
	}
    var r = new RegExp("([ \"]|^)" + t + "[ ]*=[ ]*\"[^\"]*\"", "i");
    var m = p.match(r);    
    if (!m) {
      r = new RegExp("([ \"]|^)" + t + "[ ]*=[ ]*[^\" ]*([ ]|$)", "i");
      m = p.match(r);
      if (!m)          
        return "";
    }
    m = m[0];
    m = m.replace(/\"/gi,"");    
    var i = m.search("=");
    return m.substring(i + 1);
  }

  function poet_getDefault(p, d) {
    p = poet_trim(p);
    return poet_trim((p?p:d));
  }
    
  function poet_setArg(arg) {        
    var par;        

    par = poet_getValue("font", arg) + ",,,,";  //comas = number of arrays - 1
    par = par.split(",");
    poetFontName = poet_getDefault(par[0], poetFontName);
    poetFontSize = poet_getDefault(par[1], poetFontSize);
    poetFontColor = poet_getDefault(par[2], poetFontColor);
    poetFontBold = poet_getDefault(par[3], poetFontBold);
    poetFontItalic = poet_getDefault(par[4], poetFontItalic);
    

    par = poet_getValue("border", arg) + ",,";
    par = par.split(",");
    poetBorderStyle = poet_getDefault(par[0], poetBorderStyle);
    poetBorderWidth = poet_getDefault(par[1], poetBorderWidth);
    poetBorderColor = poet_getDefault(par[2], poetBorderColor);

    par = poet_getValue("num", arg) + ",";
    par = par.split(",");  
    poetSerialNum = poet_getDefault(par[0], poetSerialNum);
    poetSerialNumColor = poet_getDefault(par[1], poetSerialNumColor);

    par = poet_getValue("type", arg);
    poetType = poet_getDefault(par, poetType); 

    par = poet_getValue("line", arg);
    poetLine = poet_getDefault(par, poetLine);

    par = poet_getValue("align", arg);
    poetAlign = poet_getDefault(par, poetAlign);

    par = poet_getValue("use", arg);
    poetUse = poet_getDefault(par, poetUse).toLowerCase();

    par = poet_getValue("length", arg);
    poetLength = poet_getDefault(par, poetLength);
    if (poetLength > 200)
	  poetLength = 200;

    par = poet_getValue("bkcolor", arg);
    poetBackColor = poet_getDefault(par, poetBackColor);

    par = poet_getValue("bkimage", arg);
    poetBackImage = poet_getDefault(par, poetBackImage);

    par = poet_getValue("char", arg);
    poetChar = poet_getDefault(par, poetChar);

   if (ShowFilter) {
      par = poet_getValue("filter", arg);
      poetFilter = poet_getDefault(par, poetFilter);
    }
    


    //////////// set style ///////////
    var facesize = new Array("xx-small","x-small","small","medium","large","x-large","xx-large");
    if (poetFontSize < 1) 
      poetFontSize = 1;
    else if (poetFontSize > 7) 
      poetFontSize = 4;
    else
      poetFontSize = facesize[poetFontSize - 1];

    poetFontName += "," + poetDefaultFont;
            
            


    document.getElementById("testWidth").style.fontFamily = poetFontName;
    document.getElementById("testWidth").style.fontSize = poetFontSize;
    document.getElementById("testWidth").style.fontWeight = poetFontBold;
    document.getElementById("testWidth").style.fontStyle = poetFontItalic;
    


    ///////////////////////////////////
  }
  
  function poet_trim(t) {
    t = t.replace(/^[ ]+/,"");
    t = t.replace(/[ ]+$/,"");
    return t;
  }
  
  function poet_textWidth(t) {
    document.getElementById("testWidth").innerHTML= t.replace(/ /g, "&nbsp;");
    return (document.getElementById("testWidth").clientWidth - 2) * 0.75;
  }
  
  function poet_strReplace(t, s1, s2, c) {
	if (c <= 0) 
	  return;
    t=t.split(s1);
    var s="";
    for (var i=t.length-1;i>0;i--)
	  if (c-->0)
        s = s2 + t[i] + s;
	  else
		s = s1 + t[i] + s;

	s = t[0] + s;
    return s;
  }
  
  function poet_count(str, ch) {
    var c = 0;
    for (var i = 0; i < str.length; i++)
      c += (str.charAt(i) == ch);
    return c;
  }

  function poet_space(n) {
    if (n == 1)
      return " ";
    return  " " + poet_space(n-1);
  }
  
  function poet_createExtend(t) {
    var alef = "ÇÃÅÂ";
    var s = "";
    var befor = "", ch = "";
    t = t.replace(/Çááå/g,"@");
    for (i = 0; i < t.length; i++) {
      ch = t.charAt(i);
      if (poetLetters2.indexOf(ch.charAt(0)) != -1 || ch.charAt(0) == "Á") {        
        if (befor != "")
          if (poetLetters1.indexOf(befor.charAt(0)) == -1 && poetLetters2.indexOf(ch.charAt(0)) != -1 
            && (befor.charAt(0) != "á" 
            || alef.indexOf(ch.charAt(0)) == -1))
            s += "^";
        befor = ch;
        s += ch;
      }
      else {
        s += ch;
        if (poetLetters3.indexOf(ch.charAt(0)) == -1)
          befor = "";
      }        
    }
    s = s.replace(/@/g,"Çááå");
    return s;
  }
  
  function poet_extend(n) {
	if (n <= 0)
      return ""; 
    if (n == 1)
      return "Ü";
    return  "Ü" + poet_extend(n-1);
  } 

  function poet_justifyBYextend(t, w) {
    var ex = 0, i, d, n, p, m;
    ex = poet_count(t, "^");
    if (ex == 0) return t;
    d = Math.floor((w - poet_textWidth(t.replace(/\^/g,""))) / poetExtendWidth);      
    t = t.split(" ");
    n = 0;
    for (i = 0; i < t.length; i++)      
      n += (t[i].indexOf("^") != -1);
    p = Math.floor(d / n);
    m = d % n;
    for (i = t.length-1; i >= 0; i--) {    
      ex = poet_count(t[i], "^");
      if (ex == 0)
        continue;
      d = p + (m-- > 0);
      n = Math.floor(d / ex);      
      if (n > 0)
        t[i] = t[i].replace(/\^/g, "^" + poet_extend(n));
      if (d % ex > 0)
        t[i] = poet_strReplace(t[i], "^", "Ü", d % ex);
    }
    t = t.join(" ");
    t = t.replace(/\^/g, ""); 
    return t;
  }
  
  function poet_justifyBYspace(t, w, dir) {
    var sp = 0, i, d, tw, n;
    sp = poet_count(t, " ");
    if (sp != 0) {
      d = Math.floor((w - poet_textWidth(t)) / poetSpaceWidth);
      n = Math.floor(d / sp);
      if (n > 0)
        t = t.replace(/ /g, poet_space(n + 1));
      if (d % sp > 0)
        t = poet_strReplace(t, poet_space(n + 1), poet_space(n + 2), d % sp);
    }
    tw = w - poet_textWidth(t);
    if (tw > 0) {
      i = t.lastIndexOf(" ");
      if (i == -1)
        if (dir == 0)
          return t;
        else
          i = ((dir==2)?-1:t.length-1);
      tw -= poetDiff;
      t = t.substr(0, i+1) + poetToolFix.replace(/letter-spacing:normal/,"letter-spacing:"+tw+"pt ") + t.substr(i+1);
    }    
    return t; 
  }
  
  function poet_justify(t, w, dir) {
    if (poetUse == "ex") t = poet_justifyBYextend(t, w);    
    return poet_justifyBYspace(t, w, dir);
  }
  
  function doPoetry(preview) {
    poet_setDefaultVar();
    var d = document.getElementsByTagName("div");
    
    if(document.all){
         var poetry = d[d.length-1].innerText;
} else{
        var poetry = d[d.length-1].textContent ;
}

var len=d.length-1;

	   if(document.all){
	var arg = d[d.length-1].tag;
} else{
	var arg = d[d.length-1].attributes['tag'].textContent;
}
	

    var L, R, i, j, cr, MTW;
	var poetSide, poetSideNum;

    create_testWidth_table();    

    poet_setArg(arg); 
     	    

    poetToolFix = "<span style='font-size:1pt;letter-spacing:normal;'>&nbsp;&nbsp;</span>";
    document.getElementById("testWidth").innerHTML = poetToolFix;
    poetDiff = (document.getElementById("testWidth").clientWidth - 2) * 0.75;
    poetToolFix = poetToolFix.replace(/ /g,"^");   

    poetry = poetry.replace(/[\^@Ü]/g,"");
    poetry = poetry.replace(/[ ]+/g," ");
    poetry = poetry.replace(/^[\r\n]+/,"");
    poetry = poetry.replace(/[\r\n]+$/,"");
    poetry = poetry.replace(/\n/g,"");
    poetry = poetry.replace(/[ ]*\r[ ]*/g,"\r");
    poetry = poetry.replace(/[ ]*=[ ]*/g,"=");
    poetry  = poetry.replace(/^[ ]+/,"");
    poetry  = poetry.replace(/[ ]+$/,"");
    poetry += "\r";

	poetExtendWidth = poet_textWidth("Ô" + "ÜÜ" + "Ô");
    poetExtendWidth -= poet_textWidth("Ô" + "Ü" + "Ô");
    poetSpaceWidth = poet_textWidth("Ô" + "&nbsp;&nbsp;" + "Ô");
    poetSpaceWidth -= poet_textWidth("Ô" + "&nbsp;" + "Ô");
    


    if (poetUse=="ex") {
	  var test = poet_textWidth(poetry);
	  poetry = poet_createExtend(poetry);
      test = (poet_textWidth(poetry.replace(/\^/g, "Ü")) - test) / poet_count(poetry,"^");
	  if (test != poetExtendWidth) //problem in some fonts
		poetry = poetry.replace(/\^/g, "^Ü");
    }

	document.getElementById("testWidth").innerHTML = poetry.replace(/\r/g,"<br>").replace(/=/g,"<br>").replace(/ /g, "&nbsp;").replace(/\^/g, "");
    MTW = (document.getElementById("testWidth").clientWidth - 2) * 0.75;

	if (parseFloat(poetLength) > MTW)
	   MTW = parseFloat(poetLength);
    
	var nbsp = "&nbsp;&nbsp;&nbsp;&nbsp;";
	poetSideNum = "";
    poetSide = "";
    cr = 0;
    j = 0;
    var sn = 0;
    while (1) {
      cr = poetry.indexOf("\r", cr);
      if (cr == -1) break;
      if (poetry.substring(j, cr) != "") {
        i = poetry.indexOf("=", j);        
        if (i == -1 || i > cr) i = cr; //no '=' in this line

        L = poetry.substring(j, i);
        L = poet_justify(L, MTW, ((i==cr)?0:1));
        L = L.replace(/ /g, "&nbsp;");
        L = L.replace(/\^/g, " ");

        R = poetry.substring(i+1, cr);
        R = poet_justify(R, MTW, 2);
        R = R.replace(/ /g, "&nbsp;");
        R = R.replace(/\^/g, " ");
 
        if (poetType == 0) {
          if (i != cr)
            poetSide += L + nbsp + poetChar + nbsp + R + "<br>";
          else
            poetSide += "<div align=center>" + L + "</div>";
          poetSideNum += ++sn + "<br>";
        }
        else if (poetType == 1) {
          if (i != cr) {
            poetSide += "<div style='margin-left:"+Math.round(MTW)+"pt'>" + L + "</div>";
            poetSide += "<div style='margin-right:"+Math.round(MTW)+"pt'>" + R + "</div>";
            poetSideNum += ++sn + "<br>&nbsp;<br>";
          }
          else {
            poetSide += "<div align=center>" + L + "</div>";
            poetSideNum += ++sn + "<br>";
          }
        }
        else if (poetType == 2) {
          if (i != cr) {
            poetSide += "<div style='margin-left:"+Math.round(MTW/2)+"pt'>" + L + "</div>";
            poetSide += "<div style='margin-right:"+Math.round(MTW/2)+"pt'>" + R + "</div>";
            poetSideNum += ++sn + "<br>&nbsp;<br>";
          }
          else {
            poetSide += "<div align=center>" + L + "</div>";
            poetSideNum += ++sn + "<br>";
          }
        }
        else if (poetType == 3) {
          poetSideNum += ++sn + "<br>";
          poetSide += L + "<br>";          
          if (i != cr) {
            poetSide += R + "<br>";
            poetSideNum += "&nbsp;<br>";          
          }
        }        
      }
      else {
        poetSide += "<br>";
        poetSideNum += "<br>";
      }      
      cr += 1;
      j = cr;
    }

    poetSideNum = poetSideNum.replace(/(<br>)+$/i, "");
    poetSide = poetSide.replace(/(<br>)+$/i, "");	

	// *******************************************

    var HTML = "", poetBodyStyle = "", poetSerialNumStyle = "";
	poetBodyStyle += ";font-family:" + poetFontName;
    poetBodyStyle += ";font-size:" + poetFontSize;
    poetBodyStyle += ";color:" + poetFontColor;
    poetBodyStyle += ";font-weight:" + poetFontBold;
    poetBodyStyle += ";font-style:" + poetFontItalic;
    poetBodyStyle += ";line-height:" + poetLine;
    poetBodyStyle += ";background-color:" + poetBackColor; 
    poetBodyStyle += ";background-image:url(" + poetBackImage + ")";
	poetBodyStyle += ";border:" + poetBorderWidth + " " + poetBorderStyle + " " + poetBorderColor;

    poetSerialNumStyle = "color:" + poetSerialNumColor + "; display:" + ((poetSerialNum=="0")?"none":"block");

//

HTML +="<style><!--.pp          {font-size: "+ poetFontSize +"; color:"+ poetFontColor +"; font-family:"+ poetFontName +"; font-weight:"+ poetFontBold +"; font-style:"+ poetFontItalic +" } --></style>";

	HTML += "<div width=0 align='" + poetAlign + "'>";
    HTML += "<table dir=rtl border=0 cellspacing=10 cellpadding=5 ondblclick='poet_showhidenum(this)' width=0 style='" + poetBodyStyle + "' class=\"pp\">";
    HTML += "<tr>";
    HTML += "<td class=\"pp\" width=0 align=center valign=top style='" + poetSerialNumStyle + "' nowrap>";
	HTML += poetSideNum 
	HTML += "</td>";
    HTML += "<td class=\"pp\" width=0 align=center valign=top nowrap style='filter:" + poetFilter + "'>";
    HTML +=  poetSide;
    HTML += "</td>";
    HTML += "</tr></table></div>";
	if (preview)
	 return HTML;
	else
     document.write(HTML);
  }   
  
  function poet_showhidenum(o) {
    o = o.getElementsByTagName("TD")[0];
    if (o.style.display == "none")
      o.style.display = "block";
    else
      o.style.display = "none";
  }

  function poet_openDialog(oSelText) {
	  showModalDialog("hackpoet.htm",oSelText,"help:no; center:yes; status:no; dialogHeight:310px; dialogWidth:480px");
  }
  
  
//==========================================
// Multi Page jumps
//==========================================

function multi_page_jump( url_bit, cur_page,pages_total,message )
{
    msg = message + " " + pages_total;
    userPage = prompt( msg, cur_page);

    if ( userPage > 0  )
    {
        if ( userPage < 1 )     {    userPage = 1;  }
        if ( userPage > pages_total ) { userPage = pages_total; }
        window.location = url_bit +   userPage;
    }
}
	function OpenWin(URL, winName, width, height, scroll){

		var winLeft = (screen.width - width) / 2;
		var winTop = (screen.height - height) / 2;
		winData = 'height='+height+',width='+width+',top='+winTop+',left='+winLeft+',scrollbars='+scroll+',resizable';
		win = window.open(URL, winName, winData);
		if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
	}




//Input the IDs of the IFRAMES you wish to dynamically resize to match its content height:
//Separate each ID with a comma. Examples: ['myframe1', 'myframe2'] or ['myframe'] or [] for none:
var iframeids=["myframe"]

//Should script hide iframe from browsers that don't support this script (non IE5+/NS6+ browsers. Recommended):
var iframehide='yes'

var getFFVersion=navigator.userAgent.substring(navigator.userAgent.indexOf('Firefox')).split('/')[1]
var FFextraHeight=parseFloat(getFFVersion)>=0.1? 32 : 16 //extra height in px to add to iframe in FireFox 1.0+ browsers / 16 : 0

function resizeCaller()
{
	var dyniframe=new Array()
	for (i=0; i<iframeids.length; i++)
	{
		if (document.getElementById)
			resizeIframe(iframeids[i])
		//reveal iframe for lower end browsers? (see var above):
		if ((document.all || document.getElementById) && iframehide=='no')
		{
			var tempobj=document.all? document.all[iframeids[i]] : document.getElementById(iframeids[i])
			tempobj.style.display='block'
		}
	}
}

function resizeIframe(frameid)
{
	var currentfr=document.getElementById(frameid)
	if (currentfr && !window.opera)
	{
		currentfr.style.display='block'
		if (currentfr.contentDocument && currentfr.contentDocument.body.offsetHeight) //ns6 syntax
			currentfr.height = currentfr.contentDocument.body.offsetHeight+FFextraHeight; 
		else if (currentfr.Document && currentfr.Document.body.scrollHeight) //ie5+ syntax
			currentfr.height = currentfr.Document.body.scrollHeight;
		if (currentfr.addEventListener)
			currentfr.addEventListener('load', readjustIframe, false)
		else if (currentfr.attachEvent)
		{
			currentfr.detachEvent('onload', readjustIframe) // Bug fix line
			currentfr.attachEvent('onload', readjustIframe)
		}
	}
}



function readjustIframe(loadevt)
{
	var crossevt=(window.event)? event : loadevt
	var iframeroot=(crossevt.currentTarget)? crossevt.currentTarget : crossevt.srcElement
	if (iframeroot)
		resizeIframe(iframeroot.id);
}

function loadintoIframe(iframeid, url)
{
	if (document.getElementById)
		document.getElementById(iframeid).src=url
}

if (window.addEventListener)
	window.addEventListener('load', resizeCaller, false)
else if (window.attachEvent)
	window.attachEvent('onload', resizeCaller)
else
	window.onload=resizeCaller