cgibessou_page010

10．ログイン制限

ページを表示する前に、名前と暗証番号を入力してから
ページを表示できる様にしたいと思います。

前回までに作ったソースを入力画面にして、認証したら別のページを表示する。
ってな感じでやってみよう～♪

今までのHTMLサブルーチンを使って変更していけばいいんだけど
何てサブルーチン名にしようかな～・・・？
GO　にするかっ！

んで、どうすんだ？(￣-￣*)ｼﾞｨ

入力画面のページ表示　→　フォームから名前と暗証番号を送信
　→　デコード処理して送られてくる$nameと$passの両方をチェック
んで、名前と暗証番号を予め登録しといて
一致すればHTMLを表示し、違っていたらエラー表示画面を表示

こんな感じでやってみるっす。
まずは、認証するサブルーチンを作ってみようかと思います。

駄目だっ！うまく動かない。ｶﾞ━━(＝￣□￣＝)━━ﾝ!!

現在のソース　：　cgibessou_page010-1.txt
ini.cgi　：　ini.txt

できた～～～っ！ちょっと苦労した。＾＾；
フォームで　hidden　を使う方法をすっかり忘れてて
条件分岐とかフラグ立てたり、サブルーチンの中に retuen 入れたりしてたんだけど。(^_^；ｱﾊﾊ…

↓もしフォームから送信された値が無ければ、サブルーチン　GO　を呼び出し
if($FORM{'munba'} eq ''){&GO;}

↓サブルーチン　GO　内に
<input type="hidden" name="munba" value="go">
を記述し

↓もしhiddenで送信された値が go　なら、認証サブルーチン　go_in　を呼び出し、
if($FORM{'munba'} eq 'go'){&go_in;}

↓TOPページのフォームから入力された値　name 　と　pass を判別して
if($name eq "ムンバ" && $pass eq "123")

合致していればサブルーチン　HTML　を呼び出し、メインHTMLを表示する。
合致して無ければメッセージHTMLを表示する。

#!/usr/local/bin/perl

require './ini.cgi';

### ↓サブルーチン呼び出し
#

&decode;

if($FORM{'munba'} eq ''){&GO;}

if($FORM{'munba'} eq 'go'){&go_in;}

### ↓サブルーチン
#

############
# 入力画面 #
############
sub GO{
        &HTML_header;
        
        print <<"login";
                <form method = "post" action = "$this_cgi">
                名前 　　　　 <input type = "text" name = "name"maxlength = 8>（8文字以内）$bb
                暗証番号 　 <input type = "password" name = "pass"maxlength = 10>（10文字以内）$bb $b
                <input type="hidden" name="munba" value="go">
                <input type = "submit" value = "入ってみる">
login

}

########
# 認証 #
########
sub go_in{
        if($name eq "ムンバ" && $pass eq "123"){&HTML;
        }else{
                &message("名前または暗証番号が違います。"); exit;
        }
}

########
# HTML #
########
sub HTML{
        &HTML_header;
        print <<"munba";
        
                ログイン成功～っ！(≧∇≦)ノ〃わーい♪$bb$bb
                
                \$buffer ： $buffer $bb
                \$name ： $name $b
                \$pass ： $pass $b
                \$buffer_length ： $buffer_length
munba
        &HTML_footer;
}

##################
# メッセージ表示 #
##################
sub message{
        print "Content-type:text/html\n\n";
        print <<message;
                <html>
                <meta http-eruiv = "content-type"content = "text/html;charset = SHIFT_JIS">
                <head><title>$title</title></head>
                <body bgcolor = "$bg_color">
                $aka<center><big>$_[0]</big>$f $b

message
        &HTML_footer;
}

############
# ヘッダー #
############
sub HTML_header{
        
        print "Content-type: text/html\n\n";
        print <<"header";
                <title>$title</title>
                <html><body bgcolor = "$bg_color">
                <meta http-eruiv = "content-type"content = "text/html;charset = SHIFT_JIS">
header
}

############
# フッター #
############
sub HTML_footer{

print <<"footer";
                $c <form method = "post" action = "$this_cgi">
                <input type = "submit"  value = "戻る">$c_e
footer
        print "</body></html>\n";

}

############
# デコード #
############
sub decode{
        my $login_buf = 68;
        
        $method = $ENV{'REQUEST_METHOD'};
        $buffer_length = $ENV{'CONTENT_LENGTH'};
        
        if($buffer_length >= $login_buf){&message("名前または暗証番号が長すぎます"); exit;}
        
        if($method eq 'POST'){
                read(STDIN,$buffer,$buffer_length);
        }else{
                $buffer = $ENV{'QUERY_STRING'};
        }
        
         @data = split(/&/,$buffer);
        
        foreach $line(@data){
                my ($from_form,$value) = split(/=/,$line);
                $value =~ tr/+/ /;
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                
                #&jcode'convert(*value,'sjis');
                
                $value =~ s/&/&/g;
                $value =~ s/</</g;
                $value =~ s/>/>/g;
                $value =~ s/<>/<>/g;
                
                $value =~ s/\r\n/<br>/g;
                $value =~ s/\r/<br>/g;
                $value =~ s/\n/<br>/g;
                
                $FORM{$from_form} = $value;
        }
        $name = $FORM{name};
        $pass = $FORM{pass};
        $go   = $FORM{go};
}
#
### ↑サブルーチン

exit;

↑sub decodeに、このテキストエリアでは正常に表示されてないスクリプトなどがありますので
コピペして使うなら↓の「現在のソース」をコピペして下さい。
あと、タグなどをスカラー変数に代入して使用し始めたので↓の　ini.cgi　を参考にして下さい。

現在のソース　：　cgibessou_page010-2.txt
ini.cgi　：　ini.txt

何か、それらしくなってきたよね！ｗｗｗ

で、次の目標は、それぞれログインする人の「名前」と「暗証番号」を予め記録しといて・・・
今回はweb上で「名前」「暗証番号」を新規登録するのではなく
予め登録している「名前」「暗証番号」を、web上で認証してログインする方法でやりたいんす。

んで、配列か連想配列を使ってやってみま～す。
次回は、別ファイルまたはサブルーチン内に
「名前」と「暗証番号」をいくつか？登録しておいて
それぞれを認証できるスクリプトを作りたいと思います。

戻る