#!/usr/bin/perl 


####################################
# Autor: Gregory Cascante Aviles
# Date:  Jueves 6 de Abril 2000
# Universidad Latina de Costa Rica
####################################

my $smail    = '/usr/lib/sendmail -t';
$passwd_file = "lista.txt";
#$passwd_file = "test.txt";
$mensaje     = "mensaje.txt";


open(MENSAJE,$mensaje) || die "\n No puedo ver el mensaje \n";

@cuerpo = <MENSAJE>;

print @cuerpo;


open(FILE_HANDLE,$passwd_file) || die "\n No puede habrir: $passwd_file \n";
$from = "grecasav\@ns.domus.ac.cr";
$cont = 1 ;




while (<FILE_HANDLE>)
      {
      chomp;
      @lista = split/:/,$_;            
      open (MAIL_to_greg, "|$smail");
          print MAIL_to_greg "From: $from \n";
          print MAIL_to_greg "To: $lista[0]\n";
          print MAIL_to_greg @cuerpo;
      close (MAIL_to_greg);
      print "Send: $cont --> $lista[0]\n";
#      print "\@ns.domus.ac.cr\n";
      $cont++;
      sleep(5);
      }