<perl>
   if (%_put and &spamfilter($_put{Titel}.$_put{Text}.$_put{WWW}>=3)){#3=Härte des Filters
      undef %_put;
      $_get{cmd}="";
      error "Eintrag konnte nicht aufgenommen werden da er zuviele Links enthält.";
      #oder hier jetzt ein captcha anbieten
   }

 sub spamfilter{
 my $text = shift; 
 my $points = 0;
 #Badwords
 foreach (qw|http:// \[/url\] </a> und noch andere böse wörter|){
 $points += $text =~ #$_#i;
 }

 #raum für eigene Ideen
 return $points;
 }
 </perl>
 <do action=all>