|
>이거 아시는분 알려주세여~
>아래는 등록된 전체회원에게 메일을 보내는 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");
>}
>
안녕하세요. 해피CGI 웹마스터 윤영웅입니다.
http://www.happycgi.com/forum/forum_detail.cgi?thread=7039&category=웹프로그램_관련/PERL_관련/PERL_팁
위 주소를 클릭하셔서 보시면 참고가 될겁니다.
좋은 하루되세요.
|
52
498
2001-09-08 00:33:38
닉네임
