http://x68000.q-e-d.net/~68user/webcgi/mail-2.html
http://www.cc.rim.or.jp/~ikuta/mime_pls/index.html はリンクデッド
locate mime_pls
cd /usr/ports/japanese/mime_pls make install
=> mime_pls202.tgz doesn't seem to exist in /usr/ports/distfiles/. => Attempting to fetch from http://www.cc.rim.or.jp/~ikuta/mime_pls/. fetch: http://www.cc.rim.or.jp/~ikuta/mime_pls/mime_pls202.tgz: Not Found => Attempting to fetch from ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/distfiles/. mime_pls202.tgz 100% of 13 kB 15 kBps ===> Extracting for ja-p5-mime_pls-2.02 => MD5 Checksum OK for mime_pls202.tgz. => SHA256 Checksum OK for mime_pls202.tgz. ===> ja-p5-mime_pls-2.02 depends on file: /usr/local/bin/perl5.8.8 - found ===> Patching for ja-p5-mime_pls-2.02 ===> ja-p5-mime_pls-2.02 depends on file: /usr/local/bin/perl5.8.8 - found ===> ja-p5-mime_pls-2.02 depends on file: /usr/local/bin/perl5.8.8 - found ===> Configuring for ja-p5-mime_pls-2.02 ===> Installing for ja-p5-mime_pls-2.02 ===> ja-p5-mime_pls-2.02 depends on file: /usr/local/bin/perl5.8.8 - found ===> Generating temporary packing list ===> Checking if japanese/mime_pls already installed ===> Registering installation for ja-p5-mime_pls-2.02
cp /usr/local/majordomo/mimew.pl /usr/home/test/public_html/mailform/
#!/usr/local/bin/perl require 'mimew.pl'; : : : $mailhead .= "Subject: $title($subtitle)\n"; $mailhead .="Content-Transfer-Encoding: 7bit\n"; $mailhead .="Content-Type: text/plain; charset=ISO-2022-JP\n"; $mailhead .="X-Mailer: Anonymouse Mail Form\n\n"; #日本語タイトルが文字化けするためメールヘッダをmimeencodeする $mailhead=&mimeencode($mailhead); $temp .=$mailhead; $temp .=$copymailsig.$mailbody.$copymailfooter; &jcode::convert(\$temp,'jis');