[tlug] perl, cgi, and moji-baki

["Erin D. Hughes" <erin@example.com>]

Hey can I ask any one give me a little assistance with a cgi I am trying to
create. It is really a simple thing but it is not coming out well at all. 
 
1. I need the data to go into the db as EUC. Already happening page is
encoded with EUC so data comes in that format.
2. I need sent the thank you e-mail to the customer in Shift-JIS, Using
Jcode I think that I have achieved that with header info.
3. Currently both functions are working except when a Mac user receives the
mail. There it is Moji Baki.   

<code>
my $name_coded		= &jcode::sjis($name);
my $body_coded		= &jcode::sjis($body);


my $mail = qq(To: $email
Reply-to: $reply_to
From: $reply_to
Subject: $subject
Content-type: text/plain; charset="ISO-2022-JP"
Content-transfer-encoding: 7bit
Status:  	


$name_coded  —l
$body_coded

);

###OLD SEND MAIL 
open(MAIL,"| sendmail -t") || die "can't pipe to sendmail";
print MAIL $mail;
close(MAIL); 

</code>

Thanks in advance for any usefull info (thanks as well for the unusefull
stuff)!

Erin

<<attachment: winmail.dat>>