var preventL=0;
var preventC=0;
var preventU=0;
var preventNW=0;

var cr_return=0;
var cr_chars=0;
var	dot_chr=0;
var dot_cor=0;
var back_call="";
var cur_for=0;
var sp=0;
var chr_count=0;
var upper=0;
var cr=0;
var found_cr=0;
var main_msg="phorum_textarea";

function initVarRest(){
      main_msg="phorum_textarea";
	  preventL=0;
	  preventC=0;
      preventU=0;
	  preventNW=0;
	  ed_dt=document.getElementById("editor_dots")
	  if (ed_dt)ed_dt.innerHTML=" &nbsp";
	  dot_chr=0;
	  dot_cor=0;
	  back_call="";
}

 	initVarRest(); 

function addDot(){
dot_chr++;
res=dot_chr;
if (res<100 && res!=0)return false;
//var ed_dot_div=document.getElementById("editor_dots");
//if (ed_dot_div.innerHTML=="......")ed_dot_div.innerHTML="."; else ed_dot_div.innerHTML+=".";
if (!res || res==1 || dot_cor>6){
//	ed_dot_div.innerHTML="Please Wait.";
      //=".";
	   dot_chr=0;
	   dot_cor=0;
   }else {
//     ed_dot_div.innerHTML+=".";
	 dot_cor++;
	} 
	 if (back_call){
	 //alert (back_call);
	     window.setTimeout(back_call,1);
	    }
	 dot_chr=0;
	 
	 return -1;
   
}


function checkNvalidat(msg_id,cur_for_start){
msg_id=document.getElementById(msg_id);
checkNvalidate(msg_id,cur_for_start);
}


function checkNvalidate(msg_id,cur_for_start){
	var txt=msg_id.value;
	
	dot_chr=0;
    if (cur_for_start<1){
	 dot_cor=0;
	 upper=0;
	 }

  if (txt.length>0){	
	for (i=cur_for_start; i<txt.length; i++){
	 back_call="checkNvalidat('"+msg_id.id+"',"+i+");";
	 rs=addDot();
	 if (rs==-1)return false;
	 char_txt=txt.substr(i,1);
	 if (char_txt>="A" && char_txt<="Z")upper++;
	}
   if (upper>txt.length*0.3){
//     alert ("Gran parte de tu mensaje está escrito en mayúsculas. \n\nEsto haría que tu mensaje sea difícil de leer y devaluaría la calidad del sitio. \n\nPor favor, usa las mayúsculas correctamente, sólo para inicio de frases y nombres propios.\n\nGracias.");
     sugerencia_contenido.innerHTML="Gran parte de tu mensaje está escrito en mayúsculas. \n\nEsto haría que tu mensaje sea difícil de leer y devaluaría la calidad del sitio. \n\nPor favor, usa las mayúsculas correctamente, sólo para inicio de frases y nombres propios.\n\nGracias.";
	 sugerencia.style.display="";
	 divboton.style.display="none";
	 form1.boton.disabled=true;
	 msg_id.focus();
	 initVarRest();
     return false;
	 }
  }

 preventU=1;
 if (cur_for_start<1)return true;
 return_message();
}

function preventCf(msg_id,cur_for_start){
msg_id=document.getElementById(msg_id);

preventCr(msg_id,cur_for_start);
}

function preventCr(msg_id,cur_for_start){
	var txt=msg_id.value + "\r\n\r\n";
	dot_chr=0;
    if (cur_for_start<1){
	 dot_cor=0;
	 cr=0;
	 found_cr=0;
	 chr_count=0;
	 }
//alert (cur_for_start + "   " + chr_count + "  " + found_cr);
	var char_lim=700;
if (cr_return==0 || (cr_chars<txt.length-50 || cr_chars>txt.length+50)){
    do_check=1;
	}else do_check=0;	
  if (txt.length>0){	
	for (i=cur_for_start; i<txt.length; i++){
	 back_call="preventCf('"+msg_id.id+"',"+i+");";
	 rs=addDot();
	 if (rs==-1)return false;
	 char_txt=txt.substr(i,2);
	 if (char_txt=="\n\n" || txt.substr(i,4)=="\r\n\r\n"){
	  if (chr_count!=-2){
	       chr_count=-2; 
	       found_cr++;
	     }
	   }else if (chr_count==-2)chr_count=0;
	if (do_check==1){
	 if (chr_count>700){cr++;chr_count=0;}
	 
	 }
	 if (chr_count>=0)chr_count++;
	}
   if (do_check==0){
      cr=cr_return-found_cr;
      }else {
	  cr_return=cr+found_cr;
	  cr_chars=txt.length;
	  }
   if (cr>0){
     
//     alert ("El texto que intentas enviar es extenso y, sin embargo, está distribuido en sólo "+found_cr+" párrafo(s). \n\nEsto haría que fuera muy difícil y molesto leerlo. Para evitarlo, por favor distribuye el texto en, al menos, "+(cr + found_cr) +" parrafos separados entre ellos por una línea en blanco. (Pulsa la tecla Intro dos veces para anadir una línea en blanco)\n\nGracias."); 
 sugerencia_contenido.innerHTML="El texto que intentas enviar es extenso y, sin embargo, está distribuido en sólo "+found_cr+" párrafo(s). \n\nEsto haría que fuera muy difícil y molesto leerlo. Para evitarlo, por favor distribuye el texto en, al menos, "+(cr + found_cr) +" parrafos separados entre ellos por una línea en blanco. (Pulsa la tecla Intro dos veces para anadir una línea en blanco)\n\nGracias."; 
 sugerencia.style.display="";
 divboton.style.display="none";
 form1.boton.disabled=true;
	 msg_id.focus();
	 initVarRest();
     return false;
	 }
  }
 if (cur_for_start<1)return true;
 preventC=1;
 return_message();

}

function preventLongWord(msg_id,cur_for_start){
msg_id=document.getElementById(msg_id);
preventLongWords(msg_id,cur_for_start);
}

function preventLongWords(msg_id,cur_for_start){
	var txt=msg_id.value;

	dot_chr=0;
    if (cur_for_start<1){
	  dot_cor=0;
	  sp=0;
	  chr_count=0;
	  }
  if (txt.length>0){	
	for (i=cur_for_start; i<txt.length; i++){
 	 back_call="preventLongWord('"+msg_id.id+"',"+i+");";
	 rs=addDot();
	 if (rs==-1)return false;
	 char_txt=txt.substr(i,1);
	 if (char_txt==" " || char_txt=="\n"){
	   chr_count=0; 
	   }
	 if (chr_count>40){sp++;chr_count=-1;}
	 if (chr_count!=-1)chr_count++;
	}
   if (sp>0){

//     alert ("El texto contiene palabras demasiado largas. Hay "+sp+" palabra(s) de más de 40 letras."); 
     sugerencia_contenido.innerHTML="El texto contiene palabras demasiado largas. Hay "+sp+" palabra(s) de más de 40 letras.";
	 sugerencia.style.display="";
     form1.boton.disabled=true;
	 divboton.style.display="none";

	 msg_id.focus();
	 initVarRest();
     return false;
	 }
  }
 if (cur_for_start<1)return true;
 preventL=1;
 return_message();
}

function noCertainWords(){
var res=true;

words_arr=''; 
 words_arr=Array("Los textos con insultos o palabras mal sonantes no están permitidos.\n\nPor favor, revisa el vocabulario.","mierda","gilipollas","idiota","imbécil","imbecil","cabron","cabrón","hijo puta","puta","puto","putas","putos","joputa","hijo de puta","por culo","marica","capullo","mameluco","carapan","maricon","lameculos","subnormal","mongolito","puton","putón","anormal","que te jodan","joder","que te folle","joer");
 if (check_Word(words_arr)!=true)res=false; 
words_arr=''; 
 words_arr=Array("Los textos escritos como si fueran un SMS no están permitidos porque devalúan la calidad del sitio. Por favor, haz un pequeno esfuerzo y escribe correctamente y sin abreviaciones.","q","kiero","ke","k");
 if (check_Word(words_arr)!=true)res=false; 
preventNW=1;
return res;
}

function check_Word(words_arr){

  var msg_val=document.getElementById(main_msg);
  var res2=true;
  if (!msg_val)return true;
  msg_val=msg_val.value+"\n";
  if (!msg_val)return true;
  msg_val=msg_val.toLowerCase();
  for (i=1; i<words_arr.length;i++){
  
  if (msg_val.indexOf(words_arr[i]+" ")!=-1 || msg_val==words_arr[i]){
       av=msg_val.indexOf(words_arr[i]+" ");

	   if (av<1)res2=false; else {
	      av=msg_val.substr(av-1,1);
	      if (av==" " || av=="\n" || av=="\r") res2=false; 
		  }
	 
	 } else{
     
	   if (msg_val.indexOf(words_arr[i])!=-1){
	      av2=msg_val.indexOf(words_arr[i]);
		  av=av2+words_arr[i].length;

		  if (msg_val.substr(av,1)=="\n" || msg_val.substr(av,2)=="\r\n"){
		    
			   if (av2<1)res2=false; else {
				   av=msg_val.substr(av2-1,1);
		    	   if (av==" " || av=="\n" || av=="\r") res2=false; 
				   }
			}
		  }
	 }
   
  }
 if (res2==false){
// alert (words_arr[0]); 
 sugerencia_contenido.innerHTML=words_arr[0]; 
 sugerencia.style.display="";
 form1.boton.disabled=true;
 divboton.style.display="none";

 }
return res2;  
}

	var upload_field_n = 1;
	var oldupload_field_n = 0;
	var upload_content = '';
	function add_upload_field() {
		var mybody=document.getElementById("upload_td");
		var n_div = document.createElement("div");
		oldupload_field_n = upload_field_n;
		upload_field_n++;
		upload_content=upload_content.replace("["+oldupload_field_n+"]","["+upload_field_n+"]");
		n_div.innerHTML=upload_content;
		mybody.appendChild(n_div);
		
		mybody=document.getElementById("desc_td");
		n_div = document.createElement("div");
		//upload_field_n++;
		upload_desc = upload_desc.replace ("[" + oldupload_field_n + "]" , "[" + upload_field_n + "]");
		n_div.innerHTML=upload_desc;
		mybody.appendChild(n_div);			
	}
	
	var vid_upload_field_n = 1;
	var oldvid_upload_field_n = 0;
	var vid_upload_content = '';
	function add_vid_upload_field() {
		var mybody=document.getElementById("vid_upload_tdc");
		var n_div = document.createElement("div");
		oldvid_upload_field_n = vid_upload_field_n;
		vid_upload_field_n++;
		vid_upload_content = vid_upload_content.replace ("[" + oldvid_upload_field_n + "]" , "[" + vid_upload_field_n + "]");
		n_div.innerHTML=vid_upload_content;
		mybody.appendChild(n_div);
		
		mybody=document.getElementById("vid_desc_tdc");
		n_div = document.createElement("div");
		//vid_upload_field_n++;
		vid_upload_desc = vid_upload_desc.replace ("[" + oldvid_upload_field_n + "]" , "[" + vid_upload_field_n + "]");
		n_div.innerHTML=vid_upload_desc;
		mybody.appendChild(n_div);	
		
		
	}
	
	
var subj=1;
curbutk="";
curbutv="";
dontsubmit="";
function return_message() {

	if (preventL!=1)
	if (!preventLongWords(document.getElementById('texto'),0)){
	  
	  return false;
	 }

	if (preventU!=1)
	if (!checkNvalidate(document.getElementById('texto'),0)){
	  return false;
	 }

	if (preventC!=1)
	if (!preventCr(document.getElementById('texto'),0)){

	  return false;
	 }

	//if (preventNW!=1)
	main_msg="texto";
	if (!noCertainWords()){

	  return false;
	 }
	 

initVarRest(); 
subj=1;
 
//document.getElementById('form1').submit();
form1.boton.disabled=false;
sugerencia.style.display="none";
divboton.style.display="";

return true;
}

function moderacion(){
	return_message();
	t=setTimeout("moderacion()",3000);
}