• 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-30 13:28 @602

Te platicaré cuál es la razón de ello.

Tengo una página http://www.poema-mujer.com, el cual vende en Internet.

Ya está la forma de registro, y te manda un correo adicional, para que certifiques el e_mail, y puedas entrar a la página.

Lo que deseo hacer es lo siguiente, periódicamente les deseo enviar correo a la gente que se registró, y quiero promocionar la página. Con algunas direcciones de e-mail, que tengo a esa gente deseo enviar de vez en cuando algo que le promocione la página o que le recuerde, que posiblemente le pueda servir.

Ya puedo enviar desde mi servidor de web, que está en mi página, documentación, pero está hecho en PHP de forma que se conecta a donde está la página y lo envía, en forma manual.

Tengo que combinar varios lenguajes de programación, lo cual deseo centrarlo a uno solo o diseñar más en PHP, porque, algunas partes están en Perl, y otras en PHP, y algunas otras muchas manuales.

Gracias, me has ayudado bastante.

sudo mailq
me arroja esto
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
mrco1965@Local54:/etc/postfix$ sudo mailq
-Queue ID- --Size-- ----Arrival Time---- -Sender/Recipient-------
99C56A349D     3407 Fri Jul 29 16:59:01  [email protected]
(delivery temporarily suspended: connect to mail.google.com[74.125.227.22]:25: Connection refused)
                                         [email protected]

9A316A3368     3592 Fri Jul 29 15:08:04  MAILER-DAEMON
            (connect to mail.google.com[74.125.227.88]:25: Connection refused)
                                         [email protected]

980B3A34BF     3407 Fri Jul 29 20:59:01  [email protected]
            (connect to mail.google.com[74.125.227.85]:25: Connection refused)
                                         [email protected]

98781A3499      661 Fri Jul 29 16:45:14  [email protected]
(delivery temporarily suspended: connect to mail.google.com[74.125.227.87]:25: Connection refused)
                                         [email protected]
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


con los demas comandos del link
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
rco1965@Local54:/etc/postfix$ sudo postfix check
mrco1965@Local54:/etc/postfix$ sudo postconf | grep sasl
broken_sasl_auth_clients = no
cyrus_sasl_config_path =
lmtp_sasl_auth_cache_name =
lmtp_sasl_auth_cache_time = 90d
lmtp_sasl_auth_enable = no
lmtp_sasl_auth_soft_bounce = yes
lmtp_sasl_mechanism_filter =
lmtp_sasl_password_maps =
lmtp_sasl_path =
lmtp_sasl_security_options = noplaintext, noanonymous
lmtp_sasl_tls_security_options = $lmtp_sasl_security_options
lmtp_sasl_tls_verified_security_options = $lmtp_sasl_tls_security_options
lmtp_sasl_type = cyrus
proxy_write_maps = $smtp_sasl_auth_cache_name $lmtp_sasl_auth_cache_name
send_cyrus_sasl_authzid = no
smtp_sasl_auth_cache_name =
smtp_sasl_auth_cache_time = 90d
smtp_sasl_auth_enable = yes
smtp_sasl_auth_soft_bounce = yes
smtp_sasl_mechanism_filter =
smtp_sasl_password_maps = hash:/etc/postfix/smtp_auth
smtp_sasl_path =
smtp_sasl_security_options = noanonymous
smtp_sasl_tls_security_options = $smtp_sasl_security_options
smtp_sasl_tls_verified_security_options = $smtp_sasl_tls_security_options
smtp_sasl_type = cyrus
smtpd_sasl_auth_enable = no
smtpd_sasl_authenticated_header = no
smtpd_sasl_exceptions_networks =
smtpd_sasl_local_domain =
smtpd_sasl_path = smtpd
smtpd_sasl_security_options = noanonymous
smtpd_sasl_tls_security_options = $smtpd_sasl_security_options
smtpd_sasl_type = cyrus
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Qué más puede servir.
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 marcoamoncada » 2011-07-31 21:47 @949

No puedo lograr enviar correos, y tampoco puedo ver mis base de datos de MySQL por medio de Perl.
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2.  
  3. use Mysql;
  4.  
  5. # HTTP HEADER
  6. print "Content-type: text/html \n\n";
  7.  
  8. my $server=shift;
  9. if($server eq "localhost")
  10. {
  11. # MYSQL CONFIG VARIABLES
  12.         $host = "localhost";
  13.         $database = "usuarios";
  14.         $tablename = "clientes";
  15. }
  16. elsif($server eq "PRODUCCION")
  17. {
  18. # MYSQL CONFIG VARIABLES
  19.         $host = "298.72.83.42";
  20.         $database = "poema_mujer_com_usuarios";
  21.         $tablename = "clientes";
  22. }
  23. else
  24. {
  25.         exit;
  26. }
  27.  
  28. # PERL MYSQL CONNECT()
  29. $connect = Mysql->connect($host, $database, $user, $pw);
  30.  
  31. # SELECT DB
  32. $connect->selectdb($database);
  33.  
  34. # LISTTABLES()
  35. @tables = $db->listtables;
  36.  
  37. # PRINT EACH TABLE NAME
  38. @tables = $connect->listtables;
  39. foreach $table (@tables) {
  40.         print "$table<br />";
  41. }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
  1. mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba_mysql.pl
  2. Can't locate Mysql.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_mysql.pl line 3.
  3.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
  1. mrco1965@Local54:~$ sudo cpan install Mysql
  2. [sudo] password for mrco1965:
  3. Sorry, try again.
  4. [sudo] password for mrco1965:
  5. CPAN: Storable loaded ok (v2.20)
  6. Going to read '/home/mrco1965/.cpan/Metadata'
  7.   Database was generated on Mon, 01 Aug 2011 00:27:11 GMT
  8. Running install for module 'Mysql'
  9. Running make for C/CA/CAPTTOFU/DBD-mysql-3.0008.tar.gz
  10. CPAN: Digest::SHA loaded ok (v5.47)
  11. CPAN: Compress::Zlib loaded ok (v2.02)
  12. Checksum for /home/mrco1965/.cpan/sources/authors/id/C/CA/CAPTTOFU/DBD-mysql-3.0008.tar.gz ok
  13. CPAN: Archive::Tar loaded ok (v1.52)
  14. DBD-mysql-3.0008/
  15. DBD-mysql-3.0008/ChangeLog
  16. DBD-mysql-3.0008/constants.h
  17. DBD-mysql-3.0008/dbdimp.c
  18. DBD-mysql-3.0008/dbdimp.h
  19. DBD-mysql-3.0008/eg/
  20. DBD-mysql-3.0008/eg/prepare_memory_usage.pl
  21. DBD-mysql-3.0008/eg/proc_example1.pl
  22. DBD-mysql-3.0008/eg/proc_example2.pl
  23. DBD-mysql-3.0008/eg/proc_example3.pl
  24. DBD-mysql-3.0008/INSTALL.html
  25. DBD-mysql-3.0008/lib/
  26. DBD-mysql-3.0008/lib/Bundle/
  27. DBD-mysql-3.0008/lib/Bundle/DBD/
  28. DBD-mysql-3.0008/lib/Bundle/DBD/mysql.pm
  29. DBD-mysql-3.0008/lib/DBD/
  30. DBD-mysql-3.0008/lib/DBD/mysql/
  31. DBD-mysql-3.0008/lib/DBD/mysql/GetInfo.pm
  32. DBD-mysql-3.0008/lib/DBD/mysql/INSTALL.pod
  33. DBD-mysql-3.0008/lib/DBD/mysql.pm
  34. DBD-mysql-3.0008/lib/Mysql/
  35. DBD-mysql-3.0008/lib/Mysql/Statement.pm
  36. DBD-mysql-3.0008/lib/Mysql.pm
  37. DBD-mysql-3.0008/Makefile.PL
  38. DBD-mysql-3.0008/Makefile.PL.embedded
  39. DBD-mysql-3.0008/MANIFEST
  40. DBD-mysql-3.0008/MANIFEST.SKIP
  41. DBD-mysql-3.0008/META.yml
  42. DBD-mysql-3.0008/myld
  43. DBD-mysql-3.0008/mysql.xs
  44. DBD-mysql-3.0008/README
  45. DBD-mysql-3.0008/t/
  46. DBD-mysql-3.0008/t/00base.t
  47. DBD-mysql-3.0008/t/10dsnlist.t
  48. DBD-mysql-3.0008/t/20createdrop.t
  49. DBD-mysql-3.0008/t/30insertfetch.t
  50. DBD-mysql-3.0008/t/35limit.t
  51. DBD-mysql-3.0008/t/35prepare.t
  52. DBD-mysql-3.0008/t/40bindparam.t
  53. DBD-mysql-3.0008/t/40bindparam2.t
  54. DBD-mysql-3.0008/t/40blobs.t
  55. DBD-mysql-3.0008/t/40listfields.t
  56. DBD-mysql-3.0008/t/40nulls.t
  57. DBD-mysql-3.0008/t/40numrows.t
  58. DBD-mysql-3.0008/t/41bindparam.t
  59. DBD-mysql-3.0008/t/41blobs_prepare.t
  60. DBD-mysql-3.0008/t/42bindparam.t
  61. DBD-mysql-3.0008/t/50chopblanks.t
  62. DBD-mysql-3.0008/t/50commit.t
  63. DBD-mysql-3.0008/t/60leaks.t
  64. DBD-mysql-3.0008/t/dbdadmin.t
  65. DBD-mysql-3.0008/t/insertid.t
  66. DBD-mysql-3.0008/t/lib.pl
  67. DBD-mysql-3.0008/t/mysql.dbtest
  68. DBD-mysql-3.0008/t/param_values.t
  69. DBD-mysql-3.0008/t/._prepare_noerror.t
  70. DBD-mysql-3.0008/t/prepare_noerror.t
  71. DBD-mysql-3.0008/t/texecute.t
  72. DBD-mysql-3.0008/TODO
  73. CPAN: File::Temp loaded ok (v0.22)
  74. CPAN: Parse::CPAN::Meta loaded ok (v1.4401)
  75. CPAN: CPAN::Meta loaded ok (v2.110930)
  76.  
  77.   CPAN.pm: Going to build C/CA/CAPTTOFU/DBD-mysql-3.0008.tar.gz
  78.  
  79. Can't exec "mysql_config": No existe el fichero o el directorio at Makefile.PL line 76.
  80.  
  81. Cannot find the file 'mysql_config'! Your execution PATH doesn't seem
  82. to contain the path to mysql_config. Resorting to guessed values!
  83. Can't exec "mysql_config": No existe el fichero o el directorio at Makefile.PL line 454.
  84. Can't exec "mysql_config": No existe el fichero o el directorio at Makefile.PL line 454.
  85. Can't exec "mysql_config": No existe el fichero o el directorio at Makefile.PL line 454.
  86. Can't exec "mysql_config": No existe el fichero o el directorio at Makefile.PL line 454.
  87. Can't exec "mysql_config": No existe el fichero o el directorio at Makefile.PL line 454.
  88. Can't exec "mysql_config": No existe el fichero o el directorio at Makefile.PL line 454.
  89. Failed to determine directory of mysql.h. Use
  90.  
  91.   perl Makefile.PL --cflags=-I<dir>
  92.  
  93. to set this directory. For details see the INSTALL.html file,
  94. section "C Compiler flags" or type
  95.  
  96.   perl Makefile.PL --help
  97. Warning: No success on command[/usr/bin/perl Makefile.PL INSTALLDIRS=site]
  98. 'YAML' not installed, will not store persistent state
  99.   CAPTTOFU/DBD-mysql-3.0008.tar.gz
  100.   /usr/bin/perl Makefile.PL INSTALLDIRS=site -- NOT OK
  101. Running make test
  102.   Make had some problems, won't test
  103. Running make install
  104.  Make had some problems, won't install
  105. Could not read metadata file. Falling back to other methods to determine prerequisites
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Tuve que instalar mysql-server y aun así no funciona, ahí dice que hay una configuracion que no existe, donde se define.

Porque existe una configuración en /etc/mysql, pero no sé.

En esta página busqué cómo instalar MySQL en Perl, y me mandó que instale mysql-server de acuerdo a http://www.google.com.mx/#sclient=psy&h ... df4c907597

La base de MySQL, está funcionando porque las páginas hacen referencia a ella.
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-08-01 05:12 @258

Mientras que la mayoría de los módulos se pueden instalar con el comando cpan o el cpanp, en algunos casos es mejor instalarlos ya compilados para nuestro sistema, ya que hacerlo por nuestra cuenta puede ser muy complicado (pueden requerir bibliotecas externas, tener un sistema de compilación -compilador, enlazador-, etc).

Este es el caso. El módulo DBD::mysql (que no Mysql) requiere, para su compilación e instalación, de la presencia de las bibliotecas y de los ficheros cabecera que concuerden con las versiones de esas bibliotecas.

Entonces, es mejor bajarse el módulo ya compilado, para no tener que hacerlo nosotros.

En tu caso, como estás en un sistema Ubuntu, lo que tienes que hacer es utilizar el programa Synaptic (o el programa gestor de software que prefieras), buscar por 'mysql', y entre los resultados, buscar el nombre de la distribución Perl.

Podría llamarse libdbd-mysql-perl, perl-dbd-mysql, etc. De cualquier forma, es fácil de distinguir. La seleccionas, la instalas en el sistema, y ya tienes a tu disposición el soporte MySQL para Perl. Y ya puedes usarlo en tu programa, pero no poniendo

use Mysql;

sino

use DBI;

que es la forma moderna de tratar con bases de datos. Mira nuestro tutorial al respecto. Y también si buscas en nuestros foros por la palabra 'mysql' encontrarás docenas de ejemplos.

Y en lo que respecta a tu sistema de correo, debes configurarlo. Debes aprender a configurar Postfix. Si los correos no salen es un por un problema de configuración, no hay duda. Te aconsejo que mires en foros de Linux/Ubuntu, donde habrá gente que te pueda aconsejar mejor que aquí.
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-08-06 00:48 @075

En Perl hay forma de mandar simulando esta cláusula de HTML.

<form action="http://www.loquesea.com?platanito=true&amp;lariata=lleva" method="post" onsubmit="this.submit.disabled=true;">

Aun no puedo enviar correo.
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-08-06 13:33 @606

Esa línea de HTML lo que hace es indicar la URL que será llamada por el navegador del usuario cuando éste pulse el botón de envío del formulario. En la URL vemos un par de argumentos (platanito y lariata) ya puestos. Otros argumentos (enviados por el método post, como se indica en la misma línea), se pasarán como contenido de la petición HTTP.

Pero... lo curioso es que luego, esa misma línea, desactiva el envío del propio formulario... así que el formulario se está enviando por otros métodos.

Si no puedes enviar correo con estos métodos, deberás buscar otros. Prueba a registrarte en otro operador de Internet que sí te permita usar su servidor de correo (y que te diga de forma clara cómo enviar los correos con ese servidor, es decir, el protocolo a usar).
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-08-06 20:23 @891

Parece que eso de que no puedo enviar correos te confundio, lo de los mails, ya estoy viendo hacerlo por sendmail, punto y aparte.

Ese tema borrado.
marcoamoncada
Perlero nuevo
Perlero nuevo
 
Mensajes: 36
Registrado: 2011-06-06 22:41 @986

Re: Enviar correo por Perl y me da problemas

Notapor marcoamoncada » 2011-08-06 20:28 @895

En Perl hay forma de mandar simulando esta cláusula de HTML.

<form action="http://www.loquesea.com?platanito=true&amp;lariata=lleva" method="post" onsubmit="this.submit.disabled=true;">

Yo ya logro enviar dirección de HTML por medio de parámetros get y parámetros post.

Pero a esta dirección llegan los parámetros, pero lo que no logro es que me los acepte, o que trabaje con ellos, porque, en el HTML tiene esta cláusula en el from, onsubmit="this.submit.disabled=true. ¿Cómo logro simularlo por Perl? O dime cómo hago un explorador con Perl o dónde lo leo. Para que abra la página y dé clic como si fuera una persona.
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-08-07 16:55 @746

Ya te he respondido antes: el trozo de código de JavaScript implica que el formulario se está enviando de otra manera (o quizás pasa antes por un filtro, antes de ser enviado).

Mira el código que acompaña al botón de envío.
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-08-07 21:43 @946

Hay forma de simular que se hizo un clic al botón desde Perl.
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-08-07 21:51 @952

¿Has hecho una pregunta o una afirmación?
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 3 invitados