■変更前（662行目付近)
# 親記事のとき
if ($in{'oya'} == $in{'no'}) {
	$flag=1;
	$pw2=$pw;
	if ($in{'no'} == $no || $in{'no'} == $reno) { next; }

■変更後
# 親記事のとき
if ($in{'oya'} == $in{'no'}) {
	$flag=1;
	if ($in{'no'} == $no) { $pw2=$pw; next; }
	elsif ($in{'no'} == $reno) { next; }

(2) iモードからの絵文字入力がパソコン側に反映されないことのある不具合。

■変更前 (127行目付近)
# 絵文字番号
@image = (63647 .. 63812);

■変更後
# 絵文字番号
@image = (63647 .. 63740, 63808 .. 63817, 63824 .. 63827,
		63829 .. 63831, 63835 .. 63838, 63858 .. 63870, 63872 .. 63920);

※これに伴い、iモード用絵文字画像の差替えが必要です。以下からダウンロードしてください。

→　LHA形式 でダウンロード

→　ZIP形式 でダウンロード

■変更前（741行目付近）
# コード判別（半角カナ対策）
if (!$imode) {
	$code = $in{'code'};
	$code = &jcode'getcode(*code);
	if ($code ne "sjis") {
		&jcode'convert(*i_nam, 'sjis', "$code");
		&jcode'convert(*i_sub, 'sjis', "$code");
		&jcode'convert(*i_com, 'sjis', "$code");
	}
}

■変更後
# 絵文字対策
if ($imode) {
	$sj = '[\x80-\x9F\xE0-\xF7\xFA-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\x7F]|[\xA1-\xDF]';
	$em = '[\xF8\xF9][\x40-\x7E\x80-\xFC]';
	$i_sub =~ s/\G((?:$sj)*)($em)/$1.'&#'.unpack('n',$2).';'/ego;
	$i_com =~ s/\G((?:$sj)*)($em)/$1.'&#'.unpack('n',$2).';'/ego;
# コード判別（半角カナ対策）
} else {
	$code = $in{'code'};
	$code = &jcode'getcode(*code);
	if ($code ne "sjis") {
		&jcode'convert(*i_nam, 'sjis', "$code");
		&jcode'convert(*i_sub, 'sjis', "$code");
		&jcode'convert(*i_com, 'sjis', "$code");
	}
}

※上記の絵文字コード変換処理は、CGIぽんさんの公開する変換コードより引用させていただきました。この場を借りてお礼申し上げます。

(3) 不要な設定項目の削除 （記事内容訂正及びスクリプトの修正）

■記事内容の訂正 (P108)
$comlen に関する設定部分　→　削除

■変更前（64行目付近)
# 記事当りの表示文字数（全角換算）
#  → これを超える記事は以降をカットし、<続き> のリンクを作成
$comlen = 60;

■変更後
# 記事当りの表示文字数（全角換算）
#  → これを超える記事は以降をカットし、<続き> のリンクを作成
#$comlen = 60;

■変更前（175行目付近)
$comlen *= 2;

■変更後
#$comlen *= 2;

▼P207「CGI実行ディレクトリが特に決まっていない場合」ディレクトリ構成例のファイル名誤植
rank.dat  →  rank.log

▼P207「CGI実行ディレクトリが専用ディレクトリの場合」ディレクトリ構成例のファイル名誤植
rank.dat  →  rank.log
linkディレクトリ内 rank.html [666] 追加

▼P209「設定」の誤植
$script = './cruiser.cgi';  →  $script = './link.cgi';

▼表示部のメニューリンク部で、リンク先の不具合 (link.cgi 278行目付近）
・変更前
foreach (0 .. $#parts) {
	if ($_ == $half) { print OUT ""; }

		# ページを定義
		if ($_ <= 1) {
			$filepath2 = $htm_dir . "index.html";
			$fileurl2  = $htm_url . "index.html";
		} else {
			$tmp = int($_ / 2) + 1;
			$filepath2 = $htm_dir . "index$tmp\.html";
			$fileurl2  = $htm_url . "index$tmp\.html";
		}

	if ($filepath eq $filepath2) { $top = $top1color; }
	else { $top = $top2color; }

	print OUT "<td><font color=\"$top\">■</font>";
	print OUT "<a href=\"$filepath2\">$parts[$_]</a></td>\n";
}

・変更後
foreach (0 .. $#parts) {
	if ($_ == $half) { print OUT ""; }

		# ページを定義
		if ($_ <= 1) {
			$filepath2 = $htm_dir . "index.html";
			$fileurl2  = $htm_url . "index.html";
		} else {
			$tmp = int($_ / 2) + 1;
			$filepath2 = $htm_dir . "index$tmp\.html";
			$fileurl2  = $htm_url . "index$tmp\.html";
		}

	if ($filepath eq $filepath2) { $top = $top1color; }
	else { $top = $top2color; }

	print OUT "<td><font color=\"$top\">■</font>";
	print OUT "<a href=\"$fileurl2\">$parts[$_]</a></td>\n";
}

▼ランキング表示の更新処理の不具合 (link.cgi 856行目付近）
・変更前
open(R,"$ranklog") || &error("Open Error : $rankfile");
while ($no = <R>) {
	chop($no);
	$NO{($no)[0]}++;
}
close(R);

・変更後
open(R,"$ranklog") || &error("Open Error : $rankfile");
$top = <R>;
while ($no = <R>) {
	$no =~ s/\D//g;
	next if ($no eq "");
	$NO{($no)[0]}++;
}
close(R);

▼ forum.cgi 1904行目付近（パスワードファイルの設定とセキュリティ改善）
・現状
#-------------#
#  ID/PW認証  #
#-------------#
sub pass_check {
	local($time,$time2,$inpw,$flag,$id,$pw,$check);

	# 時間を取得
	$time = time;

	$timeout = 30*60;
	$password = 'milkcafe';
	$pwdfile = 'pwd.cgi';

・変更後
#-------------#
#  ID/PW認証  #
#-------------#
sub pass_check {
	local($time,$time2,$inpw,$flag,$id,$pw,$check);

	# 時間を取得
	$time = time;

	$timeout = 30*60;
	$password = 'Th23IK98'; # ← 適当な英数字8文字で変更
	$pwdfile = 'pwd.cgi'; # ← パスワードのファイル名を変更する場合はここを修正

▼ admin.cgi 41行目付近（ロックファイル名の変更）
・現状
$lockfile = './lock/wforum.lock';

・変更後
$lockfile = './lock/forum.lock'; # ← forum.cgiのロックファイル名に合わせる

▼ cruiser.cgi 995行目付近（カテゴリ内表示の不具合　→　特に NetScape6 では表示が乱れる）
・現状
foreach ("AND", "OR") {
	if ($in{'cond'} eq $_) {
		print "<option value=\"$_\" selected>$_\n";
	} else {
		print "<option value=\"$_\">$_\n";
	}
}
print "<input type=submit value=' 検索 '>\n";
print "<small>[このカテゴリの中から検索]</small></form><hr>\n";

・変更後
foreach ("AND", "OR") {
	if ($in{'cond'} eq $_) {
		print "<option value=\"$_\" selected>$_\n";
	} else {
		print "<option value=\"$_\">$_\n";
	}
}
print "</select> <input type=submit value=' 検索 '>\n";
print "<small>[このカテゴリの中から検索]</small></form><hr>\n";


全文検索 ：スクリプト修正（セキュリティ対策）
▼ wfinder.cgi, wfinder2.cgi 289行目付近
・現状
foreach (@buf) {
	($key, $val) = split(/=/);
	$val =~ tr/+/ /;
	$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	&jcode'convert(*val, 'sjis');

	$in{$key} = $val;
}

・変更後
foreach (@buf) {
	($key, $val) = split(/=/);
	$val =~ tr/+/ /;
	$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	$val =~ s/&/&amp;/g;
	$val =~ s/</&lt;/g;
	$val =~ s/>/&gt;/g;
	$val =~ s/"/&quot;/g;

	&jcode'convert(*val, 'sjis');

	$in{$key} = $val;
}