Una soluci�n puede ser:
Este programa en perl recorreo el archivo /etc/passwd
Igual puede ser cualquier otro archivo txt con los correos
Manda a todo lo que este en ese archivo
El archivo correo.txt tiene el formato del email, puede ser lo que quira
text html .. pero tiene que darle formato
Cambiar variables $from y $dominio
----- Inicio ----
#!/usr/bin/perl
####################################
# Autor: Gregory Cascante Aviles
# Universidad Latina de Costa Rica
####################################
my $smail = '/usr/lib/sendmail -t';
$email_file = "/etc/passwd";
$mensaje = "correo.txt";
$sleep_count = 100; #Numeros de correo que manda antes de dormir
$sleep_secons = 60; #Numero de Segundos que duerme
$jump_to = 0;
$from = "[EMAIL PROTECTED]";
$dominio = "mydominio.com";
print "Habrir el Archivo Que tiene el mensaje: $mensaje\n";
open(MENSAJE,$mensaje) || die "\n No puedo ver el mensaje \n";
#Meter el Mensaje en na variable
@cuerpo = <MENSAJE>;
@clean_cuerpo = @cuerpo;
close (MENSAJE);
#Abrir el buffer para mandar el archivo
#print "Abrir el contador: $email_file.counter.txt\n";
open(COUNTER,">>$email_file.counter.txt");
#print "Abrir lista correos: $email_file\n";
open(FILE_HANDLE,$email_file) || die "\n No puede habrir: $email_file \n";
$cont = 1 ;
$sleep_count_temp = 0;
while (<FILE_HANDLE>)
{
if ($jump_to <= $cont)
{
chomp;
@lista = split/:/,$_;
#print "Abrir archivo sendmail: $smail\n";
# open (MAIL_to_greg, "|$smail") || die "\n No puede habrir $smail \n";
# print MAIL_to_greg "From: $from \n";
# print MAIL_to_greg "To: [EMAIL PROTECTED]";
# print MAIL_to_greg "Return-Path: <$from>\n";
# print MAIL_to_greg "Subject: $subject\n";
# print MAIL_to_greg @cuerpo;
# close (MAIL_to_greg);
print "Send: $cont --> [EMAIL PROTECTED]";
print COUNTER "$cont\n";
$cont++;
$sleep_count_temp++;
#Este sleep es entre correo y correo
#sleep(1);
if ($sleep_count_temp >= $sleep_count)
{
$sleep_count_temp = 0;
print "\nDurmiendo por $sleep_secons segundos\n";
print "\n";
sleep($sleep_secons);
}
}
else
{
chomp;
@lista = split/,/,$_; #Con esto salto al siguiente registro
#print "Skiped: $cont --> $lista[0]\n";
$cont++;
}
} #End while
close(COUNTER);
----- Original Message -----
From: "Jonathan Chaves Avalos" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, August 07, 2003 5:24 PM
Subject: pregunta sobre sendmail
> Una dudilla que salio ahora que lo necesito.
> Como hago con sendmail para enviar un correo a todos los usuario que
> tienen cuenta en mi servidor?
> Pura vida gente por toda la ayuda
>
>
>
> --
> Desuscripci�n: escriba a [EMAIL PROTECTED], tema
'unsubscribe'
> Problemas a: [EMAIL PROTECTED] http://www.linux.or.cr/listas
>
--
Desuscripci�n: escriba a [EMAIL PROTECTED], tema 'unsubscribe'
Problemas a: [EMAIL PROTECTED] http://www.linux.or.cr/listas
