Но две проблеммы.
1) Нет защиты от флуда
2) Не контролирует длину слова. Т.е. можно набить без пробелов 500 символов, и дизайн сайта ломается.
К сожалению я не знаком с перлом, буду очень благодаре за помощь.
Фрагмент кода:
CODE:
$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;
}
$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;
}
Если не правильно вывел фрагмент, могу привести полный листинг.