#!/usr/local/bin/perl #┌───────────────────────────────── #│ [注意事項] #│ methodプロパティ は POST 専用です #└───────────────────────────────── # 【 設置 】 # # index.html (トップページ等) # | # +-- kyoumudayori / index.cgi [705] # | # +-- data /top.html [604] ... 隠しファイル # #============# # 設定項目 # #============# # パスワード(半角英数字) $pass = 'nawate1234'; # スクリプト名 $script = "./index.cgi"; # 隠しファイル $secret = './top.html'; #============# # 設定完了 # #============# # デコード処理 if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); } foreach (split(/&/, $buf)) { local($key, $val) = split(/=/); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # セキュリティ対策 $val =~ s/&/&/g; $val =~ s/"/"/g; $val =~ s/</g; $val =~ s/>/>/g; $val =~ s/\0//g; $in{$key} = $val; } if ($in{'pass'} ne "") { &login; } # 認証画面を表示 &header; print <<"EOM";
ここは四條畷学園小学校の保護者向けの専用ページです。
事前にお伝えしております“パスワード“入力してログインをクリックして下さい。