#!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); # Dateiflock use Fcntl qw(:DEFAULT :flock); use CGI qw(:standard); use CGI; use DBI; my $datenbank = "blacklist"; my $datenbankhost = "localhost"; my $datenbankuser = "xxxebe"; my $datenbankpw = "xxxxte"; ###### Übergebene Werte efassen if ($ENV{'REQUEST_METHOD'} eq 'GET') { $querystring = $ENV{'QUERY_STRING'};} @arrnameval = split(/&/, $querystring); foreach $namval (@arrnameval) { ($nam, $val) = split(/=/, $namval); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORMDATA{$nam} = $val; } ##### Auktionsnummer über referer if ($FORMDATA{Bild}){ ermitteln $querystring = $ENV{HTTP_REFERER}; if ($querystring =~ "&") {$querystring =~ s/amp;//;} 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; if ($nam eq "item"){ $FORMDATA{item} = $val; } } } $item=$FORMDATA{item}; $fehlermeldung = "