#Das Script ANMELDUNG.PL
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

$port = "3306";

read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});

@Query_keys_values = split(/&/, $query_string);

foreach $key(@Query_keys_values){
    chomp ($key);
   ($Query_key, $Query_value) = split(/=/, $key);
    $DB{$Query_key} = $Query_value;
}

$dbh = DBI->connect("DBI:mysql:database=$DB{'DB_name'};host=$DB{'DB_host'}:$port", "$DB{'DB_user'}", "$DB{'DB_password'}");

if (defined ($DBI::err)){
    print "Location: Fehlermeldung_Passwort.html","\n\n";
} else {
    print "Location: Query.html","\n\n";
}