ホームページ裏ワザ大全 - CGI/Perl TIPS & TRICKS -

ホームページ裏ワザ大全 - CGI/Perl TIPS & TRICKS - のご案内

「ホームページ裏ワザ大全 - CGI/Perl TIPS & TRICKS -」 ＫＥＮＴ　著
B5変形 240ページ定価 2200円 (税別)
インプレス　ISBN4-8443-1625-7

２ちゃんねる風の「マルチスレッド掲示板」【本書オリジナル】、
iモードの絵文字をブラウザーから見られる「iモード掲示板」【本書オリジナル】他、
厳選TIPS＆オリジナルCGIを満載！

はじめに ◎INTRODUCTION　CGIへの招待 01　CGIとは 02　Perlとは 03　簡単なCGIを組んでみよう！ 04　CGIを設置してみよう! 　　●TIPS01　HTTPヘッダについて　　●TIPS02　Perlのパスについて　　●TIPS03　ファイルの読み込みと書き込みについて　　●TIPS04　絶対パスと相対パスについて　　●TIPS05　データの受け取り方について　　●TIPS06　環境変数について　05　FTPソフトを使いこなそう FTPソフトの入手と基本的な設定 CGIをアップロードしてみよう　06　プロバイダーとCGI 自分のプロバイダーを調べる　　　CGIに最適な環境を探そう　　　プロバイダー別CGI環境紹介 ◎TIPS & TRICKS編 CGI/Perlでコミュニケーションをパワーアップ本書で紹介するCGIスクリプトについて ■カウンタ編　01　画像カウンタTIPS 　　●TIPS07　重複カウントを防止するには　02　画像連結カウンタTIPS 　　●TIPS08　画像連結カウンタの特性　　●TIPS09　カウンタ画像の変更のしかた　　●TIPS10　米国ユニシス社GIF画像の特許問題について　　●TIPS11　同時アクセスによるファイル破損と排他処理　03　昨日と本日のカウンタの取り方TIPS 　04　テキストカウンタTIPS 　　●TIPS12　SSIについて ■掲示板＆チャット編 01　ノーマル掲示板（EZ-BOARD）TIPS 　　●TIPS13　投稿フォームの入力必須項目の増やし方　　●TIPS14　掲示板を改造してみよう(1) 　　●TIPS15　掲示板を改造してみよう(2) 　　●TIPS16　掲示板を改造してみよう(3) 　　●TIPS17　掲示板を改造してみよう(4) 　　●TIPS18　パスワードの暗号化について　　●TIPS19　クッキー機能について　　●TIPS20　漢字コードの変換について　　●TIPS21　文字化けについて　　●TIPS22　記録ファイルのダウンロード拒否のしかた（セキュリティー対策）　　●TIPS23　投稿記事のセキュリティー（HTMLタグの無効化）　　●TIPS24　アクセス拒否のしかたについて　　●TIPS25　投稿時のリンク元のチェック（セキュリティー対策）　02　画像アップロード型掲示板TIPS 　03　マルチスレッド掲示板TIPS 　　●TIPS26　マルチスレッド掲示板の運営と管理について　04　iモード掲示板TIPS 　05　ノーマルチャットTIPS 　06　ロボットチャットTIPS 　　●TIPS27　ロボットチャットの自動応答の仕組み ■メールフォーム編 01　メールフォーム（PostMail）TIPS 　　●TIPS28　メールフォームの改造例（複数のあて先に送信） ■アクセスログ解析編 01　アクセスログ解析（AccessReport）TIPS 　　●TIPS29　アクセス解析に曜日別を追加する　　●TIPS30　IPアドレスとホスト名について ■アンケート投票編　01　アンケート投票（Message Enquete）TIPS 　　●TIPS31　ソート機能について ■検索エンジン編　01　検索エンジン（Net Cruiser v2）TIPS 　　●TIPS32　検索エンジンの運営について ◎APPENDIX 　付属CD-ROMについて　用語解説　トラブル解決事典　KENT WEBの紹介　KENT WEBのCGIを使ってみよう ■コラム　掲示板の運営について　掲示板の記録ファイルとサーバー容量　メールフォームは、すべての人が使えるCGIで　sendmailの利用にあたって

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

■変更前（575行目付近） # コード判別（半角カナ対策） 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"); } }

▼ 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";

アクセス解析

▼ 書籍内容の訂正 (P172)

■変更前
require './jcode.pl';

■変更後
$jcode = './joce.pl';


▼ report.cgi 90行目付近 (スクリプトのセキュリティ改善)

■変更前
# リンク元を取得
$ref = $ENV{'QUERY_STRING'};
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$ref =~ s/<(([^>]|\n)*)>//g;
if ($ref !~ /^http\:\/\//) { $ref = ''; }
else { $ref =~ s/\r|\n//g; }

# リンク元をシフトJIS変換（YAHOOなど検索エンジンからのキーワード処理）
if ($ref) {
	require $jcode;
	&jcode'convert(*ref,'sjis');
}

■変更後
# リンク元を取得
$ref = $ENV{'QUERY_STRING'};
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref =~ /^https?\:\/\//) {
	$ref =~ s/&/&/g;
	$ref =~ s/"/"/g;
	$ref =~ s/</</g;
	$ref =~ s/>/>/g;
	$ref =~ s/\r|\n|\0//g;

	# シフトJIS変換（検索エンジンからのキーワード処理）
	require $jcode;
	&jcode'convert(*ref,'sjis');
} else {
	$ref = '';
}

2ch風掲示板

▼ mtbbs.cgi 233行目付近 (トップ画面の記事表示件数が10件固定となる　→　$t_maxの設定が反映されない)

■変更前
if (11 < $res) {
	print "[<a href=\"$script?mode=view&no=$no&list=all\">全件表\示</a>]\n";
}
print "<h3 style=\"font-size:18px; color:$t_color\">$sub</h3>\n<DL>\n";
$k=0;
while (<T>) {
	$k++;
	if ($k > 1 && $res > 11) { $res--; next; }
	local($no,$name,$email,$com,$date) = split(/<>/);
	$name = "<font color=\"$mycolor\">$name</font>";
	if ($email) { $name = "<a href=\"mailto:$email\">$name</a>"; }
	if ($autolink) { $com = &auto_link($com, $num); }
	print "<DT>[<b>$no</b>] <b>$name</b> - $date\n";
	print "<DD>$com<br><br>\n";
}

■変更後
if ($t_max+1 < $res) {
	print "[<a href=\"$script?mode=view&no=$no&list=all\">全件表\示</a>]\n";
}
print "<h3 style=\"font-size:18px; color:$t_color\">$sub</h3>\n<DL>\n";
$k=0;
while (<T>) {
	$k++;
	if ($k > 1 && $res > $t_max+1) { $res--; next; }
	local($no,$name,$email,$com,$date) = split(/<>/);
	$name = "<font color=\"$mycolor\">$name</font>";
	if ($email) { $name = "<a href=\"mailto:$email\">$name</a>"; }
	if ($autolink) { $com = &auto_link($com, $num); }
	print "<DT>[<b>$no</b>] <b>$name</b> - $date\n";
	print "<DD>$com<br><br>\n";
}