#!/usr/bin/perl -w
use strict;
use Mail::Sendmail;
my %mail;

open(FILE, "/etc/passwd");

while(<FILE>){   
    chomp;
    @_ = split/:/;
    
    if ($_[3] >100){
        print "Testing Mail::Sendmail version $Mail::Sendmail::VERSION\n";
        print "Default server: $Mail::Sendmail::mailcfg{smtp}->[0]\n";
        print "Default sender: $Mail::Sendmail::mailcfg{from}\n";
        
     %mail = (
           To      => "$_[0]".'@xenon.pquim.unam.mx',
      # To      => 'erick@xenon.pquim.unam.mx',
           From    => 'root@xenon.pquim.unam.mx',
      #Bcc     => 'Someone <him@there.com>, Someone else her@there.com',
      # only addresses are extracted from Bcc, real names disregarded
      #Cc      => 'Yet someone else <xz@whatever.com>',
      # Cc will appear in the header. (Bcc will not)
      Subject => 'Administracion de litio',
      'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
  );

  $mail{Smtp} = 'localhost';
  $mail{'X-custom'} = 'My custom additionnal header';
  $mail{'Message : '} = "Este correo es para avisar que si reciben correo \"spam\", este puede ser cancelado, como una atencion al usuario.  Me puedes enviar un correo especificando la direccion de donde te llega el spam el cual sera marcado como {SPAM} en cuanto llegue o si este esta marcado como {SPAM} y \"NO LO ES\" hazmelo saber de la misma manera para evitar su eliminacion posterior.  atte. erick";
  # cheat on the date:
  $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );

  if (sendmail %mail) { print "Mail sent OK.\n" }
  else { print "Error sending mail: $Mail::Sendmail::error \n" }

  print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;

#print "$_[0] \n"; 
}
}
close FILE;