#!/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 cor
+reo \"spam\", este puede ser cancelado, como una atencion al usuario.
+  Me puedes enviar un correo especificando la direccion de donde te l
+lega el spam el cual sera marcado como {SPAM} en cuanto llegue o si e
+ste 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;

[download]

In reply to Mailallusers by erickfqunam

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.