#!/usr/bin/perl -wT use CGI qw(:standard escapeHTML); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use DBI; my $query = new CGI; use strict; print "Content-type: text/html\n\n"; print < LoTy Login Check BodyHTML my $dbh = DBI->connect('DBI:mysql:db123:mysql3.123.de','123','345', { RaiseError => 1}); my $Benutzername=param('Benutzername'); my $Passwort=param('Passwort'); my $sth = $dbh->prepare(qq{SELECT ID FROM Spieler WHERE Benutzername='?' AND Passwort='?'}); $sth->execute($Benutzername,$Passwort); my @Ergebnis= $sth->fetchrow_array(); if (@Ergebnis) { print "Das Ergebnis lautet $Ergebnis[0]
"; } else { print"Falsches Passwort $Ergebnis[0]"; } $sth->finsih(); $dbh->disconnect(); print end_html();