🚀 go-pugleaf

Usuario de correo bajo Linux wrote:
> 
> Nos dec�a David Cabrera Lozano, acerca de Re: enviar e-mail con
> un programa en Perl...
> 
> >>     Hola a todos; como siempre necesito ayuda. Tengo que enviar un
> >> e-mail a una larga lista de usuarios y el mesage tiene que ser con
> >> c�digos HTML.
> >>
> >>     Conoceis alguna libreria o programa que  haga esto.
> >>
> >>     GRACIAS. David
> >
> >Ya lo tengo
> 
> Pu�s compartelo, �no?. ;-)
> 
Os mando una cosilla que hice yo. 

---------------------------------------------------------------------
#!/usr/bin/perl

require "cgi-lib.pl";
&ReadParse();

$nombre=$in{"nombre"};
$dir=$in{"dir"};
$pob=$in{"pob"};
$cp=$in{"cpprov"};
$pais=$in{"pais"};
$email=$in{"email"};
$pedido=$in{"pedido"};
$tel=$in{"tel"};
$nif=$in{"nif"};
$money=$in{"money"};

@pedido =  split (/\&/,$pedido);

open(MAIL, "|/usr/sbin/sendmail -t") || die "No se puede abrir
/usr/sbin/sendmail";

print MAIL "To: carlosv\@localhost \n";
print MAIL "From: $nombre <$email>\n";
print MAIL "Reply-To:$email\n";
print MAIL "X-mailer: Servicio de correo autom�tico para el IJH. Por
carlosv\@ee
.upm.es\n";
print MAIL "X-Publicidad: Linux powered!!!\n";
print MAIL "X-Remote-Host: $ENV{'REMOTE_HOST'} ($ENV{'REMOTE_ADDR'})\n";
print MAIL "X-Remote-User: $ENV{'REMOTE_USER'}\n";
print MAIL "Subject: Petici�n autom�tica de compra\n";
print MAIL "Content-type: text/html\n\n<html>\n<head></head>\n<body
bgcolor=#fff
fff>\n";
print MAIL "<h1>Solicitud de compra.</h1>\n<b>Datos para el
env�o:</b><p>\n$nomb
re<br>\n$dir<br>\nNIF/CIF: $nif<br>\n$pob \n<br>$cp <br>\n$pais<p>
\n\nE-mail: $
email <br>\nTel�fono: $tel<p>\n";
print MAIL "<table>\n<tr
bgcolor=\"\#dddddd\"><td>T�tulo<td>Cant<td>Precio<td>To
tal";
foreach $i (0..$#pedido){
  ($t,$c,$p,$st) = split (/\*\*/,$pedido[$i]);
  print MAIL"<tr><td><i>$t</i><td align=\"right\">$c<td
align=\"right\">$p<td al
ign=\"right\">$st\n";
}
($total,$ge,$te) = split (/\&/,$money);
print MAIL"<tr bgcolor=\"\#eeeeee\"><td colspan=3><b>Importe del
pedido</b><td a
lign=\"right\"><b>$total</b>\n";
print MAIL"<tr bgcolor=\"\#eeeeee\"><td colspan=3><b>Gastos de
env�o</b><td alig
n=\"right\"><b>$ge</b>\n";
print MAIL"<tr bgcolor=\"\#eeeeee\"><td colspan=3><b>Total</b><td
align=\"right\
"><b>$te</b>\n";
print MAIL "</table>";
print MAIL "</body>\n";
print MAIL"</html>\n";
close (MAIL);
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Instituto Juan De Herrera. Venta de libros</title>\n";
print "</head>\n";
print "<body bgcolor=#ffffff>\n";
print "<font face=helvetica>";
print "<h1>Petici�n enviada</h1>\n";
print "Su petici�n se ha recibido satisfactoriamente. Gracias por usar
nuestro s
ervicio de venta a trav�s Internet<br><br><br>\n";
print "<font size=2><center><address>\n";
print "(C) Instituto Juan de Herrera<br>\n";
print "(C) Escuela T�cnica Superior de Arquitectura<br>\n";
print "Universidad Polit�cnica de Madrid<br>\n";
print "Para cualquier duda o sugerencia<br>\n";
print "escriba a <a
href=\"mailto:ijh\@aq.upm.es\">ijh\@aq.upm.es</a>\n";
print "<address></center></font>\n";
print "</body>\n";
print "</html>\n";
exit;
--------------------------------------------------------------------

Ha quedado un poco hecho polvo al enviarlo, pero imagino que sabr�is
corregirlo. Pertenece a una p�guina que todav�a no funciona, lo he
probado en un servidor aparte y va bien.
-- 
Un Saludo

Han Solo
The Rebel Alliance

Conecto, luego existo.
Desconecto, luego insisto.
Soy usuario de infobirria+

P.D. La firma no es m�a, sino de uno que trabajaba, precisamente, en M$.
Vivir para ver.