• Publicidad

Enviar correo por Perl y me da problemas

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Re: Enviar correo por Perl y me da problemas

Notapor marcoamoncada » 2011-07-29 15:48 @700

Mira, empecemos por el principio:

Instalé unas actualizaciones y me pidió, que reiniciara, le dije que después, lo tuve que hacer para continuar la prueba.

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo /usr/sbin/sendmail -q
mrco1965@Local54:~$ mail -s "Este es un mensaje de prueba desde local54" [email protected] < Php/Prueba/perl/GUERRAS.pl
mrco1965@Local54:~$ sudo mailq
-Queue ID- --Size-- ----Arrival Time---- -Sender/Recipient-------
9A316A3368     3592 Fri Jul 29 15:08:04  MAILER-DAEMON
             (connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

31EE1A334D     1547 Fri Jul 29 15:11:35  [email protected]
        (connect to o.mx.mail.yahoo.com[66.94.237.139]:25: Connection refused)
                                         [email protected]

7813CA3351      661 Fri Jul 29 13:45:13  [email protected]
             (connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

7D681A335E     1547 Fri Jul 29 15:15:43  [email protected]
(delivery temporarily suspended: connect to f.mx.mail.yahoo.com[98.137.54.237]:25: Connection refused)
                                         [email protected]

85F1BA3320     3506 Fri Jul 29 15:08:04  MAILER-DAEMON
             (connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

85F8EA332A     3592 Fri Jul 29 15:08:04  MAILER-DAEMON
             (connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

8CE4CA32F7      661 Fri Jul 29 14:45:13  [email protected]
             (connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

8B03CA332C     3592 Fri Jul 29 15:08:04  MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

8DB91A3366     3592 Fri Jul 29 15:08:04  MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

48496A3343      678 Fri Jul 29 13:45:03  [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

5CCA2A3355     3592 Fri Jul 29 15:13:26  MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

5D0B3A3322     3592 Fri Jul 29 15:08:04  MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

A1BD1A32FF     1547 Fri Jul 29 12:03:07  [email protected]
         (connect to k.mx.mail.yahoo.com[98.139.54.60]:25: Connection refused)
                                         [email protected]

A7C7FA333A     1547 Fri Jul 29 12:03:44  [email protected]
        (connect to m.mx.mail.yahoo.com[66.94.238.147]:25: Connection refused)
                                         [email protected]

CD07DA333C      490 Fri Jul 29 13:45:28  [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

CDBC4A32EF      443 Fri Jul 29 13:40:32  [email protected]
        (connect to f.mx.mail.yahoo.com[98.137.54.237]:25: Connection refused)
                                         [email protected]

F2499A32FD      661 Fri Jul 29 12:45:13  [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

68655A3345     3592 Fri Jul 29 15:08:04  MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

676FBA3328     2366 Fri Jul 29 15:08:04  MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

6C67DA333F     3506 Fri Jul 29 15:08:04  MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

6F2A7A32EB     3407 Fri Jul 29 14:59:02  [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
                                         [email protected]

-- 51 Kbytes in 21 Requests.
 
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Si te das cuenta hay unos mail que no se envían, creo que yo, que desean conectarse a poema-mujer.com, pero esta dirección no tiene mail, así que trato de enviar desde mi computadora.

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo /usr/sbin/sendmail -q
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Trato de correr el ejemplo que viene en la página o link que enviaste.

Me dice lo siguiente:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1.       #!/usr/bin/perl
  2.       use Email::Send::SMTP::Gmail;
  3.       my $mail=Email::Send::SMTP::Gmail->new(
  4.           -smtp=>'gmail.com',
  5.           -login=>'[email protected]',
  6.           -pass=>'*************',
  7.       );
  8.       $mail->send(
  9.           -to=>'[email protected]',
  10.           -subject=>'Hello!',
  11.           -verbose=>'1',
  12.           -body=>'Just testing it',
  13.       #    -attachments=>'full_path_to_file',
  14.       );
  15.       $mail->bye;
  16.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Y trato de ver la documentación, del error.
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Can't locate Email/Send/SMTP/Gmail.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at Php/Prueba/perl/Prueba-15-3.pl line 2.
BEGIN failed--compilation aborted at Php/Prueba/perl/Prueba-15-3.pl line 2.
mrco1965@Local54:~$ perldoc Email::Send::SMTP::Gmail
You need to install the perl-doc package to use this program.
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Instalo perl-doc
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo apt-get install perl-doc
Leyendo lista de paquetes... Hecho
Creando árbol de dependencias      
Leyendo la información de estado... Hecho
Paquetes sugeridos:
  groff
Se instalarán los siguientes paquetes NUEVOS:
  perl-doc
0 actualizados, 1 se instalarán, 0 para eliminar y 0 no actualizados.
Necesito descargar 7198kB de archivos.
Se utilizarán 13.5MB de espacio de disco adicional después de esta operación.
Des:1 http://mx.archive.ubuntu.com/ubuntu/ lucid-updates/main perl-doc 5.10.1-8ubuntu2.1 [7198kB]
Descargados 7198kB en 1min 53s (63.6kB/s)                                      
Seleccionando el paquete perl-doc previamente no seleccionado.
(Leyendo la base de datos ...  00%
185236 ficheros y directorios instalados actualmente.)
Desempaquetando perl-doc (de .../perl-doc_5.10.1-8ubuntu2.1_all.deb) ...
Añadiendo `diversion of /usr/bin/perldoc to /usr/bin/perldoc.stub by perl-doc'
Procesando disparadores para man-db ...
Configurando perl-doc (5.10.1-8ubuntu2.1) ...
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Busco la documentación
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ perldoc Email::Send::SMTP::Gmail
No documentation found for "Email::Send::SMTP::Gmail".
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Al final instalo lo que me falta
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo cpanp install Email::Send::SMTP::Gmail
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
Installing Email::Send::SMTP::Gmail (0.22)
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Email-Send-SMTP-Gmail-0.22/Makefile.PL INSTALLDIRS=site]...
Argument "6.55_02" isn't numeric in numeric ge (>=) at /home/mrco1965/.cpanplus/5.10.1/build/Email-Send-SMTP-Gmail-0.22/Makefile.PL line 5.
Checking if your kit is complete...
Looks good
Warning: prerequisite Net::SMTP::SSL 0 not found.
Warning: prerequisite Net::SMTP_auth 0 not found.
Writing Makefile for Email::Send::SMTP::Gmail

Module 'Email::Send::SMTP::Gmail' requires 'Net::SMTP::SSL' to be installed

If you don't wish to see this question anymore
you can disable it by entering the following commands on the prompt:
    's conf prereqs 1; s save'


  1> Yes
  2> No
  3> Yes to all (for this module)
  4> No to all  (for this module)

Should I install this module? [1]:
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Net-SMTP-SSL-1.01/Makefile.PL INSTALLDIRS=site]...
Checking if your kit is complete...
Looks good
Writing Makefile for Net::SMTP::SSL
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/test.t .. ok
All tests successful.
Files=1, Tests=1,  0 wallclock secs ( 0.00 usr  0.02 sys +  0.09 cusr  0.01 csys =  0.12 CPU)
Result: PASS

Module 'Email::Send::SMTP::Gmail' requires 'Net::SMTP_auth' to be installed

If you don't wish to see this question anymore
you can disable it by entering the following commands on the prompt:
    's conf prereqs 1; s save'


  1> Yes
  2> No
  3> Yes to all (for this module)
  4> No to all  (for this module)

Should I install this module? [1]:
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Net-SMTP_auth-0.08/Makefile.PL INSTALLDIRS=site]...
Checking if your kit is complete...
Looks good
Writing Makefile for Net::SMTP_auth
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl
1..1
ok 1
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
# Testing Email::Send::SMTP::Gmail 0.22, Perl 5.010001, /usr/bin/perl
t/00-load.t ....... ok
t/manifest.t ...... skipped: Author tests not required for installation
t/pod-coverage.t .. skipped: Test::Pod::Coverage 1.08 required for testing POD coverage
t/pod.t ........... skipped: Test::Pod 1.22 required for testing POD
All tests successful.
Files=4, Tests=1,  1 wallclock secs ( 0.02 usr  0.01 sys +  0.11 cusr  0.04 csys =  0.18 CPU)
Result: PASS
*** Install log written to:
  /home/mrco1965/.cpanplus/install-logs/Email-Send-SMTP-Gmail-0.22-1311971541.log

Module 'Email::Send::SMTP::Gmail' installed successfully
No errors installing all modules
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Corro otra vez el envio de mail por perl y medice esto

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
^[[5~Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ sudo cpanp install Email::Send::SMTP::Gmail
Installing Email::Send::SMTP::Gmail (0.22)
*** Install log written to:
  /home/mrco1965/.cpanplus/install-logs/Email-Send-SMTP-Gmail-0.22-1311971769.log

Module 'Email::Send::SMTP::Gmail' installed successfully
No errors installing all modules

mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


LA CONTRASEÑA ES LA CORRECTA
marcoamoncada
Perlero nuevo
Perlero nuevo
 
Mensajes: 36
Registrado: 2011-06-06 22:41 @986

Publicidad

Re: Enviar correo por Perl y me da problemas

Notapor explorer » 2011-07-29 16:06 @712

Agrega una línea más, para que dé más pistas:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. -debug=> '1',
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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

Re: Enviar correo por Perl y me da problemas

Notapor marcoamoncada » 2011-07-29 16:48 @741

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.31)
Net::SMTP::SSL>>>     IO::Socket::INET6(2.54)
Net::SMTP::SSL>>>       IO::Socket(1.31)
Net::SMTP::SSL>>>         IO::Handle(1.28)
Net::SMTP::SSL>>>           Exporter(5.63)
Net::SMTP::SSL>>>   Net::Cmd(2.29)
Net::SMTP::SSL=GLOB(0x18338e0)<<< 220 mx.google.com ESMTP j3sm1566345yhl.38
Net::SMTP::SSL=GLOB(0x18338e0)>>> EHLO localhost.localdomain
Net::SMTP::SSL=GLOB(0x18338e0)<<< 250-mx.google.com at your service, [201.161.61.78]
Net::SMTP::SSL=GLOB(0x18338e0)<<< 250-SIZE 35882577
Net::SMTP::SSL=GLOB(0x18338e0)<<< 250-8BITMIME
Net::SMTP::SSL=GLOB(0x18338e0)<<< 250-AUTH LOGIN PLAIN XOAUTH
Net::SMTP::SSL=GLOB(0x18338e0)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP::SSL=GLOB(0x18338e0)<<< 250 PIPELINING
Net::SMTP::SSL=GLOB(0x18338e0)>>> AUTH
Net::SMTP::SSL=GLOB(0x18338e0)<<< 555 5.5.2 Syntax error. j3sm1566345yhl.38
Authentication (SMTP) failed
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4



Esta es la salida
marcoamoncada
Perlero nuevo
Perlero nuevo
 
Mensajes: 36
Registrado: 2011-06-06 22:41 @986

Re: Enviar correo por Perl y me da problemas

Notapor explorer » 2011-07-29 17:18 @763

Por lo que pone en este hilo, debes formatear adecuadamente las direcciones de correo del remitente y del receptor del correo.

De todas maneras, lo he probado en mi ordenador, y no ha hecho falta:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
explorer@casa:~/Documentos/Desarrollo> ./kk.pl
Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.38)
Net::SMTP::SSL>>>     IO::Socket::INET(1.31)
Net::SMTP::SSL>>>       IO::Socket(1.31)
Net::SMTP::SSL>>>         IO::Handle(1.28)
Net::SMTP::SSL>>>           Exporter(5.64_01)
Net::SMTP::SSL>>>   Net::Cmd(2.29)
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 220 mx.google.com ESMTP gd1sm2089924wbb.61
Net::SMTP::SSL=GLOB(0x862c2c4)>>> EHLO localhost.localdomain
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250-mx.google.com at your service, [87.220.26.186]
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250-SIZE 35882577
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250-8BITMIME
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250-AUTH LOGIN PLAIN XOAUTH
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250 ENHANCEDSTATUSCODES
Net::SMTP::SSL=GLOB(0x862c2c4)>>> AUTH LOGIN
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 334 VXNlcm6hbWU6
Net::SMTP::SSL=GLOB(0x862c2c4)>>> amZlcnJlcmyAZ21haWwuY29t
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 334 UGFhc3dvcmQ6
Net::SMTP::SSL=GLOB(0x862c2c4)>>> T2hjcmlkzaDA1
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 235 2.7.0 Accepted
Attachments successfully verified
Net::SMTP::SSL=GLOB(0x862c2c4)>>> MAIL FROM:<[email protected]>
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250 2.1.0 OK gd1sm2089924wbb.61
Net::SMTP::SSL=GLOB(0x862c2c4)>>> RCPT TO:<[email protected]>
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250 2.1.5 OK gd1sm2089924wbb.61
Net::SMTP::SSL=GLOB(0x862c2c4)>>> DATA
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 354  Go ahead gd1sm2089924wbb.61
Net::SMTP::SSL=GLOB(0x862c2c4)>>> From: [email protected]
Net::SMTP::SSL=GLOB(0x862c2c4)>>> To: [email protected]
Net::SMTP::SSL=GLOB(0x862c2c4)>>> Reply-To: [email protected]
Net::SMTP::SSL=GLOB(0x862c2c4)>>> Subject: Hello!
With No attachments
Net::SMTP::SSL=GLOB(0x862c2c4)>>> MIME-Version: 1.0
Net::SMTP::SSL=GLOB(0x862c2c4)>>> Content-Type: text/plain
Net::SMTP::SSL=GLOB(0x862c2c4)>>> Just testing it
Net::SMTP::SSL=GLOB(0x862c2c4)>>> .
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 250 2.0.0 OK 1311977436 gd1sm2089924wbb.61
Sending email
Mail sent!
Net::SMTP::SSL=GLOB(0x862c2c4)>>> QUIT
Net::SMTP::SSL=GLOB(0x862c2c4)<<< 221 2.0.0 closing connection gd1sm2089924wbb.61
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

Prueba a poner las direcciones de email entre '<>'. Por ejemplo:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
y lo mismo para el destinatario.
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

Re: Enviar correo por Perl y me da problemas

Notapor marcoamoncada » 2011-07-29 18:09 @798

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.31)
Net::SMTP::SSL>>>     IO::Socket::INET6(2.54)
Net::SMTP::SSL>>>       IO::Socket(1.31)
Net::SMTP::SSL>>>         IO::Handle(1.28)
Net::SMTP::SSL>>>           Exporter(5.63)
Net::SMTP::SSL>>>   Net::Cmd(2.29)
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 220 mx.google.com ESMTP w24sm1635604yhl.6
Net::SMTP::SSL=GLOB(0x1e567c0)>>> EHLO localhost.localdomain
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 250-mx.google.com at your service, [201.161.61.78]
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 250-SIZE 35882577
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 250-8BITMIME
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 250-AUTH LOGIN PLAIN XOAUTH
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 250 PIPELINING
Net::SMTP::SSL=GLOB(0x1e567c0)>>> AUTH
Net::SMTP::SSL=GLOB(0x1e567c0)<<< 555 5.5.2 Syntax error. w24sm1635604yhl.6
Authentication (SMTP) failed
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Exactamente igual.
marcoamoncada
Perlero nuevo
Perlero nuevo
 
Mensajes: 36
Registrado: 2011-06-06 22:41 @986

Re: Enviar correo por Perl y me da problemas

Notapor explorer » 2011-07-29 18:28 @811

Pues... ni idea... Google no te quiere... :cry:

Las diferencias que veo es en las versiones de los módulos:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Míos:
Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.38)
Net::SMTP::SSL>>>     IO::Socket::INET(1.31)
Net::SMTP::SSL>>>       IO::Socket(1.31)
Net::SMTP::SSL>>>         IO::Handle(1.28)
Net::SMTP::SSL>>>           Exporter(5.64_01)
Net::SMTP::SSL>>>   Net::Cmd(2.29)
Tuyos:
Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.31)
Net::SMTP::SSL>>>     IO::Socket::INET6(2.54)
Net::SMTP::SSL>>>       IO::Socket(1.31)
Net::SMTP::SSL>>>         IO::Handle(1.28)
Net::SMTP::SSL>>>           Exporter(5.63)
Net::SMTP::SSL>>>   Net::Cmd(2.29)
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
pero... no creo que sea debido a eso.... Quién sabe... :?:

Intenta actualizar IO::Socket::SSL.

O... tendrás que intentar usar otro servidor de correo. Y otro módulo que no sea uno específico de Gmail.
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

Re: Enviar correo por Perl y me da problemas

Notapor marcoamoncada » 2011-07-29 20:03 @877

I encountered a problem: IO::Socket::INET6 configuration failederror:00000000:lib(0):func(0):reason(0) at Php/Prueba/perl/Prueba-15-5.pl line 4.
Can't call method "verify_hostname" without a package or object reference at Php

sudo cpan install IO::Socket::IN
CPAN: Storable loaded ok (v2.20)
Going to read '/home/mrco1965/.cpan/Metadata'
Database was generated on Fri, 29 Jul 2011 21:29:10 GMT
Running install for module 'IO::Socket::INET6'
Running make for S/SH/SHLOMIF/IO-Socket-INET6-2.67.tar.gz
CPAN: Digest::SHA loaded ok (v5.47)
CPAN: Compress::Zlib loaded ok (v2.02)
Checksum for /home/mrco1965/.cpan/sources/authors/id/S/SH/SHLOMIF/IO-Socket-INET6-2.67.tar.gz ok
CPAN: Archive::Tar loaded ok (v1.52)
IO-Socket-INET6-2.67
IO-Socket-INET6-2.67/MANIFEST
IO-Socket-INET6-2.67/META.yml
IO-Socket-INET6-2.67/ChangeLog
IO-Socket-INET6-2.67/README
IO-Socket-INET6-2.67/Makefile.PL
IO-Socket-INET6-2.67/Build.PL
IO-Socket-INET6-2.67/t
IO-Socket-INET6-2.67/t/io_multihomed6.t
IO-Socket-INET6-2.67/t/host6.t
IO-Socket-INET6-2.67/t/configure6.t
IO-Socket-INET6-2.67/t/io_udp6.t
IO-Socket-INET6-2.67/t/io_sock6.t
IO-Socket-INET6-2.67/t/blocking.t
IO-Socket-INET6-2.67/t/listen_port_only.t
IO-Socket-INET6-2.67/t/pod-coverage.t
IO-Socket-INET6-2.67/t/pod.t
IO-Socket-INET6-2.67/lib
IO-Socket-INET6-2.67/lib/IO
IO-Socket-INET6-2.67/lib/IO/Socket
IO-Socket-INET6-2.67/lib/IO/Socket/INET6.pm
IO-Socket-INET6-2.67/inc
IO-Socket-INET6-2.67/inc/Test
IO-Socket-INET6-2.67/inc/Test/Run
IO-Socket-INET6-2.67/inc/Test/Run/Builder.pm
CPAN: File::Temp loaded ok (v0.22)
CPAN: Parse::CPAN::Meta loaded ok (v1.4401)
CPAN: CPAN::Meta loaded ok (v2.110930)
CPAN: Module::CoreList loaded ok (v2.18)
CPAN: Module::Build loaded ok (v0.38)

CPAN.pm: Going to build S/SH/SHLOMIF/IO-Socket-INET6-2.67.tar.gz

Created MYMETA.yml and MYMETA.json
Creating new 'Build' script for 'IO-Socket-INET6' version '2.67'
Building IO-Socket-INET6
SHLOMIF/IO-Socket-INET6-2.67.tar.gz
./Build -- OK
'YAML' not installed, will not store persistent state
Running Build test
t/blocking.t .......... ok
t/configure6.t ........ ok
t/host6.t ............. ok
t/io_multihomed6.t .... ok
t/io_sock6.t .......... ok
t/io_udp6.t ........... ok
t/listen_port_only.t .. ok
t/pod-coverage.t ...... skipped: Test::Pod::Coverage 1.04 required for testing POD coverage
t/pod.t ............... skipped: Test::Pod 1.14 required for testing POD
All tests successful.
Files=9, Tests=43, 20 wallclock secs ( 0.05 usr 0.04 sys + 0.30 cusr 0.10 csys = 0.49 CPU)
Result: PASS
SHLOMIF/IO-Socket-INET6-2.67.tar.gz
./Build test -- OK
Running Build install
Prepending /home/mrco1965/.cpan/build/IO-Socket-INET6-2.67-0d8TD_/blib/arch /home/mrco1965/.cpan/build/IO-Socket-INET6-2.67-0d8TD_/blib/lib to PERL5LIB for 'install'
Building IO-Socket-INET6
Installing /usr/local/share/perl/5.10.1/IO/Socket/INET6.pm
Installing /usr/local/man/man3/IO::Socket::INET6.3pm
SHLOMIF/IO-Socket-INET6-2.67.tar.gz
./Build install -- OK
marcoamoncada
Perlero nuevo
Perlero nuevo
 
Mensajes: 36
Registrado: 2011-06-06 22:41 @986

Re: Enviar correo por Perl y me da problemas

Notapor explorer » 2011-07-30 05:54 @287

¿Estás en una red IPv6? ¡Qué moderno!
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

Re: Enviar correo por Perl y me da problemas

Notapor marcoamoncada » 2011-07-30 08:28 @394

Pues yo creo que como dices ese es mi proveedor.

Entonces, dime cómo puedo resolver el problema.

Necesito enviar correos por consola, o utilizando un producto pero que sea en forma automática.

Estaba decidido hasta formatear.

¿Me podrás poner alguna referencia, y guiarme de qué producto necesito instalar, o algo?

Gracias
marcoamoncada
Perlero nuevo
Perlero nuevo
 
Mensajes: 36
Registrado: 2011-06-06 22:41 @986

Re: Enviar correo por Perl y me da problemas

Notapor explorer » 2011-07-30 10:15 @469

El problema se resuelve así:

  • no puedes enviar correo desde tu ordenador en tu casa o empresa porque la mayoría de los servidores de correo no admitirán tus correos, al ser enviados desde una dirección IP residencial. Estás obligado a usar los servicios de un proveedor de servicios de Internet externo, que mantenga una IP pública y reconocida.
  • busca un proveedor que cuente con los servicios de mailing o buzoneo informático. Hay soluciones muy sencillas y baratas, en las que solo tienes que enviar el mensaje que quieres enviar a los usuarios, y la lista de direcciones de correo de los usuarios. El programa del proveedor se encargará de hacer las copias y enviarlas poco a poco (según el tamaño del mensaje. Si es muy grande o con adjuntos muy grandes, puede ser rechazado también, a causa de que no entre en los buzones de los destinatarios).
  • otra opción es la de contratar un servidor externo, tanto físico como virtual, con un sistema operativo preinstalado (o lo instalas tú), y configurar algún software de mailing, como el Mailman (Python) o el Sympa o Dada Mail (estos dos, en Perl).
  • Si aún así no encuentras un programa ya hecho que satisfaga tus necesidades, entonces queda el recurso de hacerlo uno mismo. A fin de cuentas, se trata de componer un correo, y repasando la lista de destinatarios, irlos enviando de uno en uno (aquí, los programas de buzoneo tienen una ventaja: son capaces de enviar un solo correo a todos los destinatarios de un determinado dominio. Por ejemplo, a todos los que están en gmail.com. En lugar de enviar un correo cada vez, solo envía uno, con copia oculta a todos los destinatarios. El trabajo sucio de hacer las copias para cada destinatario la hará el servidor de gmail.com). En este caso, como ya se ha dicho antes, no puedes enviar los correos de forma directa hacia los servidores de correo de los destinatarios. Debes usar el servidor de correo de tu proveedor de acceso o alojamiento de Internet. Él te dirá el nombre del servidor de correo, protocolo, puerto, y sistema de autenticación para poder enviar correo desde tu casa. El mensaje anterior con el módulo Gmail es un ejemplo de esto: estamos hablando con el servidor de Gmail para que sea él el encargado de enviar los correos, no el Postfix de nuestro ordenador. En estos foros hay ejemplos de cómo enviar correo usando Perl, pero casi todos ellos se refieren a enviar el correo hacia el servidor de correo del proveedor de servicios de Internet. En muy contadas ocasiones se puede enviar un correo de forma directa (todo por culpa del spam, claro).
  • También podrías configurar el Postfix de tu ordenador para que él se encargara de eso: de llevar los correos que reciba tu máquina hacia el servidor de correo de tu proveedor de Internet. Eso lo tienes explicado en muchos sitios. Por ejemplo aquí, para el caso de tener que autenticarte con TLS. Tienes que modificar el fichero /etc/postfix/main.cf para indicar el nombre del servidor de correo de tu proveedor, activar las opciones tls, y luego, en el fichero /etc/postfix/smtp_auth poner el nombre de usuario y contraseña para poder enviarle el correo a ese servidor de correo. Ves al final que también viene un comando de prueba mail para enviar mensajes desde la línea de comandos.
Es posible que se me haya pasado alguna solución más.

Una pena que no te funciona el módulo de Gmail. ¿No pudiste actualizar el módulo IO::Socket::SSL? ¿Has probado con otro módulo, como MIME::Lite?
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

AnteriorSiguiente

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 15 invitados