/*
Fügen sie die Funktionen "spamlevel_ermitteln" und "spamlevel_verarbeitung" 
irgendwo in den Quellcode ihres PHP-Formmailers ein.

Passen sie die Variable $meine_domain an ihren Domainnamen an.
*/

function spamlevel_ermitteln($text, $linebreak, $remove_linebreaks, &$remove_linebreaks_from_text) {
   $spam_level=0;
   $meine_domain="antikoerperchen.de"; //BITTE ANPASSEN
	if (strpos(strtolower($text), "@".$meine_domain)) $spam_level+=3;
	if (strpos(strtolower($text), "\ncc:")) $spam_level+=1;
	if (strpos(strtolower($text), "\nbcc:")) $spam_level+=1;
	if (strpos(strtolower($text), "\nsubject:")) $spam_level+=1;
	if (strpos(strtolower($text), "\ncontent-type:")) $spam_level+=1;
	if (strpos(strtolower($text), "\nmime-version:")) $spam_level+=1;
	if (strpos(strtolower($text), "\ncontent-transfer-encoding:")) $spam_level+=1;
	if (strpos(strtolower($text), "\ncontent-disposition:")) $spam_level+=1;

	if (strpos(strtolower($text), "\rcc:")) $spam_level+=1;
	if (strpos(strtolower($text), "\rbcc:")) $spam_level+=1;
	if (strpos(strtolower($text), "\rsubject:")) $spam_level+=1;
	if (strpos(strtolower($text), "\rcontent-type:")) $spam_level+=1;
	if (strpos(strtolower($text), "\rmime-version:")) $spam_level+=1;
	if (strpos(strtolower($text), "\rcontent-transfer-encoding:")) $spam_level+=1;
	if (strpos(strtolower($text), "\rcontent-disposition:")) $spam_level+=1;

	if (strpos(strtolower($text), "\lcc:")) $spam_level+=1;
	if (strpos(strtolower($text), "\lbcc:")) $spam_level+=1;
	if (strpos(strtolower($text), "\lsubject:")) $spam_level+=1;
	if (strpos(strtolower($text), "\lcontent-type:")) $spam_level+=1;
	if (strpos(strtolower($text), "\lmime-version:")) $spam_level+=1;
	if (strpos(strtolower($text), "\lcontent-transfer-encoding:")) $spam_level+=1;
	if (strpos(strtolower($text), "\lcontent-disposition:")) $spam_level+=1;

	if ($linebreak!="no_linebreak_check") {
		if (($count=substr_count($text, "\n"))>0) $spam_level+=$count*1;
		if (($count=substr_count($text, "\r"))>0) $spam_level+=$count*1;
		if (($count=substr_count($text, "\l"))>0) $spam_level+=$count*1;
		}
	if ($remove_linebreaks!="no_linebreak_remove") {
		$remove_linebreaks_from_text=str_replace("\n", "", $remove_linebreaks_from_text);
		$remove_linebreaks_from_text=str_replace("\r", "", $remove_linebreaks_from_text);
		$remove_linebreaks_from_text=str_replace("\l", "", $remove_linebreaks_from_text);
		}
	return $spam_level;
	}
	
function spamlevel_verarbeitung($spam, &$betreff, &$text) {
	$spamlevel=5; //Ab diesem Spamlevel wird eine SPAM-Warnung an die E-Mail angehängt.
	$spamerkanntlevel=10; //Ab diesem Level wird angenommen, dass es sich um Spam handelt.
	$spamstoplevel=15; //Ab diesem Spamlevel wird der E-Mail-Versand verweigert.
	$spamwarnungverdacht="ACHTUNG: DIESE MAIL WURDE ALS POTENTIELLER SPAM ERKANNT."; //Diese Meldung wird in der E-Mail als Warnung ausgegeben, wenn Spamverdacht besteht.
	$spamwarnungerkannt="ACHTUNG: DIESE MAIL WURDE ALS SPAM ERKANNT."; //Diese Meldung wird in der E-Mail als Warnung ausgegeben, wenn Spamverdacht besteht.
	$spamverdacht="SPAM-VERDACHT"; //Diese Meldung wird vor den Betreff gestellt, wenn eine E-Mail möglicherweise als Spam in Betracht kommt.
	$spamerkannt="SPAM"; //Diese Meldung wird vor den Betreff gestellt, wenn eine E-Mail als Spam erkannt wurde.
	$nospam_meldung="NO SPAM, THX."; //Abbruchmeldung, wenn E-Mail-Versand aufgrund eines zu hohen Spamlevels verweigert wird.

	if ($spam>=$spamstoplevel) die($nospam_meldung); //Breche E-Mail-Versand ab.
	
	elseif ($spam>=$spamlevel && $spam<$spamstoplevel) {
		if ($spam<$spamerkanntlevel) {
			$betreff=$spamverdacht.": ".$betreff;
			$text=$spamwarnungverdacht."\nSPAM-LEVEL: ".$spam."\n\n".$text;
			} else {
				$betreff=$spamerkannt.": ".$betreff;
				$text=$spamwarnungerkannt."\nSPAM-LEVEL: ".$spam."\n\n".$text;
				}
		}
	}


/*
Fügen sie die nachfolgenden Quellcode-Block VOR der Quellcodezeile ein, in der die
Mail verschickt wird. Passen sie die Variablennamen 
$betreff, $name, $absender_mail und $text an die Variablennamen ihres 
Formmailers an.
*/

$spamlevel+=spamlevel_ermitteln(
                                $name, 
                                "check_linebreaks", 
                                "remove_linebreaks", 
                                $name
                                );
$spamlevel+=spamlevel_ermitteln(
                                $absender_mail, 
                                "check_linebreaks", 
                                "remove_linebreaks", 
                                $absender_mail
                               );
$spamlevel+=spamlevel_ermitteln(
                                $betreff,
                                "check_linebreaks",
                                "remove_linebreaks",
                                $betreff
                               );
$spamlevel+=spamlevel_ermitteln(
                                $text, 
                                "no_linebreak_check", 
                                "no_linebreak_remove", 
                                $text
                               );
spamlevel_verarbeitung($spamlevel, $betreff, $text);