Hola! veo que el hilo esta parado desde el año pasado, pero igualmente postearé aquí mi problema.
Tengo un formulario en flash que tengo que enviar a mi correo mediante perl (si, mi servidor no soporta php). El caso es que llevo días toqueteando el código cogiendo ideas de varios tutoriales, pq no soy experta, y solo he conseguido que realmente mande correos alguna vez. Ahora mismo no me funciona y ya no encuentro el error. Me podéis revisar un poco?!
Tengo esto escrito en el botón de enviar del flash:
on(rollOver){
if (!Nombre.length) {
info_txt.text = "El campo Nombre es obligatorio";
info_txt._visible=true;
Selection.setFocus("Nombre");
} else if (!Telefono.length) {
info_txt.text = "El campo Teléfono es obligatorio";
info_txt._visible=true;
Selection.setFocus("Telefono");
}
}
on(rollOut){
info_txt._visible=false;
}
on (release) {
var enviar_lv:LoadVars = new LoadVars();
var recibir_lv:LoadVars = new LoadVars();
if (!Nombre.length){
info_txt.text = "El campo Nombre es obligatorio";
info_txt._visible=true;
} else if (!Telefono.length) {
info_txt.text = "El campo Teléfono es obligatorio";
info_txt._visible=true;
} else {
enviar_lv.Nombre = Nombre.text;
enviar_lv.Empresa = Empresa.text;
enviar_lv.Telefono = Telefono.text;
enviar_lv.Email = Email.text;
enviar_lv.Comentario = Comentario.text;
enviar_lv.sendAndLoad("/cgi-bin/mail.pl",recibir_lv,"POST ");
txt_aviso_correcto._visible=true;
}
}
y esto en el pl.:
#!/usr/bin/perl
# Indica que se trata de un documento HTML
print "Content-type: text/html\n\n";
$email = "mimail\@hotmail.com";
# Obtiene la entrada
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
#Este no me funciona
#open(MAILOUT, "| mail -s \'Consultes clients web\' $email")
#|| die "No puedo ejecutar el programa de correo.";
open(MAILOUT, "| /usr/sbin/sendmail $email")
|| die "No puedo ejecutar el programa de correo.";
# Divide las variables entre nombre y valor.
@pairs = split(/&/, $buffer);
foreach (@pairs) {
tr/+/ /;
s/=/ = /;
s/%(..)/pack("C",hex($1))/ge;
print MAILOUT "$_\n";
}
close(MAILOUT);
# Imprime el título y la cabecera
print "<Head><Title> Correo </Title>\n";
print "<meta http-equiv=\"content-type\" content=\"text/html; charset=iso-8859-1\"> </Head>\n";
print "<Body bgcolor=white><center><BR><BR><BR><BR><table><tr><td >\n";
print " <font face=Verdana color=#97c000 size=2px> enviado.\n";
print " . Gràcies.</font> </tr></table></center></body></html>\n";
Encontrais algo raro?! el pl esta en la carpeta cgi-bin y tiene permisos 755. que me estoy dejando?!
por favor, ya estoy medio loca...