tutorial cgi scripts correo
También veremos brevemente como examinar las áreas de
texto línea por línea.
Como siempre, cuando empezamos, necesitaremos un formulario.
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<!--Javier Pérez Delgado (jperez@ctv.es)
All Rights Reserved -->
<head>
<link rev=made href="mailto:jperez@ctv.es">
<title>Enviar correo desde un script
CGI</title>
</head>
<body>
<P>Este formulario encía correo a la
dirección de la persona mostrada.</P>
<form method="POST" action="http://www.ctv.es/USERS/cgi-bin/mail.pl">
<P>Tu dirección: <INPUT NAME="De"
SIZE=36></P>
<P>Tu URL: <INPUT NAME="xurl"
SIZE=36></P>
<P>Subject: <INPUT NAME="subject"
SIZE=40></P>
<P>Mensaje:</P>
<P><TEXTAREA name="body"
rows=10 cols=60></TEXTAREA></P>
<P><input type="submit"
value="Enviar mansaje">
<input type="reset" value="Borrar
todo"></P>
</FORM>
</P>
</body>
</html>
Ahora pasaremos al script. Como siempre deberá empezar con una llamada al Perl, algunos comentarios y una llamada a la rutina ReadParse, en la librería cgi-lib.pl. También haremos verificaciones de que el cuerpo del mensaje no está vacío, y de que la dirección contiene una arroba (@). Ya sabemos hacerlo, por que ya lo realizamos en el anterior apartado. Otra validación será para comprobar que de pasan argumentos, lo pondremos porque la gente tiene tendencia a llamar a los scripts de correo sin argumentos (eg: no desde un formulario), no entiendo por qué.
Para comprobar que no hay argumentos, simplemente examinaremos si el vector %in que la librería cgi-lib.pl nos devuelve tiene alguna tecla. Recuerda, que ningún argumento, significa que no nos han pasado nada, sin embargo, alguien puede pasar los argumentos en blanco, de aquí las dos comprobaciones. La manera de comprobar los valores de las teclas del vector es usar la función keys(). Esta función espera un array asociativo como argumento. Simplemente comprobaremos que devuelve algo, imprimiendo un mensaje de error si no hay teclas. El código puede ser este:
if (!keys(%in)) {
# Ninguna tecla ha sido pasada, imprimir
mensaje de error, y si es apropiado salir.
}
Date cuenta de que el signo ‘!’ Al principio de la llamada a keys(), significa ‘no’ o negación. Quiere decir que si keys() no devuelve nada (falso), será negado para que sea cierto y el if se ejecute.
Ahora que hemos validado las entradas, y se pueden realizar más comprobaciones, necesitaremos enviar la carta. Para ello necesitaremos un programa que acepte una carta del stdin. Luego usaremos sendmail en el ejemplo. Si no estás en un entorno Unix, necesitarás otro programa apropiado para hacerlo. Como no conozco otro tipo de sistemas, no puedo hacer ninguna recomendación.
Usar este programa será similar a escribir en un fichero. Necesitamos abrir el programa para aceptar la entrada, escribir al FILEHANDLE. Abrir un programa que espera entradas por el stdin es bastante fácil en Perl. Además, es muy fácil pasar el argumento de la línea de comandos. En este ejemplo, abriremos sendmail, y diremos que busque en la carta la dirección de destino.
open(MAIL,"|/usr/lib/sendmail -t");
Como se puede observar, es igual que una llamada a fichero, pero los símbolos ‘>’ o ‘<’ han sido sustituidos por un ‘|’ (tubería). Esto indica que lo que hay detrás de la tubería es un ejecutable, y que lo que imprimamos en este FILEHANDLE se deberá pasar como entrada al programa ejecutable.
Nota: No he comprobado si la operación anterior terminó con éxito, pero deberíamos hacerlo. La manera más sencilla de hacerlo, es apoyarnos en que el comando open devuelve true cuando ha tenido éxito. Solo debemos hacer un OR entre el comando open y otro comando conociendo que ese comando será ejecutado sí el open falla. El ejemplo de abajo realiza un OR con el comando die. Este comando imprime un mensaje de error y sale del programa.
open(MAIL,"|/usr/lib/sendmail -t") || die "La llamada a sendmail ha fallado";
El imprimir la carta funciona como esperamos. Recuerda, sin embargo, que estamos imprimiendo un trozo de e-Mail, por lo que deberemos poner las cabeceras adecuadas, una línea en blanco y el cuerpo del mensaje. Puedes echar un vistazo a un e-Mail que hayas recibido y comprobar las cabeceras. Describiré abajo lo más importante. Los comentarios serán de ayuda.
# Esta es la línea ‘para’. Si tenemos el nombre y la dirección, escribiremos
# primero el nombre y luego la dirección entre <>
print MAIL "To: $in{'De'}\n";
# Esta es la línea ‘De’. Pondremos el mismo nombre en la línea ‘De’ y en la ‘para’
# Recuerda que no hay seguridad comprobando el email, por ello estas líneas
# pueden ser falsificadas. NO FALSIFIQUES EL EMAIL, no es divertido y en algunos lugares
# es un delito.
print MAIL "From: $in{De}\n";
# Esta es la línea ‘contestar a’. Esta línea se incluye debido a que algunos programas
# Son bastante tontos y no siempre responden a la línea ‘De’.
# Al menos respetarán esta línea.
print MAIL "Reply-To: $in{De}\n";
# Lo siguiente son cabeceras X. Son creadas por el usuario y pueden contener
# todo lo que desees. Incluyo una línea de descripción
# también he escrito las líneas REMOTE_HOST, REMOTE_ADDR, y REMOTE_USER para
# ayudar al seguimiento (traking) de la carta.
# Solo escribo la línea X-URL si el usuario ha dado una url. Este tipo
# de comprobación probablemente hecha también en el X-Remote-Host y X-Remote-User
print MAIL "X-mailer: Mail.pl, a cgi-bin script at http://www.ctv.es/users/jperez/www/tutor/ /index.html\n";
print MAIL "X-Remote-Host: $ENV{'REMOTE_HOST'} ($ENV{'REMOTE_ADDR'})\n";
print MAIL "X-Remote-User: $ENV{'REMOTE_USER'}\n";
print MAIL "X-disclaimer: La línea De: puede estar falsificada ";
print MAIL "No confiar en un 100% sobre la integridad de este mail. ";
print MAIL "No somos responsables de este correo de ninguna manera\n";
if ($in{xurl} ne "") {
print MAIL "X-URL: $in{xurl}\n";
}
# Finalmente escribimos y we print the famous subject line. I have appended a string
# identifying this as WWW generated email, this is far from a requirement.
# Notice the second new line. This is the blank line that will separate the
# headers from the body. All mail must have this line.
print MAIL "Subject: $in{subject} (WWW generated email)\n\n";
# Now we are going to print the body. Because it was input into a TEXTAREA
# field, it has new lines after each line. We can just print it like any other
# field, knowing that the new lines will expand it properly.
print MAIL $in{'body'};
Solo quedan dos cosas. Primero debemos cerrar la conexión con sendmail. Segundo debemos imprimir una página enseñando al usuario la carta que envía.
Para cerrar la conexión, usaremos el comando close, justo como en cualquier otro manejador:
close(MAIL);
Imprimir la respuesta no es diferente a las otras páginas generadas dinámicamente que ya hemos creado anteriormente. Deberemos dividir el campo TEXTAREA en líneas colocando un <BR> al final de cada una. Esto se hace principalmente para demostrar como se divide un campo de texto. Recuerda sin embargo que html no respeta las nuevas líneas. Con ello se consigue él poder hacer los párrafos de manera más clara, pero el beneficio de hacerlo es cuestionable.
El valor del campo body (cuerpo del mensaje), no es más que un conjunto de frases separadas con un retorno de carro. Podemos usar la función split() para separarlas. Esta función necesita dos parámetros: la cadena o carácter para separar y la variable a separar, y retorna un array con los elementos separados. Usaremos split en un bucle foreach:
foreach $l (split('\n',$in{'body'})) {
print "$l<BR>\n";
}
Como se puede ver separa la variable $in{'body'} en partes cada nueva línea, y la imprime seguida de un <BR>.
Categoría: 
