#!/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