Perl. Скрипт комментариев.

[mok 0]

Протестил скрипт CommentsFSS. Работает хорошо и подходит для моих целей.

Но две проблеммы.

1) Нет защиты от флуда

2) Не контролирует длину слова. Т.е. можно набить без пробелов 500 символов, и дизайн сайта ломается.

К сожалению я не знаком с перлом, буду очень благодаре за помощь.

Фрагмент кода:

[pre]

$text2=$text;

$text2 =~ s/\s//g;

if (length($text2) == 0)

{

$errm="Вы не заполнили поле Комментарий";

&msg;

exit;

}

if (length($name) > 10){

$errm="В поле Имя не должно быть больше 10 символов.";

&msg;

exit;

}

elsif (length($text) >= 500){

$errm="В поле Комментарий не должно быть больше 500 символов.";

&msg;

exit;

}

[/pre]

Если не правильно вывел фрагмент, могу привести полный листинг.

[svfolder 0]

Скинь на мыло скрипт, посмотрю что можно зделать, если актуально конечно!