｜このサイトについて｜利用規定｜お問い合わせ｜

｜サンプルスクリプト｜読者サポート｜重要なお知らせ｜ダウンロード｜ファイルコンバータ｜

番号：

Vol.069

スクリプト名：

きり番カウンター「きりんさん」

修正日：

2002年9月20日

症状：

CGI中Jcodeモジュールを使用していますが、本文表記に「Perlモジュール（標準外）」が漏れていました。
Jcodeモジュールがあれば正常に動作しますが、jcode.plとmimew.plに書き換えたものを用意しましたので、Jcodeモジュールがない場合はこちらをご利用下さい。

内容：

下記圧縮ファイルにはjcode.plとmimew.plも含まれています。
それらをcgi-binフォルダ内に入れて下さい。 手作業で変更する場合は、以下の通りにして下さい。
手作業での変更の場合にもjcode.plとmimew.plが必要です。

admin.cgi、count.pl、mailform.cgi共通

use Jcode

これを削除し、代わりに

require 'jcode.pl';

とします。
また

	$HTML = jcode($HTML)->sjis;

の部分を

	&jcode::euc2sjis(*HTML);

とします。


admin.cgiのみ
314行目

	$old_pass = jcode($old_pass)->euc;

を

	&jcode::convert(*old_pass,'euc');

に

330行目

	$new_pass = jcode($new_pass)->euc;

を

	&jcode::convert(*new_pass,'euc');

に

494行目

	$passwd = jcode($passwd)->euc;

を

	&jcode(*passwd,'euc');

に


mailform.cgiのみ
133行目

#####################
# メール送信
#####################
sub SendMail {

のすぐ下に

	require 'mimew.pl';

を追加

133行目

	$Subject = jcode($Subject)->mime_encode();

を

	$Subject=&mimeencode($Subject);

に

							
191,192行目

	
	$mail_mess = jcode($mail_mess)->jis;
	$mail_mess_b = jcode($mail_mess_b)->jis;
	

を

	
	&jcode::euc2jis(*mail_mess);
	&jcode::euc2jis(*mail_mess_b);
	

に

522行目

	$uname = jcode($uname)->h2z->euc;

を

	
	&jcode::convert(*uname,'euc');
	&jcode::h2z_euc(*uname);
	

に

560行目

	$mess = jcode($mess)->h2z->euc;

を

	
	&jcode::convert(*mess,'euc');
	&jcode::h2z_euc(*mess);
	

に

ダウンロード：