Pleas help,

different people are hacking my guestbook by posting a comment like:
hahahahahahahahahahahahahahhahahahhahahahahahahahahahahahahahhahahhahahahahahahahahahahahahahhahahhahahahahahahahahahahahahahhahah

And I dont like that!
Im trying to get a code that checks $in{'comment'} for this jokes.

Who can help me out?

sub remove_haha {

my ($input) = shift;
my (@words);
$input =~ s/ /|/g;
@words = split (/\|/, $input);

code in words:
if a @word containd more that 20 characters, remove the word or even better cut the word into 2 words with a-.

return $input;
}

Hi,

have a look at http://www.drizzle.com/~hall/dbmod/censor.html
Maybe not exactly what you where looking for but it might give you an idea

Cheers

Broder

[This message has been edited by Broder (edited March 01, 1999).]