#!/usr/bin/perl
##################################################################
# Program : gate.cgi(Perl)
# Permission : 705
# Date_written : 2000/02/23
# Author : 良寛
# E-mail : ryokan@po.minc.ne.jp
# HomePage : http://www.minc.ne.jp/~ryokan/
##################################################################
# -----注意事項---------------------------------------------------
# (1)このスクリプトはフリーソフトです。このスクリプトを使用した
# いかなる損害に対して作者は一切の責任を負いません。
# (2)設置に関する質問は質問コーナーにお願いいたします。
# ----------------------------------------------------------------
$ver = 'GATE v1.0'; # バージョン
require './jcode.pl';
#=== 設定（ここから）=============================================
#
$title = '青年部会会員専用パスワード入力ページ'; # タイトル
$password = "ki.seinenbu"; # パスワード
$gatecgi = "pass.cgi"; # このスクリプト名（フルパス可）
$locate = "../kaiin/"; # 秘密のファイル
$bgcolor = "#ccffff"; # 背景色
$homepage ="../"; # トップページのURL
#
#=== 設定終了（ここまで）=========================================
# クッキー取得
&get_cookie;
# データ受信
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
# 受信データの編集
@buffer = split(/&/, $buffer);
foreach $pair (@buffer) {
local($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s//>/ig;
$value =~ s/\r\n/
/g;
$value =~ s/\n/
/g;
$value =~ s/\r/
/g;
$value =~ s/\,/,/g;
&jcode'convert(*name,'sjis');
&jcode'convert(*value,'sjis');
&jcode'h2z_sjis(*value);
$FORM{$name} = $value;
}
$pass = $FORM{'myName'};
$check = $FORM{'myCheck'};
if ($check eq ""){ $check="off";}
# パスワードチェック
if ($pass ne "" || $FORM{'submit'} eq "照会する"){
&set_cookie;
if ($pass eq $password){
print "Location:$locate\n\n";
exit;
}else{
&error_disp;
}
}
&disp;
exit;
# 終了
#******************** SUBROUTINE *******************************
#
#
# パスワード間違い表示
sub error_disp {
print "Content-type: text/html\n\n";
print <<"HTML";
もどる
パスワードが違います！
$pass