Foro - Perl en Español

por **desdechina** » 2013-01-30 06:06 @296

Hola:

Primero decir que soy absolutamente nueva en esto e intento hacer algo muy, muy simple.
He leído en el foro sobre el tema pero es demasiado complicado de entender para mi porque lo mio es el primer paso.

A ver: Intento mandar un correo.
Este es mi código:

use MIME::Lite;
my $msg = MIME::Lite->new(
From =>'[email protected]',
To =>'[email protected]',
Subject =>'prueba',
Data =>"desde Perl"
) ;
MIME::Lite->send('smtp', "smtp.gmail.com", Timeout => 60 ) ;
$msg->send;

Y ya está. No quiero nada más.

Problema:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

   Can't locate MIME/Lite.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at Depurando.pl line 8.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Qué hago?

Mil gracias

Bienvenida a los foros de Perl en Español, desdechina.

El mensaje de error dice que el módulo MIME::Lite no está instalado en tu sistema.

¿Qué sistema operativo tienes?

¿Qué versión de Perl tienes instalado? Ejecuta perl -v para saberlo.

Seguramente tendrás que instalarlo, pero ya digo, que eso depende del sistema en que estés.

Presta atención a lo que dice el autor del módulo, en la página de manual: no lo recomienda usar, ya que contiene algunos errores graves, y en su lugar indica que debemos usar otros módulos, como Email::MIME o MIME::Entity y Email::Sender. De MIME::Entity sí que hay un ejemplo en los foros.

por **desdechina** » 2013-01-30 08:42 @404

Hola. Gracias por la respuesta.
Estoy en Windows con Perl v5.12.4
A través del PPM parece que sí que está instalado.

por **explorer** » 2013-01-30 09:05 @420

Para saber si un módulo está bien instalado, vale con ejecutarlo de esta manera:

perl -MMIME::Lite -E 1

Si no sale ningún mensaje de error, es que está bien instalado.

por **desdechina** » 2013-01-31 04:46 @240

Efectivamente, no me sale ningún error.
Lo eliminé y lo volví a instalar y ahora el error es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

SMTP mail() command failed:

5.7.0 Must issue a STARTTLS command firstColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Por si acaso es por motivos de autentificación, cambio el código a:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

MIME::Lite->send('smtp','smtp.gmail.com', Timeout => 60, Debug =>1,
          #AuthUser=>'silbia', AuthPass=>'xxxx');
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y ahora me sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

SMTP auth() command not supported on SMTP.gmail.comColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Será un problema con la cuenta?

¡¡¡Con lo fácil que parecía!!!

por **explorer** » 2013-01-31 07:26 @351

El problema es el siguiente: estás pidiendo al programa que use el servidor de correo de Gmail para enviar el correo. Y el primer mensaje de error dice que eso requiere que te autentifiques (indicar el nombre de usuario y contraseña de tu cuenta de acceso a Gmail) en ese servidor de correo. Además, la autenticación debe hacerse con el formato STARTTLS. Y MIME::Lite no sabe nada de eso...

Entonces... si quieres enviar un correo electrónico usando el servidor de correo de Gmail, deberás usar otro método distinto, como el que comentamos en este otro hilo.

Otra opción: no utilizar el servidor de correo de Gmail... e intentar enviar el correo directamente.

Y aquí aparece otro problema... La mayor parte de los servidores de correo (el de tu destinatario) no admitirán correo según desde donde estés enviando el correo. Si estás en una línea residencial es muy posible que te lo bloqueen.

Si abro la página de manual de MIME::Lite, aparte del mensaje que dice que este módulo no es nada recomendable, hay un ejemplo para enviar un mensaje de solo texto. Lo copio y lo pego a otro archivo de texto y lo convierto en un programa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use MIME::Lite;
 
my $msg = MIME::Lite->new(
    From     =>'[email protected]',
    To       =>'[email protected]',
    Subject  =>'Correo de prueba',
    Data     =>"Texto del mensaje"
);
 
$msg->send();
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Así, sin indicar nada en send(), MIME::Lite usará el sistema de transporte de correo del sistema. En mi máquina, tengo instalado el postfix, así que MIME::Lite le llama y le pide que envíe el correo. Eso lo vemos en el archivo /var/log/mail.log:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Jan 31 12:41:17 joaquinferrero postfix/pickup[18403]: 9D8DB23344: uid=1000 from=<explorer>
Jan 31 12:41:20 joaquinferrero postfix/cleanup[24832]: 9D8DB23344: message-id=<[email protected]>
Jan 31 12:41:20 joaquinferrero postfix/qmgr[1551]: 9D8DB23344: from=<[email protected]>, size=509, nrcpt=1 (queue active)
Jan 31 12:41:29 joaquinferrero postfix/smtp[24840]: certificate verification failed for correo.jf.com.es[82.193.86.160]:25: untrusted issuer /C=ES/ST=Valladolid/L=Valladolid/O=AiA/CN=*/[email protected]
Jan 31 12:41:30 joaquinferrero postfix/smtp[24840]: 9D8DB23344: to=<[email protected]>, relay=correo.jf.com.es[82.194.86.160]:25, delay=13, delays=1.4/1.6/9.7/0.66, dsn=2.0.0, status=sent (250 OK id=1U0sWI-0006JY-Aw)
Jan 31 12:41:30 joaquinferrero postfix/qmgr[1551]: 9D8DB23344: removed
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Las líneas indican que sí lo ha enviado, pero esto es posible porque Postfix sabe a qué servidor de correo debe conectarse, y con qué nombre de usuario y contraseña debe utilizar para poder enviarlo.

Así que estamos en las mismas: si quiero usar el método send() de MIME::Lite y no tengo configurado un sistema de transporte local en el sistema, debo indicarlo en los argumentos de send().

Así que tu problema se reduce a encontrar un servidor de correo en donde tengas una cuenta (nombre de usuario y contraseña) que te permita enviar correos. Si solo tienes el de Gmail, pues vuelve a leer los primeros párrafos.

Si, por ejemplo, modifico la línea send() con mis datos de autenticación de mi cuenta en Gmail:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$msg->send('smtp', 'smtp.gmail.com',
    Timeout  => 60,
    Debug    => 1, 
    AuthUser => '[email protected]',
    AuthPass => '?&r/sh08'
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

entonces sale el mensaje de error que comentas: SMTP auth() command not supported on smtp.gmail.com

Eso es porque MIME::Lite no sabe nada de autentificarse con STARTTLS. Hay que usar otro módulo.

por **desdechina** » 2013-02-01 09:16 @428

¡¡¡Heyyyy!!! ¡¡Ya avanzo algo!!

Al final he usado Email::Send::SMTP::Gmail modificando el código de Email::Send::SMTP::Gmail y de Net::SMTP tal como comentabas en el enlace que me indicabas.

Ahora me dice:

Attachments successfully verified
With No attachments
Sending email
Mail sent!

Pero... no lo recibo. No me llega nada. ¿?

por **explorer** » 2013-02-01 15:43 @696

Pues no lo sé, a mí sí que me funciona...

¿No habrá terminado en la carpeta de SPAM del receptor?

por **desdechina** » 2013-02-04 04:52 @244

No. Ya lo comprobe y no aparece nada.
El caso es que la pantalla de salida indica:
Attachments successfully verified
With No attachments
Sending email
Mail sent!

Pero por otro lado en la zona de mensajes me aparece:

Net::SMTP::SSL=GLOB(0x1d8492c)<<< 502 5.5.1 Unrecognized command. df2sm18856144wib.0 - gsmtp

¿?

por **desdechina** » 2013-02-04 05:39 @277

¡¡¡Lo conseguí!!!
Al final cambié el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP::SSL;
 
my $user = '[email protected]';
my $pass = 'xxx';
my $server = 'smtp.gmail.com';
my $to = '[email protected]';
my $from_email = '[email protected]';
my $subject = 'Prueba desde Perl';
my $smtps = Net::SMTP::SSL->new($server, Port => 465, DEBUG => 1, )
or warn "$!\n";
 
# authenticate
defined ($smtps->auth($user, $pass))
or die "Can't authenticate: $!\n";
 
# send preliminary data
$smtps->mail("$from_email\n");
$smtps->to("$to\n");
$smtps->data();
 
#send header
$smtps->datasend("From: $user\n");
$smtps->datasend("To: $to\n");
$smtps->datasend("Subject: $subject\n");
$smtps->datasend("Reply-To: $from_email\n");
$smtps->datasend("MIME-Version: 1.0\n");
$smtps->datasend("Content-Type: text/plain\n");
$smtps->datasend("\n");
 
#send text body
$smtps->datasend("Si estas leyendo este correo es que ¡¡¡¡¡¡LO HE CONSEGUIDO!!!!!.\n");
 
$smtps->datasend("\n");
$smtps->dataend();
print " email sended\n";
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Ahora me parece fácil pero entenderás que para los que estamos verdes es un logro.

Mil gracias por tu ayuda y consejos.
Eres un sol.

Foro - Perl en Español

Can't locate MIME::Lite

Can't locate MIME::Lite

Publicidad

Re: Can't locate MIME::Lite

Re: Can't locate MIME::Lite

Re: Cant locate MIME::Lite

Re: Can't locate MIME::Lite

Re: Can't locate MIME::Lite

Re: Can't locate MIME::Lite

Re: Can't locate MIME::Lite

Re: Can't locate MIME::Lite

Re: Can't locate MIME::Lite

¿Quién está conectado?