Cookie を使ったパスワード入室

　初歩から始める初心者向けPerl-CGI講座　■　


	`CGI`の設置方法
	フリーで配布されている`CGI`を設置する際の手順や注意事項などの説明です。

	`CGI`作成の初歩
	初めて`CGI`を作る方向けの手順を簡単な例で説明しています。

	`CGI`作成ヒント集
	こういう事をする時は、どのように行えばいいのか？など具体的な事例を紹介します。

	`CGI`の設置に関する用語
	`CGI`の作成に関する用語
	`CGI`の設置や作成時に使われている用語や関連知識を掲載しています。

	設置に関するFAQ
	作成に関するFAQ
	設置や作成をする際に起こりがちなトラブルの説明と、よくある質問とその回答を掲載しています。

Cookie を使ったパスワード入室

Cookie を使ってパスワード情報を保持してみます

【関連項目】 Cookie の発行と読み出し

下のサンプルソースは【パスワードが正しい場合のみ画像を表示】で使用した
サンプルソースにクッキーデータの読み書きを追加したものです。
パスワードを比較する前にクッキーのデータを読み込み、クッキーに保存されている
パスワードが正しいものであれば、入力画面を出さずに画像表示を行います。

パスワードが入力されていない、又はパスワードが間違っている場合は入力する
フォームを表示するのみです。

#!/usr/local/bin/perl

#フォームからの受け取りをデコードする
&dec;

#クッキーの読み出し
&splt;

#入室用のパスワード
$passw = '0123';

#パスワードOKの場合に表示する画像
$view = 'aaa.jpg';

#cookie のパスか、入力されたパスが正しければ画像表示
if ($COOKIE{'ckpas'} eq $passw) { &imgview; }
elsif ($forminh{'pass'} eq $passw) { &imgview; }

print "Content-type: text/html\n\n";
print <<"HTML";
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE></TITLE>
</HEAD>
<BODY>
$ermes<BR>
<FORM method="POST" action="test.cgi">
<INPUT size="20" type="text" maxlength="20" name="pass"> 
<INPUT type="submit" value="実行"></FORM>
</BODY>
</HTML>
HTML
exit;

#画像を表示する為のサブルーチン
sub imgview
{

#クッキーの書き出し
print <<"HTML";
Content-type: text/html
Set-Cookie: ckpas=$forminh{'pass'}; expires=Tue, 1-Jan-2030 00:00:00 GMT;
HTML

print "Content-type: image/jpeg\n\n"; #コンテンツタイプを指定する
	open IMGG,"$view"; #ファイルハンドル IMGGに画像ファイルを読み込む
	binmode (IMGG); #画像なのでバイナリモードに設定する
	print <IMGG>; #ファイルハンドルを画面に書き出す
	close (IMGG); #ファイルハンドルを閉じる
	exit;
}

#フォームからの値をデコードするサブルーチン
sub dec
{
	#フォームからデータを受け取り変数へ入れる
	read(STDIN, $formin, $ENV{'CONTENT_LENGTH'});
	# + 記号を半角スペースに戻す
	$formin =~ tr/+/ /;
	#URLエンコードデータをデコード
	$formin =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	@indata = split (/&/,$formin); #受け取ったデータを＆で区切り、配列へ
	foreach $tmp (@indata) #フォームの要素分（配列分）以下の処理を繰り返す
	{
		($name,$value) = split (/=/,$tmp); # =記号で区切り、名前 と 値 に分ける
		$forminh{$name} = $value; #区切った名前を付けた連想配列に値を入れる
	}
}

#クッキー読み出し用のサブルーチン
sub splt
{

@cookdata = split(/;/,$ENV{'HTTP_COOKIE'}); #クッキーを配列に
	foreach $tmp (@cookdata) #クッキーデータの有る間処理をする
	{
		($youso,$atai) = split(/=/,$tmp); #要素名と値に区切る
		$youso =~ s/ //; #要素間のスペース除去
		$COOKIE{$youso} = $atai; #要素名の連想配列に値を入れる
	}

}

それぞれの処理をサブルーチンにしておくと、別のスクリプトにクッキーの機能を追加したい時や、
新たに作る時でも、それらを追加するだけなので便利です。

上記サンプルスクリプトの場合、クッキーで認証できたかどうかを確かめるには、ブラウザの
メニューからクッキーを削除し、別のウィンドウから再度アクセスしてみて下さい。
一度入室後、クッキーを削除したのみで更新を押すと、再度フォームの値が送られる為、
クッキーで認証できたかが確認できません。

関連項目

・　CGIの作成に関する用語
・　CGI作成に関するFAQ