#!/usr/bin/perl -w

# Perl-Script zur Filterung des Formularfeldes $FORM{'comments'} nach Begriffen (aus Array)

# Problem: Die Zeile:
# 
# my $WZaehler = ($FORM{'comments'} =~ tr/$key_word//i); 
# 
# ... ergibt immer true, auch wenn keine Uebereinstimmungen im Feldwert vorhanden sind!

# Aufgabe:
# Suche nach Begriffen, welche 1x enthalten sind (Platzhalter: wort.*)
# 'au' soll gefunden werden in Haus, aus, miau, miAU, blauschwarz
# i = ignoring case

# filtering of not allowed words (1 = ON/ 0 = OFF)
$use_keyfilter = 0; 
@key_filterlist = ('.20six.co.uk','.netfirms.com');

# init
$keyword_found = 0;
#
# Key word filter
if($use_keyfilter) { 
    foreach $key_word (@key_filterlist) {
        #
        my $WZaehler = ($FORM{'comments'} =~ tr/$key_word//i);
        #
        if( $WZaehler > 0) {
            $keyword_found = 1; 
        }
    }
}

&no_permission unless !$keyword_found;

sub no_permission  { 
    print "No permission to write this content!\n";
}