#!/usr/bin/perl #************************************************************* # ユーザー毎パスワード制限 #************************************************************* #************************************************************* #設定 #************************************************************* #************************************************************* # 認証ページからの戻り先 (index.htmlなど） #************************************************************* $home = "../index.htm"; #************************************************************* # 隠しファイルのパス #************************************************************* $secret = "http://www.jlea.jp/membertop.htm"; #$secret = "http://xxx.xxx.xxxx/xxxxx/secret.html"; #************************************************************* # bodyタグ #************************************************************* $body = ''; #************************************************************* # スクリプトファイル名 #************************************************************* $script = "./passgate.cgi"; #************************************************************* # method形式 (POST/GET) #************************************************************* $method = 'POST'; #************************************************************* # ユーザIDとパスワードを指定 # 上下のID/PASS配列はコンマで区切っていくつでも指定できます。 # 上下の配列は必ずペアで #************************************************************* @UserID = ('JLEA'); @UserPW = ('LA&EC'); #************************************************************* # 設定完了 #************************************************************* if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } if ($buffer eq "") { &html; } @pairs = split(/&/, $buffer); foreach (@pairs) { ($name,$value) = split(/=/, $_); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } $id = $FORM{'id'}; $pw = $FORM{'pw'}; &passcheck; print "Location: $secret\n\n"; exit; #=============================================================== # パスワード画面 #=============================================================== sub html { &header; print <<"EOM";

認証画面

IDとPASSWORDを入力してください

USER ID
PASSWORD

EOM exit; } #=============================================================== # ID/PASSチェック処理 #=============================================================== sub passcheck { # ID/PASSをチェックする local($flag) = 0; foreach (0 .. $#UserID) { if ($id eq "$UserID[$_]" && $pw eq "$UserPW[$_]") { $flag = 1; last; } } # 該当なしの場合はエラー処理 if ($flag == 0) { &pass_error; } } #=============================================================== # パスワードエラー処理 #=============================================================== sub pass_error { print "Content-type: text/html\n\n"; print <<"EOM"; GATE $body [BACK]

認証エラー

認証画面に戻って再度ID・パスワードを入力して下さい。

EOM exit; } #=============================================================== #HTMLのヘッダー #=============================================================== sub header { print "Content-type: text/html\n\n"; print <<"EOM"; GATE $body [BACK]

EOM }