Mensajes

[Saludos!]

Buenas,

Gracias por la respuesta.

Este es el archivo:

Código [Seleccionar] Expandir

smtpd_relay_restrictions = permit_mynetworks permit_sasl_authenticated defer_unauth_destination
myhostname = yusetist
alias_maps = hash:/etc/aliases
alias_database = hash:/etc/aliases
mydestination = yusetist, localhost.localdomain, , localhost
relayhost =
mynetworks = 127.0.0.0/8 [::ffff:127.0.0.0]/104 [::1]/128
mailbox_size_limit = 0
recipient_delimiter = +
inet_interfaces = all
inet_protocols = all

¿De hay qué tendría que modificar exactamente?

Acá:

Código (perl) [Seleccionar] Expandir

use Mail::Sendmail;
     
      $mail{smtp} = [qw(smtp.gmail.com)];
      $mail{port} = 587;
     
      %mail=(To => 'correo',
                   From => 'correo',
                   Message => "Mensaje de prueba"
            );
     
      if(sendmail %mail){
         print "Mail enviado correctamente.\n";
      }
      else{
         print "Error al enviar mail: $Mail::Sendmail::error\n";
      }

¿Tendría que hacer uso de postfix o ya usando la funcion $mail de Mail::Sendmail es suficiente?

Gracias.


Saludos!

73

xd

[Sendmail.pm]

Estoy probando como bien dice hay:

Código (perl) [Seleccionar] Expandir

use Mail::Sendmail;

  print "Testing Mail::Sendmail version $Mail::Sendmail::VERSION\n";
  print "Default server: $Mail::Sendmail::mailcfg{smtp}->[0]\n";
  print "Default sender: $Mail::Sendmail::mailcfg{from}\n";

  %mail = (
      To      => 'correo@gmail.com',
      From    => 'correo@gmail.com',
      Bcc     => 'Someone <correo@gmail.com>, Someone else her@there.com',
      # only addresses are extracted from Bcc, real names disregarded
      Cc      => 'Yet someone else <correo@gmail.com>',
      # Cc will appear in the header. (Bcc will not)
      Subject => 'Test message',
      'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
  );


  $mail{Smtp} = 'smtp.gmail.com';
  $mail{'X-custom'} = 'My custom additionnal header';
  $mail{'mESSaGE : '} = "The message key looks terrible, but works.";
  # cheat on the date:
  $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );

  if (sendmail %mail) { print "Mail sent OK.\n" }
  else { print "Error sending mail: $Mail::Sendmail::error \n" }

  print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;

Y el resultado:

Código [Seleccionar] Expandir

Testing Mail::Sendmail version 0.79_16
Default server: localhost
Default sender:
Error sending mail: MAIL FROM: error (530 5.7.0 Must issue a STARTTLS command first. g15sm4632205wiv.22 - gsmtp
)
Server said: 530 5.7.0 Must issue a STARTTLS command first. g15sm4632205wiv.22 - gsmtp


$Mail::Sendmail::log says:
Mail::Sendmail v. 0.79_16  - Sat Jun 27 23:52:46 2015
Date: Fri, 26 Jun 2015 23:52:46 +0200
Server: smtp.gmail.com Port: 25
From: correo@gmail.com
Subject: Test message

Y el archivo Sendmail.pm no me deja escribir en él.

También probé así:

Código (perl) [Seleccionar] Expandir

use Mail::Sendmail;
     
      $mail{smtp} = [qw(smtp.gmail.com)];
      $mail{from} = 'correo@gmail.com';
      $mail{port} = 587;
     
      %mail=(To => 'correo@gmail.com',
                   From => 'correo@hotmail.com',
                   Message => "Mensaje de prueba"
            );
     
      if(sendmail %mail){
         print "Mail enviado correctamente.\n";
      }
      else{
         print "Error al enviar mail: $Mail::Sendmail::error\n";
      }

Y me da este resultado:

Código [Seleccionar] Expandir

Error al enviar mail: connect to localhost failed (Conexión rehusada)
connect to localhost failed
connect to localhost failed (Conexión rehusada) no (more) retries!

[Saludos!]

Gracias por la respuesta,

Acabo de instalar dicho paquete, pero ahora me dice lo siguiente:

Código [Seleccionar] Expandir

Error al enviar mail: connect to localhost failed (Conexión rehusada)
connect to localhost failed
connect to localhost failed (Conexión rehusada) no (more) retries!

Supuestamente habrá que modificar el stmp no? ¿Dónde se encuentra dicho archivo? ¿Y el stmp de gmail?

Gracias.


Saludos!

[Buenas,]

Buenas,

Estoy intentando mandar un mail a través de Perl pero me salta un error como si me faltase dicho módulo instalado.

Tengo esto:

Código (perl) [Seleccionar] Expandir

use Mail::Sendmail;

   %mail=(To => 'su_direccion@alli.com',
                From => 'mi_direccion@aqui.com',
                Message => "Mensaje de prueba"
         );
   
   if(sendmail %mail){
      print "Mail enviado correctamente.\n";
   }
   else{
      print "Error al enviar mail: $Mail::Sendmail::error\n";
   }

Y me da este error:

Código [Seleccionar] Expandir

Can't locate Mail/Sendmail.pm in @INC (you may need to install the Mail::Sendmail module) (@INC contains: /etc/perl /usr/local/lib/perl/5.18.2 /usr/local/share/perl/5.18.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.18 /usr/share/perl/5.18 /usr/local/lib/site_perl .) at probe.pl line 1.
BEGIN failed--compilation aborted at probe.pl line 1.

He intentado probar de otras formas pero me da error parecido.

¿Esto es que necesito instalar un módulo no?

Código [Seleccionar] Expandir

(you may need to install the Mail::Sendmail module)

A ser así, ¿cómo podría instalarlo? (Linux Mint)
Gracias.

Saludos!

[Saludos!]

www.perlenespanol.com personalmente me parece una buena tuto-pag de Perl.

http://perlenespanol.com/tutoriales/

Saludos.

Le estoy echando un vistazo y parece una buena página, tiene buenos recursos más que todo.
Gracias por la respuesta.


Saludos!

[Buenas,]

Buenas,

Sí, yo instalé g++. Y si hago los pasos que tu me indicas sin puedo ejecutar los códigos.

Pero en codeblocks no me deja.

Saludos!

[Saludos!]

Antes de crear el tema ya revisé dicho hilo, pero tal vez a día de hoy encuentre otros curso/manuales también útiles.

Gracias por la respuesta.

Saludos!

[Saludos!]

Buenas,

Me gustaría saber si alguien conoce páginas, libros (pdf), etc.. sobre Aprender Perl.

¿Algún Curso/Manual para aprender Perl desde cero?

Agradezco cualquier respuesta.
Gracias.

Saludos!

[Saludos!]

Buenas,

Acabo de instalar el paquete code::Blocks por defecto de Linux Mint, hasta hay todo bien.

Creo un proyecto y cuándo escribo un archivo de código compruebo que el archivo no tengo ningún error en el código, hasta hay se llega. Pero a la hora de intentar ejecutar el programa no me deja me aparece este error:

Código [Seleccionar] Expandir

-------------- Run: Debug in mycode (compiler: GNU GCC Compiler)---------------

Checking for existence: /home/yusetist/Escritorio/mycode/bin/Debug/mycode
Executing: xterm -T mycode -e /usr/bin/cb_console_runner LD_LIBRARY_PATH=$LD_LIBRARY_PATH:. /home/yusetist/Escritorio/mycode/bin/Debug/mycode  (in /home/yusetist/Escritorio/mycode/.)
Process terminated with status 255 (0 minute(s), 0 second(s))

¿A qué puede deberse dicho error?

*Para aclarar las cosas estoy trabajando con archivos .cpp (c++) - y creo proyectos de consola.

Si alguien sabe algo relacionado con dicho problema agradecería su respuesta.
Gracias.

------------------------------------------------------------------------------------------------------------------------

Una pregunta a parte:

¿Se puede trabajar sin el IDE? Osea yo creo un documento a parte solo y lo ejecuto desde la consola perfectamente, pero se podría añadir librerías a dicho documento? Por ejemplo añadir SFML.


Saludos!