Me llego esto que me parece interesante compartirlo ya que no lo he visto publicado en la lista:
#!/usr/bin/perl
use Net::SMTP;
#Cargamos la lista de mails de los diputados y la carta modelo
open (CARTA, "carta") or die "no puedo abrir la carta: $!\n";
@MSG=<CARTA>;
close (CARTA);
open (MAILS, "mails") or die "no puedo abrir los mails: $!\n";
@data=<MAILS>;
close (MAILS);
#### EDITAR
#Especificamos el servidor smtp que enviara nuestro correo
#Arnet es buena onda =)
$smtp = Net::SMTP->new('smtp.domain.net');
#Origen - Nuestra direccion de correo
$smtp->mail('[EMAIL PROTECTED]');
#### FIN EDITAR
#Destino - Amorosos Diputados, muack's!
foreach $mail(@data){
$smtp->to("$mail");
}
$smtp->data();
#Asunto - Si se quiere editar, pues adelante!
$smtp->datasend("Subject: No a la ley de matriculacion\n\n");
$smtp->datasend(@MSG);
$smtp->dataend();
$smtp->quit;
Los 3 archivos deben estar en el mismo directorio. No olvideis editar el
final del file carta con sus datos personales.
pd: Dicen que si lo pones en tu crontab cada una hora, maniana encontraras
al amor de tu vida.
Salu2.
pd2: En caso de no tener Net::SMTP lo pueden instalar con el comando cpan -i
Net::SMTP.
--
perl -e 'print pack(c5, (41*2), sqrt(7056), (unpack(c,H)-2), oct(115), 10)'
ley.pl
Description: Binary data
mails
Description: Binary data
carta
Description: Binary data
