[Perl] Ayuda con envio de mail

[Fredy Gonzales P.]

Bueno, 

Te contare mi caso, yo no podia enviar un mail desde mi equipo linux porque no tenia ningun mta ni mtu para enviar el email, asi que
use SendEmail , una herramienta echa en perl que lo agrego al programa.

Este programa, se configura con lo parametros de la cuenta para conectarme al smtp y desde alli empiezo el envio

revisalo.

FG

Nota : De existir otra forma, avisen.
  ----- Original Message ----- 
  From: Ariel E. Pedrozo - Sysadmin 
  To: perl en tlali.iztacala.unam.mx 
  Sent: Thursday, November 23, 2006 3:48 PM
  Subject: [Perl] Ayuda con envio de mail



  Buenas tardes listeros... como andan ?? espero que bien... tengo un problema con el envio de mail desde un scripcito. 

  Basicamente es listar lo que hay en un directorio... cargarlo a un archivo y enviarlo por mail.... el problema esta que no envia el contenido del archivo 

  Basicamente el script es asi 

  #!/usr/bin/perl -w 
  use strict; 
    
  my $ar=system("ls -lht | awk '{print $6,$7,$8,$9}' > medalla.txt"); 
    
    
  open (MAIL,"|/usr/lib/sendmail -t"); 
  print MAIL "To: user\@cabal.com.py\n"; 
  print MAIL "From: user\@cabal.com.py\n"; 
  print MAIL "Subject: Verificacion diaria de Archivos FTP\n\n"; 
  print MAIL "$ar\n"; 
  close(MAIL); 
    
  exit(1); 

  Desde ya muchas gracias por la ayuda. 

  Abrazos desde Paraguay. 

  ------------------------------------- 
  Ariel E. Pedrozo 
  DBA & Network Administrator 
  Coop. Cabal LTDA 
  Ed. Ahorros Paraguayos 5to. Piso 
  Tel: 453009 int. 192 
  Mov: 0971 730744 
  Asuncio - Paraguay 



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


  _______________________________________________
  Perl mailing list
  Perl en tlali.iztacala.unam.mx
  http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: http://tlali.iztacala.unam.mx/pipermail/perl/attachments/20061123/38913618/attachment.htm