Basic認証のパスワードを再発行するPerl-CGI

概要

Basic認証で簡単に仲間内専用ページを作ったはいいものの、ひさびさに使ってみようと思ったらパスワードが思い出せない！

ということがわりとよくあったので、パスワードをランダムな文字列から生成して、.htpasswdを一括更新＆登録したメールアドレスに送りつけるCGIを作った。
CGIのソースコード → http://codepad.org/UKG8whu3

pass.cgi
パスワード再発行のスクリプト

pass.htm
再発行ページ（ここのフォームから登録されたメールアドレスを送信する

data/user_list.txt
ユーザーリストの設定ファイル
改行コードLF,文字コードUTF8のTAB区切りファイル。
設定項目は[MAIL,ID,PASSWORD]。
(PASSWORDは更新したら上書きされる)

data/access_list.txt
設定を書き込むhtpasswdファイルのリスト
(改行コードLF,文字コードUTF8)