Your Ad Here

advanced code snippet search

Posted By

olive on 02/01/07


Tagged

email


Versions (?)

Envoie d'un Mail

 / Published in: Perl
 
Expand | Embed | Plain Text 
  1. open(CMD,"|/usr/sbin/sendmail -oi -odi -oem -f exploit\@toto.com -t")
  2.       or die "Can not open sendmail : $!\n";
  3.   print CMD "From: exploit\@toto.com\n";
  4.   printf CMD "To: %s\n",$operatorEmail;
  5.   print CMD "Subject: Mail Internet\n";
  6.   print CMD "Mime-Version: 1.0\nContent-Type: text/plain; charset=iso-8859-1\n";
  7.   print CMD "Content-Transfer-Encoding: 8bit\n\n";
  8.   print  CMD "Bonjour,\n\n";
  9.   close CMD;

Report this snippet  

You need to login to post a comment.