HTMLファイル読み込み・パスワード認証
#! /usr/local/bin/perl # パスワード設定 $PASSWORD = '1234'; # フォームデータ(パスワード)取り込み read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); foreach $pair (split(/&/, $query)) { ($key, $value) = split(/=/, $pair); $FORM{$key} = $value; } print qq(Content-type: text/html; charset=Shift_JIS\n\n); if($FORM{'pass'} eq $PASSWORD) { # パスワード一致 #HTMLファイル読み込み open(FILE, "<../../sample/sample1.html"); eval{ flock(FILE, 1) }; while($html = <FILE>){ print $html; } close FILE; } else { # パスワード不一致 print <<" END"; <html> <head> <title>パスワード認証</title> </head> <body> <form action="$ENV{'SCRIPT_NAME'}" method="POST"> パスワードを入力してください。<br> <input type="password" name="pass" value="" size="5"> <input type="submit" value="送信"> </form> </body> </html> END } exit;
〔 実行する 〕