Nuevamente queriendo echar mano de tu sabiduría con el módulo Mail::Sendmail.
Tengo el siguiente código en Perl:
Using perl Syntax Highlighting
- use Mail::Sendmail;
- Message => "Prueba de correo");
- sendmail(%mail) or return $Mail::Sendmail::error;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
La configuración del módulo sendmail es la siguiente:
- %mailcfg = (
- # List of SMTP servers:
- 'smtp' => [ qw( smtp.prodigy.net.mx ) ],
- 'from' => '[email protected]', # default sender e-mail, used when no From header in mail
- 'mime' => 1, # use MIME encoding by default
- 'retries' => 3, # number of retries on smtp connect failure
- 'delay' => 1, # delay in seconds between retries
- 'tz' => '', # only to override automatic detection
- 'port' => 25, # change it if you always use a non-standard port
- 'debug' => 0 # prints stuff to STDERR
- );
Sin embargo, al querer mandar el correo me arroja el siguiente error:
connect to smtp.prodigy.net.mx failed (Permission denied)
connect to smtp.prodigy.net.mx failed (Permission denied)
connect to smtp.prodigy.net.mx failed (Permission denied)
connect to smtp.prodigy.net.mx failed
connect to smtp.prodigy.net.mx failed (Permission denied) no (more) retries!
Lo raro es que vía telnet puedo enviar correos sin ningún problema, lo que me indica que los puertos están bien configurados, sin embargo al querer enviarlo mediante Perl, me avienta el error descrito.
Espero puedas orientarme ya que no doy con la solución.
