Foro - Perl en Español

por **noa86** » 2011-05-02 15:52 @703

¡Saludos!

Me gustaría saber si hay alguna posibilidad de enviar un correo a un usuario, para que, por ejemplo, le llegue un enlace para modificación de contraseña, para la primera vez que inicia sesión en una página concreta, para el tema de seguridad.

¿Algún tutorial? ¿Ejemplo?

Gracias.

                # Envío del correo
                my $email = Email::Simple->create(
                    header => [
                        From    => '"Dani y Cris Web" <informació[email protected]>',
                        To      => '[email protected]',
                        Subject => 'Foto nueva',
                    ],
                    body => "Hay una nueva foto en el web:\n\n\tfotos/$seccion/$foto\n\nenviada por $nombre.\n\nDatos de la imagen:\n\n$salida",
                );
 
                sendmail($email);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En la entrada body va el mensaje de texto. Ahí puedes colocar tu enlace.

Y luego lo envío con la función sendmail(). Y puedo hacerlo porque en mi sistema operativo hay un ejecutable que se llama así (el módulo Email::Sender::Simple intentará, primero, enviar el correo usando este ejecutable). Si no estás en este caso, deberás indicar un medio de transporte.

Hay otros módulos para enviar correos. En estos foros hemos hablado de MIME::Entity.

por **noa86** » 2011-05-03 14:55 @663

No sé si es porque tengo el ejecutable o no, pero me sale internal server error.

El ejecutable sendmail ¿tengo que instalarlo en mi Linux, o configurarlo o así??

por **explorer** » 2011-05-03 18:13 @801

En las últimas distribuciones Linux ya no suele venir instalado. Más bien, suele venir PostFix.

Si no tienes un agente de transporte de correo en tu sistema, deberás definir otro medio de transporte.

Dicho de otra manera: ¿cómo envías correo electrónico desde tu ordenador?

Es posible que no tengas ningún agente de transporte instalado (como la mayor parte de los equipos), así que deberás, en tu programa, crear la conexión SMTP hacia los servidores de correo de tu proveedor de Internet. En el enlace que te puse había este ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$transport= Email::Sender::Transport::SMTP->new({

    host =>'smtp.example.com',

    port => 2525,
});

  sendmail($email,{ transport =>$transport});Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Con Email::Sender::Transport::SMTP definimos un nuevo transporte basado en el protocolo SMTP. Indicamos a qué servidor y a qué puerto ha de conectarse. Luego, solo tenemos que indicar este transporte dentro de la función sendmail() (función importada por el módulo Email::Sender::Simple).

En CPAN puedes encontrar otras opciones, como Email::Sender::Transport::SMTP::TLS, que es capaz de enviar correos usando el protocolo SMTP::TLS, el que soporta Gmail (y muchos otros proveedores de correo electrónico).

por **noa86** » 2011-05-04 16:15 @719

¿Alguna otra manera, con algún otro módulo? Me salen muchos errores, y no consigo saber por qué. Los módulos están correctamente instalados y me salen varios errores.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

unable to establish SMTP connection

Trace begun at /usr/local/share/perl5/Email/Sender/Transport/SMTP.pm line 95

Email::Sender::Transport::SMTP::_throw('Email::Sender::Transport::SMTP=HASH(0x9c9b138)', 'unable to establish SMTP connection') called at /usr/local/share/perl5/Email/Sender/Transport/SMTP.pm line 62

Email::Sender::Transport::SMTP::_smtp_client('Email::Sender::Transport::SMTP=HASH(0x9c9b138)') called at /usr/local/share/perl5/Email/Sender/Transport/SMTP.pm line 104

Email::Sender::Transport::SMTP::send_email('Email::Sender::Transport::SMTP=HASH(0x9c9b138)', 'Email::Abstract=ARRAY(0x9c81998)', 'HASH(0xa4da1a8)') called at /usr/local/share/perl5/Email/Sender/Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use Email::Simple::Creator;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP;
 
 
my $transport = Email::Sender::Transport::SMTP->new({
        host => 'smtp.gmail.com',
    port => 2525,
 
});
 
# Envío del correo
my $email = Email::Simple->create(
                    header => [
                        From    => 
                        To      => 
                        Subject => 'Foto nueva',
                    ],
                    body => 'Hay una nueva foto en el web:',
                );
 
 
 
sendmail($email, { transport => $transport }) ||  die "Error sending email: $_";;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En los campos from y to tengo los correos adecuados como has puesto tu anteriormente con comillas simples.

por **explorer** » 2011-05-04 17:20 @763

¿Y seguro que para enviar el correo debe conectarse al servidor 'smtp.gmail.com' por el puerto 2525?

Lo dudo...

por **noa86** » 2011-05-05 03:04 @169

Disculpa, no me había dado cuenta, lo tengo puesto con el puerto 587, que vi, que era con ese... y también probé con el 465. Y nada. sigue saliendo el mismo error...

por **explorer** » 2011-05-05 04:38 @234

Si quieres usar el servidor de Gmail, deberás usar Email::Sender::Transport::SMTP::TLS, como te enlacé en la anterior respuesta. No solo hay que indicar servidor y puerto, sino que también tienes que identificarte.

Es más, en estos días, salvo que tengas un servidor de correo en tu propia red local, casi siempre vas a tener que identificarte.

En la sinopsis del módulo tienes un ejemplo completo.

por **noa86** » 2011-05-06 12:34 @565

He intentado utilizar este mismo ejemplo

http://search.cpan.org/~lbrocard/Email- ... d/Gmail.pm

y me sale un error:

Can't locate Net/SSLeay.pm in @INC ...

Lo que interpreto es que no tengo instalado el módulo Net::SSleay, pero realizo en el terminal

perl -MCPAN -e shell

install Net::SSLeay

Y no me deja instalarlo.

Sintáxis: [ Descargar ] [ Ocultar ]

make: *** [SSLeay.o] Error 1
FLORA/Net-SSLeay-1.36.tar.gz
/usr/bin/make -- NOT OK
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible

¿Alguna sugerencia?

por **explorer** » 2011-05-06 12:38 @568

No te deja instalarlo porque dice que no tienes un programa make.

¿En qué sistema operativo estás? Si es Linux/Unix, debería estar...

Foro - Perl en Español

Enviar correo desde Perl

Enviar correo desde Perl

Publicidad

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

Re: Enviar correo desde Perl

¿Quién está conectado?