Hello all,

I have just installed a neat little soutbox clone on the main page of my website. Problem is, right now I am using javascript to filter out bad words and would rather have it programmed with perl for CGI control. Anyone out there with a code snipplet for such an Idea? Any help would be greatly appreciated.

Thanks in advance,

Dale.

http://www.bestdjsite.com

This is not tested!

@badwords=('bad','word','list','here');
foreach $badword (@badwords) {
    if ($string_to_test =~ /$badword/gi) { 
	$highlight_the_bad_word =~ s/($badword)/<B>$1<\/B>/gi;
        #return an error here
    }
}

Originally Posted by eBlush_Hector

This is not tested!

@badwords=('bad','word','list','here');
foreach $badword (@badwords) {
    if ($string_to_test =~ /$badword/gi) { 
	$highlight_the_bad_word =~ s/($badword)/<B>$1<\/B>/gi;
        #return an error here
    }
}

It worked better than I thought! Thanks for taking the time to help me out.

Dale.
http://www.bestdjsite.com

Sweet!
You're welcome