ファイル名: j/password.cgi

#!/usr/local/bin/perl

# -----------------------------------------------------------------------------
# パスワード (ファイル名: password.cgi )
# -----------------------------------------------------------------------------

$Title = 'パスワード';

# ------------------- PERL ------------------------

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


print"Content-type: text/html\n\n";

# ------- データ取得結果 ----------------
&html_d;

# ------- チエック/登録 判別 -----------

$sel = substr($QUERY_DATA,7,5);

if ($sel eq "check")
{&html_c;}
else{&html_i;}

exit;

# ----------------------- HTML(データ)-----------------------------
sub html_d {

# ------- パスワードチエック(力ワザ?) ---------------

if ($QUERY_DATA eq "SELECT=check&ID_WORD=John&P_WORD=pass")
{$result = "○ パスワードを認証します OK!";}
else{$result = "× パスワードが間違っています NG!";}

# --------------------------------------------------------

print <<__HTML__;

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=$CharSet">
<TITLE>$Title</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#ffff99">
<P>
1.データ取得結果<P>
<TABLE border="2">
<TBODY>
<TR>
<TD>\$ENV{'REQUEST_METHOD'} </TD>
<TD>$ENV{'REQUEST_METHOD'}</TD>
</TR>
<TR>
<TD>\$QUERY_DATA </TD>
<TD>$QUERY_DATA</TD>
</TR>
<TR>
<TD>\$ENV{'CONTENT_LENGTH'} </TD>
<TD>$ENV{'CONTENT_LENGTH'}</TD>
</TR>
</TBODY>
</TABLE>

__HTML__

}


# ----------------------HTML(チエック結果)------------------------------
sub html_c {

print <<__HTML__;

<P>
2.パスワードチエック結果 (check)<P>
<TABLE border="2">
<TBODY>
<TR>
<TD bgcolor="#ff0000" >結果</TD>
<TD>$result</TD>
</TR>
</TBODY>
</TABLE>
<P>
</BODY>
</HTML>

__HTML__

}


# ----------------------HTML(登録)------------------------------
sub html_i {

print <<__HTML__;

<P>
3.パスワードの登録 (input)<P>
<TABLE border="2">
<TBODY>
<TR>
<TD bgcolor="#000099" >登録結果</TD>
<TD>登録されました(ダミー)</TD>
</TR>
</TBODY>
</TABLE>
<P>
</BODY>
</HTML>

__HTML__

}