if-Zweig wird nicht erreicht? - #166577 (Perl/CGI)

anamollo4music

2013-03-25 11:55

User since
2013-03-19
42 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

habe nun ein ganz anderes Problem:

Warum komme ich bei folgender Abfrage immer in den if-Zweig nach der while-Schleife?

eine SQL-Query liefert Benutzer und Passwort.
Diese werden in die Variablen $user und $passwort gespeichert und mit den Eingaben im HTML-Formular (Textfelder) verglichen.

Code (perl): (dl )

if($cgi->param('login'))
{
        $select = $dbh->prepare("select benutzer,passwort from benutzer WHERE benutzer=? AND passwort=?;");
        $select->execute($cgi->param('user'), $cgi->param('pwd'));
        
        
        
        while(($user, $passwort) = $select->fetchrow_array)
        {
                print $user;
                print $passwort;
                if(($user eq $cgi->param('user')) && ($passwort eq $cgi->param('pwd')))
                {
                        print "Anmeldung erfolgreich";
                }
        }
        if(($user eq '') or ($passwort eq ''))                                  # wenn nichts zutreffendes gefunden wurde in der mySQL-DB und somit nix in den Variablen "passwort" und "user" steht
        {
                print "Anmeldung fehlgeschlagen!";
        }
}

Danke!