DOCUMENT_ROOT = /srv/www/web1/html
GATEWAY_INTERFACE = CGI/1.1
HTTP_ACCEPT = image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*
HTTP_ACCEPT_ENCODING = gzip, deflate
HTTP_ACCEPT_LANGUAGE = de
HTTP_CONNECTION = Keep-Alive
HTTP_HOST = www.resultado6.de
HTTP_USER_AGENT = Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
MOD_PERL = mod_perl/1.999.21
PATH = /sbin:/usr/sbin:/bin:/usr/bin:/lib/klibc/bin
QUERY_STRING = User=em_mz&Galerie=2200hundertteilig&Image=3
REMOTE_ADDR = 201.229.149.228
REMOTE_PORT = 62421

MOD_PERL = mod_perl/1.999.21

sub blacklist {
use CGI::Carp qw(fatalsToBrowser);
use Fcntl qw(:DEFAULT :flock);
use CGI qw(:standard);
use CGI;
use Apache::DBI();
use DBI;
my $datenbank = "blacklist";
my $datenbankhost = "localhost";
my $datenbankuser = "XXX";
my $datenbankpw = "YYY";

##########################################################
$fehlermeldung = "<li>Fehler bei der Datenbankverbindung aufgetreten. Bitte ueberpruefen Sie die Angaben";
my $dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$datenbankpw") || fehlerausgabe($fehlermeldung);
##########################################################
my $sth = $dbh->prepare("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

}# Ende sub

my %FORMDATA; # sollte doch alle $FORMDATA{a,b,c,usw.} abdecken, oder?
my $ergebnis;
my $fehlermeldung;

$FORMDATA{Galerie}; # auch mit ="";
$FORMDATA{User};

#!/usr/bin/perl -w

use warnings;
use strict;


my @arrnameval;
my %FORMDATA;
my $querystring;
my $nam;
my $val;
my $namval;
my $ergebnis="";
my $fehlermeldung;
$FORMDATA{item}=0;
$FORMDATA{Galerie}="";
$FORMDATA{User};
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
    $querystring = $ENV{'QUERY_STRING'};
}
if ($querystring !~ "QQitemZ") {
     @arrnameval = split(/&/, $querystring); 
} else {
@arrnameval = split(/QQ/, $querystring); 
}

foreach $namval (@arrnameval) 
{

   if ($querystring !~ "QQitemZ") {
    ($nam, $val) = split(/=/, $namval);} else {
($nam, $val) = split(/Z/, $namval);}
    $val =~ tr/+/ /;
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORMDATA{$nam} = $val;
}
...
...