#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "
\n";
if ( $ENV{REQUEST_METHOD} eq 'POST' ){
read(STDIN,$buf,$ENV{CONTENT_LENGTH});
foreach ( split('&',$buf) ){
($key,$value) = split('=',$_);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex(1ドル))/eg;
$FORM{$key} = $value;
}
if ( $FORM{'password'} eq 'secret' ){
print "ユーザ認証 OK です。\n";
} else {
print "パスワードが違います。\n";
}
}
# 自分自身のファイル名を取得
$script_name = $ENV{SCRIPT_NAME};
$script_name =~ s|.*/([^/]+)$|1ドル|;
print <
END