[Perl] Ayuda con envio de mail

Mar Nov 28 09:44:08 CST 2006

Bien, creo que hay muchas formas de hacerlo, sin embargo, estas usando
sendmail como agente smtp.

Primero debes serciorarte de que existe en el path que usas, en mi caso
(OpenBSD) sendmail esta en : /usr/sbin/sendmail

ahora:

#!/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    => 'yo en example.com',
                       To      => 'algun_user en example.com',
                       Subject => 'listado en  .txt',
                       Type    => 'multipart/mixed');
$msg->attach(Type        => 'TXT',
             Path        => '/home/admin/',
             Filename    => 'todo.txt');
$msg->send();

Saludos

Francisco Valladolid.

> <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
>