&check_exclude($in{'Kategorie'});

&spam_exclude($in{'Email'});

sub spam_exclude {

# my ($badmail gets the value of $in{'Email'} /
# the email adress we want to block

my ($badmail) = shift;


# Not necessary - but nice:
# $antispam is the URL of an HTTP 404 Error Message Site
# Especially useful for Auto Soft Submit Software

my ($antispam) = "http://www.your-forum.de/404.html";
# Blanko Spam Eintrag : || $badmail eq ""

# In this part you must enter unwanted
# email adresses manually
# don`t forget to mask the at: \@
# example: abc\@spamdomain.com

# Some examples:
if ( $badmail eq "...\@very-funny-videos.com"
|| $badmail eq "...\@yahoo.com"
|| $badmail eq "...\@spamarrest.com"
|| $badmail eq "...\@jesterware.co.uk"
)

# All variables will be cleared:
{
$in{'Titel'} = "";
$in{'DownloadURL'} = "";
$in{'Kategorie'} = "";
$in{'KurzBeschreibung'} = "";
$in{'Beschreibung'} = "";
$in{'Image'} = "";
$in{'Dateigroesse'} = "";
$in{'Version'} = "";
$in{'Betriebssystem'} = "";
$in{'Lizenz'} = "";
$in{'Preis'} = "";
$in{'Sprache'} = "";
$in{'Name'} = "";
$in{'Email'} = "";
$in{'Website'} = "";

# $status is cleared
$status = "";

# Error message:
# (In this case I did not use $antispam)
print "Location: http://www.your-forum.de/404.html\n\n";
}

else {$status = "ok";}
}