use CGI::Carp qw(fatalsToBrowser);
#Dateiflock
use Fcntl qw(:DEFAULT :flock);
use CGI qw(:standard);
use CGI;
#use Apache::DBI();
use DBI;
my $datenbank = "blacklist";
my $datenbankhost = "localhost";
my $datenbankuser = "XXXXX";
my $datenbankpw = "YYYYY";
##########################################################
$fehlermeldung = "
Fehler bei der Datenbankverbindung aufgetreten. Bitte ueberpruefen Sie die Angaben";
$dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$datenbankpw") || fehlerausgabe($fehlermeldung);
##########################################################
$sth = $dbh->prepare("SELECT art FROM `blacklist` WHERE item = $FORMDATA{item} and Galerie = '$FORMDATA{Galerie}'");
print "SELECT art FROM `blacklist` WHERE item = $FORMDATA{item} and Galerie = '$FORMDATA{Galerie}'";
$sth->execute or die DBI->errstr;
$ergebnis = $sth->fetchrow_array();
$dbh->disconnect; # DB Connect beenden