ÀÌ°Å ¾Æ½Ã´ÂºÐ ¾Ë·ÁÁÖ¼¼¿©~ ¾Æ·¡´Â µî·ÏµÈ Àüüȸ¿ø¿¡°Ô ¸ÞÀÏÀ» º¸³»´Â perl ¼Ò½ºÀÔ´Ï´Ù. ÀÌ ¼Ò½º´Â ÅؽºÆ® Çü½ÄÀ¸·Î¸¸ ¸ÞÀÏÀÌ ¹ß¼ÛµÇ´Âµ¥, ÀÌ°ÍÀ» htmlÇü½ÄÀ¸·Î ¸ÞÀÏÀ» ¹ß¼ÛÇÒ·Á¸é, ¾îµð¸¦ ¾î¶»°Ô ¼öÁ¤ÇÏ¸é µÉ±î¿ä? Content-type: text/html <== ÀÌ·± ÇØ´õ¸¦ »ðÀÔÇØÁÖ¸é µÉ°Íµµ °°Àºµ¥, µµ¹«Áö ¸ð¸£°Ú³×¿°.. ¾Æ½Ã´ÂºÐ ´äº¯ ÁÖ¼¼¿°. --------------------------------------- sub send_mail { derr(1001, "Subject Left Blank") if( $FRM{'sub'} eq '' ); derr(1001, "Message Left Blank") if( $FRM{'msg'} eq '' ); $FRM{'to'} eq 'All' ? forkmail() : regmail(); }
sub forkmail { my $pid = fork();
if( !$pid ) { for( @{ dread("$DDIR/members", '\.dat$') } ) { my $id = arp::getmem($_); memtpl($id); my $msg = qq|To: $TPL{'MAIL'}\nFrom: $VAR::EM\nSubject: $FRM{'sub'}\n\n|; $msg .= $FRM{'msg'}; mail($VAR::ES, \$msg, \%TPL); } sleep(1); } else { display_main("Accounts Have Been E-mailed"); print '<font color="#ffffff">'; } }
sub regmail { for( split(/,/, $FRM{'to'}) ) { memtpl($_); my $msg = qq|To: $TPL{'MAIL'}\nFrom: $VAR::EM\nSubject: $FRM{'sub'}\n\n|; $msg .= $FRM{'msg'}; mail($VAR::ES, \$msg, \%TPL); } &{ $map{$FRM{'from'}} }("Accounts Have Been E-mailed"); }
|