if文がうまく書けない(T.T)

質問

某CGIを改造してます。
CGIにIDとPassを組み込もうとしているのですが、うまくできません。
いろいろな認証CGIを真似してやっているのですが…

sub pass2{
open (FILE,"$passdata");
@file = <FILE>;
close FILE;
foreach (@file) {
local($nm,$ps)= split(/,/,$_);

if ($nm eq $in{'name'} && crypt($in{'password'},$ps) eq "$ps") {
&admin;
exit;
}
}
&error("認証に失敗しました?");
}

この状態だと動くことは動くのですが、ちょっと面倒なので逆転させたいんです。

そこで以下のように作り変えてみました。

if ($nm ne $in{'name'}) {
&error("名前が違います");
exit;
}
if ($nm eq $in{'name'} && crypt($in{'password'},$ps) ne "$ps") {
&error("パスワードが違います。");
exit;
}
}
&admin
}
こうすると、なぜか正しい名前を入れても「名前が違います」のメッセージが出ます。
いったいどこが間違っているのですか?
言語はperlです。
お願いします。

回答No.4

neue_reich · ベストアンサー

＃３です。
改造案を書いてみますので参考にしてみて下さい

sub pass2{
open (FILE,"$passdata");
@file = <FILE>;
close FILE;

#名前が正しい場合１を代入する
$nameFlg=0;

foreach (@file) {
local($nm,$ps)= split(/,/,$_);

#名前が正しいかどうかを確認する
if($nm eq $in{'name'}){
$nameFlg=1;
}

if ($nm eq $in{'name'} && crypt($in{'password'},$ps) eq "$ps") {
&admin;
exit;
}
}

#名前だけあっている場合はパスワードが違うと表示する
if($nameFlg=1){
&error("パスワードが違います");
}else{
&error("認証に失敗しました?");
}
}

申し訳ないのですが、実際に動かしていないので
すぐ動く保証はありません。
あしからず。

お礼

すばやい返答ありがとうございます。
早速試してみたいと思います。

余談ですが、
#1さんとの受け答えで返答した案についてはどのように思われますか?
あの感じで間違ってはいないでしょうか?それとも、ほかに何か良い方法がありますか?
時間があるようだったら確認してください。
よろしくお願いします。

回答No.3

neue_reich

まず、ユーザ情報（名前とパスワード）が記録されている
ファイル$passdataの構成を考えます。

名前　パスワード
Ａ氏　１１１
Ｂ君　２２２
Ｃ　　３３３

上記のような形だと思うのですが、ここで、
改造後のソースに　Ｂ君―２２２　というのを入れます。
すると以下のようになります。

まず入力された名前がファイルの一番目の名前と同じか
判定する（最初のif文　if ($nm ne $in{'name'})　の動き）
すると、入力値はＢ君なので、エラーメッセージを出し、
終了してしまう。

となります。

バグの原因はここです。
入力された名前が何番目にあるのかはわかりませんから、
登録されている全員の名前と比べても一致しない場合に
エラーを出さないといけないのに、違ったら
即座にエラーを出してしまっていることです。

改造前のソースはわかりやすいですし、かなり簡素に
書いていると思いますので、変更しないほうが
良いと思いますよ。

お礼

返答ありがとうございます。
なぜ動かないのかは理解できました。次をチェックするという機能がないということであっているでしょうか?

また、確かに参考にした認証CGIはとてもわかりやすく、素人が見てもどういう風に処理がされているのかがよくわかるものでした。変更しないことがベストだとは思います。

ただ、1つほしい機能があるんです。
名前が間違っているのか、パスワードが間違っているか?を確認するというものです。
現状では、どちらかが間違っていても「認証失敗」と出すだけでどっちが間違っているか?というのは出ないですよね。
入力する人も一度入れてしまえばオートコンプリートを使うと思うのでそんなには間違えないとは思うのですが…
今の状態からCGIを大きく変化させることなく上記のことが可能ですか?
絶対必要な機能ではないので無理なら無理で問題はないのですが、簡素にできる方法があるようでしたら教えてください。
お願いします。

回答No.2

the845t

一応

たぶんだけど、sub error{}の方でexit;してるはずだから、
要らないと思う。
逆に、
&admin;の方では必要なのでは？
※あと&adminの後の「;」が抜けてますよ。

回答No.1

the845t

だって、
foreachで@fileの1行目から順番にやってるでしょ。
1行目に登録されている名前と、ログインしようとする名前が違うだけでそのエラーが出るよ。
そういう書き方してますよ。

何が面倒で書き直したのかわかりませんが、
名前が違う＝認証に失敗しましたってことで前のヤツで良かったのでは？

お礼

返答ありがとうございます。

もともとのスクリプトにはPassだけの認証が付いていたのですが、それはすべてのサブルーチンの頭で認証しているんです。
多分、直接モードを選択されたときにはじくためだと思うのですが…
質問の修正前の書き方だとすべて新規入力画面に行ってしまい、修正・削除画面に行き着かなくなります。(sub delやsub editなど)これをそのまま生かそうとしたら各サブルーチンにこれを貼り付ける必要がありますよね。
その場合、「&admin」の部分にサブルーチンすべてが入ってしまう訳で…

方法として、メインを
if ($mode eq "admin") { &admin; }
if ($mode eq "edit1") { &admin; }
if ($mode eq "del") { &admin; }
等にしておき、
if ($nm eq $in{'name'} && crypt($in{'password'},$ps) eq "$ps") {
&admin;
exit;
}
を
if ($nm eq $in{'name'} && crypt($in{'password'},$ps) eq "$ps") {
if ($mode eq "admin") { &admin; }
if ($mode eq "edit1") { &edit1; }
if ($mode eq "del") { &del; }
exit;
}
とするほうがスマートなのでしょうか?

ほかにもいい方法がありましたら教えてください。