CGI Perlでの認証について
CGIにてログイン認証の処理を使用してみたく勉強がてら
Perlにて作成しているのですが、どうもうまくいかない
ので質問させてもらいます。
ID・パスワード保存用ファイルfile.datにあらかじめ
100<>p34z7
500<>332bdz
といった感じで入力してまして、
ログインボタンを押したときに
&login_chk($post{'id'},$post{'pwd'});
(URIデコード処理して$post{'id'},$post{'pwd'}を取得します)
を実行して下記サブルーチンを呼び出します。
sub login_chk {
my ($in_id, $in_pass) = @_;
my ($id, $pass);
my $data;
if (!open (IN, "./file.dat")) {
&Error("ファイルが開けません");
}
while ($data = <IN>) {
($id, $pass) = split(/<>/, $data);
if ($in_id eq $id){ last; }
}
close(IN);
unless ($in_pass eq $pass) {
&Error("正しいID・パスワードを入力してください");
}
}
※現状ファイルロックの処理はしてません。
パスワードの暗号化もしてません。
で、IDに100、パスワードにp34z7と入力してログインしようとするのですが
「正しいID・パスワードを入力してください」とエラーが出てきます。
当然500のときも同じくエラーでした。
どこが問題なのでしょうか?昨日から考えてずっとわからないのでご回答よろしくお願いします。
お礼
どうもありがとうございました。 商材作成者と連絡が取れ、ID/PASS,教えて貰いました。 解決出来ましたので、報告いたします。
補足
アーティクルとは、訳すと記事のことで検索してもそのサイトは有りません。 別のサイトは有りますが、そのサイトは情報を購入した人しかログイン出来ません。 その情報商材を作った人が、月間使用料を支払って使用する、作者が自分で作った裏サイトです。 従って、ここに書いても誰も分からないはずです。 それで購入者が居ましたら。回答願います。