Return to Snippet

Revision: 2307
at February 1, 2007 07:07 by olive


Initial Code
open(CMD,"|/usr/sbin/sendmail -oi -odi -oem -f exploit\@toto.com -t")
      or die "Can not open sendmail : $!\n";
  print CMD "From: exploit\@toto.com\n";
  printf CMD "To: %s\n",$operatorEmail;
  print CMD "Subject: Mail Internet\n";
  print CMD "Mime-Version: 1.0\nContent-Type: text/plain; charset=iso-8859-1\n";
  print CMD "Content-Transfer-Encoding: 8bit\n\n";
  print  CMD "Bonjour,\n\n";
  close CMD;

Initial URL

                                

Initial Description

                                

Initial Title
Envoie d'un Mail

Initial Tags
email

Initial Language
Perl