´äº¯ °¨»çµå¸³´Ï´Ù. ÇØ´äÀ» ã¾Ò½À´Ï´Ù.
¿ø¹® 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"); } --------------- ¼öÁ¤¹® »¡°£»ö ºÎºÐÀÌ Á¤´äÀ̾ú½À´Ï´Ù. sub regmail { for( split(/,/, $FRM{'to'}) ) { memtpl($_); my $msg = qq|MIME-Version: 1.0\nContent-Type: text/html; charset=euc-kr\nTo: $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"); }
À±¿µ¿õ´Ô °¨»çÇÕ´Ï´Ù..²Ù¹÷²Ù¹÷~
|