#!/usr/local/bin/perl
# enter.cgi
#
# ＣＧＩでパスワード制限 v1.0 is Free. (c)rescue.ne.jp 
#
# |-bin
# |-dev
# |-etc
# |-<b>private_html</b>（新規に作成する）サーバによっては新規作成権限がない場合があります
# |       |
# |       |-- 401.html（認証されなかった場合に表示する）
# |       |-- 404.html（認証されたがファイルがない場合に表示する）
# |       |-- ここに認証後に表示させるファイルを置く
# |       |-- いくつでも設置できる
# |       |-- ここに置いたファイル名はパスワード入力画面ＨＴＭＬの<option>で指定する
# |
# |-public_html
# |       |
# |       |--private（任意のディレクトリ）
# |             |-- enter.cgi（このスクリプト）
# |             |-- index.html（パスワード入力フォーム）
# |-usr
#

# enter.cgiから見たprivate_htmlディレクトリの位置指定
# 上記の構成ならばこのままでよい
$private_html = '../../private_html';

# IDとそれに対応したパスワードを設定する（書き替えてください）
# かならず0からの一連番号を付けること（いくつでも増やせます）
# このenter.cgiを他のユーザから見られてしまうようなサーバでは、
# このenter.cgiのパーミッションを705にするなどして対応してください。
# メッシュでは755でＯＫです。
#---------------------------------------------------------------------
$ID[0] = 'rescue';           $PW[0] = 'test';
$ID[1] = 'taro';             $PW[1] = 'paopao';
$ID[2] = 'jiro';             $PW[2] = 'wahaha';
$ID[3] = 'rescue@ask.or.jp'; $PW[3] = 'justy';
$ID[4] = 'sabu';             $PW[4] = 'boygirl';
#---------------------------------------------------------------------

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}

$members = @ID;
foreach (0 .. $members -1) {

  if ($FORM{'password'} eq $PW[$_] && $FORM{'id'} eq $ID[$_]) { $target = $FORM{'target'}; &html; }
}

$target = '401.html'; &html;


sub html {

   if (!open(HTML,"$private_html\/$target")) { &html404; }
   @lines = <HTML>;
   close(HTML);

   print 'Content-type: text/html' ."\n\n";
   foreach (@lines) { print; }
   exit;
}

sub html404 {

   # 上記 sub html で404.htmlを扱うことができますが、万が一404.htmlが開けない場合、
   # 無限ループを起こしてしまうので、このルーチンを別に付けました。このルーチンには
   # エラー処理をしていませんので、404.htmlが開けない場合はサーバエラーになります。

   open(HTML,"$private_html\/404.html");
   @lines = <HTML>;
   close(HTML);

   print 'Content-type: text/html' ."\n\n";
   foreach (@lines) { print; }
   exit;
}