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.