[Perl] Ayuda con envio de mail

Mie Nov 29 14:00:48 CST 2006

Version modificada, adaptada para OpenBSD y NetBSD trabaja bien.

#!/usr/bin/perl -w

use MIME::Lite ;

# mando todo el contenido simple al archivo todo.txt2
# se que esto no es perl, pero TIMTWTODI

my @listado = `ls -1 *.* > todo.txt` ;

$msg = MIME::Lite->new(From    => 'ficovh en yahoo.com',
                       To      => 'ventas en vmicrosistemas.com',
                       Subject => 'listado en  .txt',
                       Type    => 'multipart/mixed');
$msg->attach(Type        => 'TXT',
             Path        => 'todo.txt',
             Filename    => 'tu_file.txt');
$msg->send("sendmail", "/usr/libexec/postfix/sendmail -t -oi -oem");

Saludos.

> <HTML>
> <HEAD>
> <META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
> <META content="OPENWEBMAIL" name=GENERATOR>
> </HEAD>
> <BODY bgColor=#ffffff>
>
> <font size="2">
> <br />Buenas tardes listeros... como andan ?? espero que bien... tengo un
> problema con el envio de mail desde un scripcito.
> <br />
> <br />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
> <br />
> <br />Basicamente el script es asi
> <br />
> <br />#!/usr/bin/perl -w
> <br />use strict;
> <br />
> <br />my $ar=system(&quot;ls -lht | awk '{print $6,$7,$8,$9}' &gt;
> medalla.txt&quot;);
> <br />
> <br />
> <br />open (MAIL,&quot;|/usr/lib/sendmail -t&quot;);
> <br />print MAIL &quot;To: user\@cabal.com.py\n&quot;;
> <br />print MAIL &quot;From: user\@cabal.com.py\n&quot;;
> <br />print MAIL &quot;Subject: Verificacion diaria de Archivos
> FTP\n\n&quot;;
> <br />print MAIL &quot;$ar\n&quot;;
> <br />close(MAIL);
> <br />
> <br />exit(1);
> <br />
> <br />Desde ya muchas gracias por la ayuda.
> <br />
> <br />Abrazos desde Paraguay.
> <br />
> <br />-------------------------------------
>
> <br />
> Ariel E. Pedrozo
>
> <br />
> DBA &amp; Network Administrator
>
> <br />
> Coop. Cabal LTDA
>
> <br />
> Ed. Ahorros Paraguayos 5to. Piso
>
> <br />
> Tel: 453009 int. 192
>
> <br />
> Mov: 0971 730744
>
> <br />
> Asuncio -
> Paraguay
> <br />
> </font>
> </BODY>
> </HTML>
>
> _______________________________________________
> Perl mailing list
> Perl en tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
>