Aquí está el codigo mejorado e integrado: Código PHP:
<html>
<head><SCRIPT language=JavaScript><!--
function ValidateForm(form)
{
if (form.name.value == "")
{ alert("Por favor ingrese su Nombre"); form.name.focus(); return; }
if (form.to.value == "")
{ alert("Por favor ingrese la dirección de email destino"); form.to.focus(); return; }
if (form.from.value == "")
{ alert("Por favor ingrese su dirección de e-mail"); form.from.focus(); return; }
if (form.to.value.indexOf('@', 0) == -1 ||
form.to.value.indexOf('.', 0) == -1)
{ alert("Por favor verifique las direcciones de e-mail, existe alguna que no es valida o esta escrita incorrectamente."); form.to.focus(); return; }
if (form.from.value.indexOf('@', 0) == -1 ||
form.from.value.indexOf('.', 0) == -1)
{ alert("Por favor verifique su direccion de e-mail, tal vez no este escrita correctamente."); form.from.focus(); return; }
comprobarCoherencia(form.name.value);
}
//------EDITABLE-----------
var palabraMasCorta=2;
var maximoDeVocales=2;
var maximoDeConsonantes=2;
var inconsistenteSiTieneJuntas=3
//---------------------------
var palabra=new Array();
var controlDePalabra=new Array();
var maximoconsonante=new Array();
var maximovocal=new Array();
var laFrase="";
var q=0
var vocales="AEIOUÁÉÍÓÚ";
var consonantes="BCDFGHJKLMNÑPQRSTVWXYZ";
var comprobado;
var mal=0;
var fraseInicial="";
var espacio=0;
var parabola="";
var revision=false;
function comprobarCoherencia(frase){
fraseInicial="";
laFrase="";
if(!frase){return false;}
var control=0;
for (a=0;a<frase.length;a++){
if(frase.charAt(a)==" "){espacio+=1}
else{
espacio=0
}
if(espacio<2){
fraseInicial+=frase.charAt(a)
}
}
if(fraseInicial.substring(fraseInicial.length-1)==" "){
fraseInicial=fraseInicial.substring(0,fraseInicial.length-1);
}
frase=fraseInicial
frase=frase.toUpperCase();
palabra=frase.split(" ");
for (b=0;b<palabra.length;b++){
maximoconsonante[b]=0;
maximovocal[b]=0;
control=0;
consonante=0;
vocal=0;
for(a=0;a<palabra[b].length;a++){
comprobado=0;
letra=palabra[b].charAt(a);
if (vocales.indexOf(letra)>-1){
comprobado=1;control+=1
vocal+=1
if(consonante>maximoconsonante[b]){
maximoconsonante[b]=consonante;}
consonante=0
}
if(consonantes.indexOf(letra)>-1){
comprobado=1;control-=1
consonante+=1
if(vocal>maximovocal[b]){
maximovocal[b]=vocal;}
vocal=0
}
if(comprobado==0){control+=1000}
if(isNaN(letra) && letra.toUpperCase()!=letra.toLowerCase()){
laFrase+=(a==0)?letra:letra.toLowerCase();
parabola+=letra
}
}
palabra[b]=parabola;
parabola=""
laFrase+=" ";
controlDePalabra[b]=control;
}
document.forms[0].elements[3].value=laFrase;
if(!revision){revision=true;comprobarCoherencia(laFrase)}
else {revision=false;errores()}
}
function errores(){
for (a=0;a<palabra.length;a++){
b=a+1;
Mensaje="Palabra número " + b + ": "+palabra[a];
if (maximoconsonante[a]>maximoDeConsonantes){
Mensaje+="\nTiene mas de "+maximoDeConsonantes+" consonantes juntas";
mal=1;
}
if(maximovocal[a]>maximoDeVocales){
Mensaje+="\nTiene mas de "+ maximoDeVocales+ " vocales juntas";
mal=1;
}
if(Math.abs(controlDePalabra[a])>=inconsistenteSiTieneJuntas){
Mensaje+="\nTiene una falta de consistencia";
mal=1;
}
if(palabra[a].length<=palabraMasCorta){
Mensaje+="\nEs demasiado corta";
mal=1;
}
if(mal==1){alert(Mensaje);malmal=1;}
mal=0;
}
if(malmal==1){return false;
document.forms[0].elements[3].focus();}
else{form.submit();}
}
//-->
</script>
<title></title>
</head>
<BODY
BGPROPERTIES=FIXED
bgcolor=black
leftmargin=1
topmargin=0
background=""
link=#0000ff
text=#000000
vLink=#800080>
<FONT color=green face="verdana">
<!-- EMPIEZa RaPIDOMaIL -->
<form action="perl/p2.cgi" method=POST>
<INPUT TYPE="hidden" value="Mensaje enviado desde Sitio" NaME="asunto">
<center>
<table width=100% border=2 cellpadding=0 cellspacing=0>
<tr border=2 bgcolor="#006633">
<font size="-1" face="arial, Helvetica" color="#ffffff">
<b>
<td bgcolor="#FFFF00"
bordercolor="#0000FF"
bordercolorlight="#00FF00"
bordercolordark="#FF0000">
<font size=+1><b>Comunicate con el grupo
<br>
</font></tr>
<tr border=2 width="90" bgcolor="cyan" bordercolor="red">
<td><b>Para:</b> <input value="" type="text" name="to" SIZE=70><br>
<b>Tu E-mail:</b><INPUT TYPE="text" NaME="from" SIZE=23>
<b>Tu Nombre:</b><INPUT TYPE="text" NaME="name" SIZE=23>
<b>Mensaje:</b><input type="text" NaME="email_body" size="50" value="">
<input onclick=ValidateForm(this.form) type=button value="Enviar">
</tr>
</table>
</form>
<center>
<!-- TERMINa RaPIDOMaIL -->
</body>
</html>