Hola,
sí se puede hacer. Si lo hicieses en Perl podrías hacer algo así (un ejemplo básico):
# Recibes la cadena que te mande por el form en la variable datos, parseamos la cadena:
read(STDIN,$datos,$ENV{'CONTENT_LENGTH'});
@pares=split(/&/,$datos);
foreach $par(@pares)
{
($nombre,$valor)=split(/=/,$par);
$valor =~ tr/+/ /;
$valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$FORM{$nombre}=$valor;
push(@recibidos,$valor);
}
# Suponemos que el usuario nos manda a través del form su nombre y el e-mail de un amigo. Esto no es necesario pero trabajamos con más claridad:
($nombre,$mail_amigo)=@recibidos;
# Si tienes instalado en tu servidor el sendmail (observa que pongo dos retornos en el subject).
$prog_correo="/usr/lib/sendmail";
open(MAIL, "|$prog_correo -t");
print MAIL "To: $mail_amigo\n";
print MAIL "From:
[email protected]\n";
print MAIL "Subject: Te recomiendo esta página\n\n";
print MAIL "Hola, soy $nombre\n";
print MAIL "bla, bla...\n";
# Y por último generas una respuesta html:
print "Content-type:text/html\n\n";
print "<html><body>\n";
print "Gracias $nombre por recomendar nuestra página.\n";
Bueno, es un ejemplo básico pero realmente lo que necesitas hacer no requiere mucho más. Lo único que puedes añadir es comprobar que no te manden cadenas vacías, que el correo contenga arroba o que las cadenas no excedan un tamaño determinado.
Espero que te sirva, un saludo.