mame_pls の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• mame_pls へ行く。
• mame_pls の差分を削除

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する
 require 'mimew.pl';
 	$mailhead=&mimeencode($mailhead);
  	$mailhead=&mimeencode($mailhead);
 	$temp .=$mailhead;
 	$temp .=$copymailsig.$mailbody.$copymailfooter;
 	&jcode::convert(\$temp,'jis');