Ganz simples User management? - #78691 (Allgemeines zu Perl)

RPerl

2007-07-20 13:11

User since
2006-11-26
384 Artikel
BenutzerIn

user image

Quote
du hast mich überzeugt, ich werd Simple::Login weglassen

Wollte dir das Modul nicht schlecht machen, sorry wenn ich das habe... oO

Zum Script ansich:

Code (perl): (dl )

my $sth = $dbh->prepare( q{ SELECT username from users });

..sollte:

Code (perl): (dl )

my $sth = $dbh->prepare( q{ SELECT username,pass from users });

sein, damit Du spaeter mit auth() pruefen kannst, ob beides passt.
Du muesstest, wenn ich richtig liege, noch die Daten die du aus der DB hast an die auth() schicken, damit die diese dann verarbeiten kann.

Die Daten hast du bis jetzt noch nicht aus der DB raus. Versuch mal sowas hier:

Code (perl): (dl )

1
2
3

while ( @row = $sth->fetchrow_array ) {
    print "@row\n";
  }

Um die Daten rauszuholen.

system("clear");

geht auch mit printf , afaik perlischer :)

Danke!

rPerl