BACKRUSH  À¯´Ð½º¸í·É  ´ÙÀ½  ÀÚ·á½Ç  Ascii Table   ¿ø°ÝÁ¢¼Ó  ´Þ·Â,½Ã°£   ÇÁ·Î¼¼½º   ½©
ÁöÇÏö³ë¼±   RFC¹®¼­   SUN FAQ   SUN FAQ1   C¸Þ´º¾ó   PHP¸Þ´º¾ó   ³Ê±¸¸®   ¾Æ½ºÅ°¿ùµå ¾ÆÀÌÇǼ­Ä¡

±Û¾´ÀÌ: perl perl mailer Á¶È¸¼ö: 7229


#!/usr/local/bin/perl



## use: perl file.pl teste.txt "webcard@terra.com.br" "Voce recebeu um cart? de
Marcella" cartao.html



$ARGC=@ARGV;



if ($ARGC !=4) {

printf "$0 <mailist> <webcard@terra.com.br> <assunto> <corpo.html>\n";

printf "¬¬ priv8 fdp c passa pra frente t mato\n";

exit(1);

}



$mailtype = "content-type: text/html";



$sendmail = '/usr/sbin/sendmail';



$sender = $ARGV[1];

$subject = $ARGV[2];



$efile = $ARGV[0];

$emar = $ARGV[0];



open(FOO, $ARGV[3]);

@foo = <FOO>;

$corpo = join("\n", @foo);



open (BANDFIT, "$emar") || die "Can't Open $emar";



while(<BANDFIT>) {



($ID,

$options) = split(/\|/,$_);

chop($options);

foreach ($ID) {





$recipient = $ID;



open (SENDMAIL, "| $sendmail -t");

print SENDMAIL "$mailtype\n";

print SENDMAIL "Subject: $subject\n";

print SENDMAIL "From: $sender\n";

print SENDMAIL "To: $recipient\n\n";

print SENDMAIL "$corpo\n\n";

close (SENDMAIL);

printf "mail send to $recipient ok";









}



}

close(BANDFIT);

°ü·Ã±Û : ¾øÀ½ ±Û¾´½Ã°£ : 2005/09/23 11:36 from 203.232.136.27

  ±¸±Û Çѱ¹»çÀÌÆ® °Ë»ö â ¸ñ·Ïº¸±â »õ±Û ¾²±â Áö¿ì±â ÀÀ´ä±Û ¾²±â ±Û ¼öÁ¤ php mailer  
BACKRUSH  À¯´Ð½º¸í·É  ´ÙÀ½  ÀÚ·á½Ç  Ascii Table   ¿ø°ÝÁ¢¼Ó  ´Þ·Â,½Ã°£   ÇÁ·Î¼¼½º   ½©
ÁöÇÏö³ë¼±   RFC¹®¼­   SUN FAQ   SUN FAQ1   C¸Þ´º¾ó   PHP¸Þ´º¾ó   ³Ê±¸¸®   ¾Æ½ºÅ°¿ùµå ¾ÆÀÌÇǼ­Ä¡