• Publicidad

Configuración para envío de correos

Todo lo relacionado con el desarrollo Web con Perl: desde CGI hasta Mojolicious

Configuración para envío de correos

Notapor piero66 » 2008-08-26 14:24 @641

¡Buenas tardes!

Tengo un problema para mi, complicado :cry: , espero que me ayuden :oops:

Hay un programa que tengo pare enviar correos que está como sigue:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl

 use Mail::Sendmail;

$mail{'To'} = '[email protected]';
$mail{'Smtp'} = '192.168.1.11';
$mail{'From'} = '[email protected]';
$mail{'Subject'} = "Envio Perl";
$mail{'body'} = "Prueba desde Script Perl";
if (!sendmail(%mail)) {
    print "Error : $Mail::Sendmail::error\n";
    exit 0;
}
print "Correo enviado\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¡¡ Me sale el siguiente error !!

Código: Seleccionar todo
Error : RCPT TO: error (550 5.7.1 Unable to relay for [email protected])


Tenemos un servidor smtp exchange (192.168.1.11) el cual me obstaculiza a poder enviar el correo, ¿será porque no soy cliente de Microsoft? por seguridad, etc !! eso no lo sé!!

Mi pregunta es esta: ¿¿¿no hay manera de que mi servidor sin ayuda de ese servidor exchange, pueda enviar correo a servidores como (hotmail,gmail,yahoo) etc, ???

Me han mencionado algo del evolution, vi que ese me habla del Ubuntu, ese es otra versión de Linux !? La verdad no sé mucho de esto, ¡¡ mi Linux está configurado con CentOS 5, !!

Gracias, espero su respuesta, ¡¡ please !!
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Publicidad

Notapor explorer » 2008-08-26 15:57 @706

No te deja enviar correo porque seguro que tienes que autenticarte en el servidor.

Yo usaría el Mail::Sender, pues tienes facilidades para hacerlo. En estos foros hay algunos ejemplos con Mail::Sender.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor piero66 » 2008-08-27 11:01 @501

Ya chequé lo del Mail::Sender.

Ejecuto el siguiente archivo, ¡¡ pero me vota un error !!

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl

use Mail::Sender;

my $sender = Mail::Sender->new();

if ($sender->MailMsg({
                         smtp => 'leonex.leonad.gob.mx',
                         from => '[email protected]',
                         to =>'[email protected]',
                         subject => 'this is a test',
                         msg => "Hi Johnie.\nHow are you?.....",
                         auth => 'NTLM',
                         authid => 'root',
                         authpwd => 'asdf1234',
                     }) < 0) {
                         die "$Mail::Sender::Error\n";
                     }
print "Mail sent OK."
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


El error que me vota es el siguiente:

Código: Seleccionar todo
Can't locate Authen/NTLM.pm in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.7/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.6/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.5/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.7/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.6/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.5/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at (eval 4) line 1, <GEN0> line 19.
BEGIN failed--compilation aborted at (eval 4) line 1, <GEN0> line 19.


¿¿¿ Tengo que instalar alguna librería NTLM.pm ???

Porque ejecuté este código
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use Mail::Sender;
 my $sender = new Mail::Sender {smtp => 'localhost'};
 die "Error: $Mail::Sender::Error\n" unless ref $sender;
 print join(', ', $sender->QueryAuthProtocols()),"\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


y él indicó lo siguiente:

NTLM,GSSAPI,LOGIN

Si utilizo auth => 'GSSAPI', el error es:
Código: Seleccionar todo
Authentication protocol GSSAPI is not implemented by Mail::Sender


Si utilizo: auth => 'LOGIN' el error es:
Código: Seleccionar todo
login not accepted


¡¡¡ Espero no te haya dormido con tanto rollo !!!

¡ Gracias !
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-08-27 11:30 @520

El error dice que no encuentra el módulo Authen::NTLM. Prueba a instalarlo.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor piero66 » 2008-08-29 15:11 @674

¿Se instala así... cpan Authen::NTLM.pm?
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-08-29 15:19 @680

No. Con cpan Authen::NTLM.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor piero66 » 2008-08-29 15:25 @684

Oye, ya lo instalé, corrí el programa pero ahora el mensaje es este:

Código: Seleccionar todo
Authentication protocol NTLH is not accepted by the server
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-08-29 15:55 @705

Jajaja...

Pues entonces, antes deberás preguntar al administrador del sistema qué sistemas de autenticación dispones.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor piero66 » 2008-09-01 08:41 @404

ok, gracias !!,, porque la risa,, me vi muy guey con la pregunta !! jajaja

la verdad sí ,,,!!! :lol:

una última pregunta ,,

Código: Seleccionar todo
authid =>
authpwd =>


estos dos parámetros se refiere a una cuenta del servidor de Linux, para que la reconozca el servidor de Exchange !!?? ¡¡digo solo para corroborar!!
jajaja :oops:
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-09-01 08:51 @410

Ahí se guarda el usuario y contraseña que se entrega al servidor de correo, cuando lo pide.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Siguiente

Volver a Web

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot], Google [Bot] y 3 invitados