Soy nuevo con esto de la programación en Perl y con CGI, pero es algo que he encontrado muy interesante.
Mi problema es el siguiente. Tengo un código para enviar email según un nombre de usuario que me es enviado a través de un formulario web; por el momento el nombre lo tengo fijo para efectos de prueba.
Pero al ejecutar el script da el siguiente error: "connect to localhost failed (Unknown error) no (more) retries!ERROR".
Tengo que decirles que estoy trabajando con Windows XP, ActivePerl 5 y Apache, pongo el código al final para ver si alguien me puede ayudar.
Gracias de antemano.
-Un saludo.
- Código: Seleccionar todo
#!C:\perl\bin\perl.exe -w
use strict;
use Mail::Sendmail;
# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para [email protected]',
From => 'De [email protected]',
Subject => 'Asunto del mensaje',
Message => 'Mi mensajes',
Smtp => 'mail.google.com'
);
# Envíar el mensaje
unless (sendmail(%mail)) {
# Error!
print "ERROR\n";
exit(1);
}
# Envío correcto.
print "OK\n";
exit(1);
