パスワードが正しい場合画像を表示する

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


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

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

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

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

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

パスワードが正しい場合のみ画像を表示する

今回はそれぞれの処理をサブルーチンにしてあります。
sub passenter はそのままCGI にアクセスした時に表示されるパスワード入力画面
sub imgview はパスワードが合っていた場合に画像を表示する部分
sub dec はフォームから渡された値をデコードするサブルーチン
sub error はパスワードの入力が間違っていた場合のエラー画面表示

下のサンプルソースでは、そのまま CGI にアクセスすると、パスワード入力画面が表示され、
パスワードが合っている場合、指定した画像（aaa.jpg）を表示します。
間違っている場合はエラー画面となり、正しいパスワードを入れるまで画像は表示されません。

#!/usr/local/bin/perl

#フォームからの受け取りをデコードする
&dec;
#入室用のパスワード
$passw = '0123';
#パスワードOKの場合に表示する画像
$view = 'aaa.jpg';

if ($forminh{'pass'} eq $passw) { &imgview; }
elsif ($forminh{'pass'} eq "") { &passenter; }
else { &error; }

sub passenter
{
print "Content-type: text/html\n\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">";
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>
<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 "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 error
{
print "Content-type: text/html\n\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">";
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>
パスワードが違います<BR>
ブラウザの戻るでお戻り下さい。
</BODY>
</HTML>
HTML
}

このように CGIから画像を出力するようにすると、サーバ側の設定で画像ファイルの読み出しが禁止
されているディレクトリでも、画像を表示する事ができます。
逆に言えば、制限があるディレクトリで使用すると CGI からしか表示する事が出来ない為、パスワード
を通るまで画像は絶対に表示されないような仕組みにする事ができます。

関連項目

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