|
이거 아시는분 알려주세여~
아래는 등록된 전체회원에게 메일을 보내는 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");
}
|
107
1,140
2001-09-07 10:32:20
닉네임
