FormMail, enviar y recibir de cualquier dominio

[thebhuo]

Hola, actualmente uso el FormMail 1.90 y lo tengo configurado así:

@referers = ('midominio.org');
@recipients = ('^[email protected]');

Pero quisiera dejarlo con total libertad para que me escriban desde cualquier dominio y que el "recipient" sea también cualquier dirección de correo, cual debería ser la sintaxis correcta para poder realizar esto?, he probado varias, dejando los campos de las variables en blanco, pero no me funcionan.

Se que esto conlleva ciertos riesgos de seguridad, actualmente tengo así los permisos: -rwxr-xr-x 755, cual seria la configuración mas segura y que el cgi siga funcionando como yo sugiero?

Os agradecería mucho que me pongáis el código, correctamente redactado.


Un saludo y gracias por vuestro tiempo.

[monoswim]

@recipients no tiene que llamar a la función fill_recipients ?

Eso no te impide que te manden mails desde cualquier casilla, pero si que la envíen a cualquier casilla, cosa muy importante para que cualquier spam no esté enviando basura en nombre tuyo...

Saludos

[thebhuo]

Hola Esteban, gracias por tu respuesta, pero yo quiero que me manden desde cualquier dominio y a cualquier dirección de correo, por eso solicito ayuda.

Me podrías escribir el código correcto para que esto sea posible, tal y como esta en el ejemplo, solo me pueden enviar mails al dominio, (midominio.org)

Un saludo

[monoswim]

Yo no usaría el formmail para ello, te dejo una simple rutina que hace lo que quieres...

Código:

#!/usr/bin/perl

use strict;

use CGI;
    my $cgi = new CGI;
    my %input_data = $cgi->Vars;


open (MAIL,"|/usr/sbin/sendmail -i -t") || &error('Open','Mail');

print MAIL "To: $input_data{'To'} \n";
print MAIL "From: $input_data{'From'} \n";
print MAIL "Subject: Contacto desde el formulario web \n";
print MAIL "Mensaje enviado desde el Formulario web \n\n\n";
print MAIL "Nombre: $input_data{'Nombre'} \n\n";
print MAIL "Teléfono: $input_data{'Telefono'} \n\n";
print MAIL "E-Mail: $input_data{'eMail'} \n\n";
print MAIL "Mensaje: $input_data{'Mensaje'} \n\n";
print MAIL "Fin del formulario";

close(MAIL) || &error('Close','Mail');


print "Location: http://www.tudominio.com.ar/gracias.html \n\n";
exit(1);

sub error {
 print "Content-type: text/html\n\n";
 print "Error: Can't $_[0] el $_[1]";
 exit(1);
}

Espero que te sirva

Saludos
PD: Ojo que es inseguro usar este script, porque cualquiera puede usarlo para enviar spam !

[thebhuo]

Muchas gracias esteban, voy a probarla.

Un saludo

[thebhuo]

Muy agradecido Esteban, funciona a la perfección, pero desde el FormMail, me enviaba un reporte de la maquina que mandaba el mail;

('REMOTE_HOST','REMOTE_ADDR','REMOTE_USER','HTTP_U SER_AGENT');

<input type=hidden name="env_report" value="REMOTE_HOST,REMOTE_ADDR,HTTP_USER_AGENT">

Se puede añadir esa funcion a la rutina que me enviaste?


UN saludo y gracias por tu tiempo.

[monoswim]

claro que si, esas son variables de entorno, puedes imprimirlas en el mensaje como cualquier otra variable

$ENV{'REMOTE_HOST'} por ejemplo

[thebhuo]

Hola Esteban, perdona mis nulos conocimientos de PERL, pero no consigo hacerlo funcionar.

deberia quedar asi, añadiendo estas dos lineas?

#!/usr/bin/perl

$ENV{'REMOTE_HOST'}

use strict;

use CGI;
my $cgi = new CGI;
my %input_data = $cgi->Vars;


open (MAIL,"|/usr/sbin/sendmail -i -t") || &error('Open','Mail');

print MAIL "To: $input_data{'To'} \n";
print MAIL "From: $input_data{'From'} \n";
print MAIL "Subject: Contacto desde el formulario web \n";
print MAIL "Mensaje enviado desde el Formulario web \n\n\n";
print MAIL "Nombre: $input_data{'Nombre'} \n\n";
print MAIL "Teléfono: $input_data{'Telefono'} \n\n";
print MAIL "E-Mail: $input_data{'eMail'} \n\n";
print MAIL "Mensaje: $input_data{'Mensaje'} \n\n";
print MAIL "Host: REMOTE_HOST \n";
print MAIL "Fin del formulario";

close(MAIL) || &error('Close','Mail');


print "Location: http://www.tudominio.com.ar/gracias.html \n\n";
exit(1);

sub error {
print "Content-type: text/html\n\n";
print "Error: Can't $_[0] el $_[1]";
exit(1);
}

O la segunda linea deberia ser esta:
print MAIL "env_report: $input_data{'env_report'} \n\n";
y mandar la accion desde el formulario?

Un cordial saludo.

[monoswim]

print MAIL "To: $input_data{'To'} \n";
print MAIL "From: $input_data{'From'} \n";
print MAIL "Subject: Contacto desde el formulario web \n";
print MAIL "Mensaje enviado desde el Formulario web \n\n\n";
print MAIL "Nombre: $input_data{'Nombre'} \n\n";
print MAIL "Teléfono: $input_data{'Telefono'} \n\n";
print MAIL "E-Mail: $input_data{'eMail'} \n\n";
print MAIL "Mensaje: $input_data{'Mensaje'} \n\n";
print MAIL "Host: $ENV{'REMOTE_HOST'} \n";
print MAIL "ADDR: $ENV{'REMOTE_ADDR'} \n";
print MAIL "Fin del formulario";

[walvaRo]

Me parece largísimo esto del FormMail para enviar un simple formulario a una dirección de email.
¿No hay algún metodo mas sencillo?

[monoswim]

Ese código que puse son unas 20 líneas...