Xnom
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Links
Вот, сделал набросок...
Открываем post.cgi и
это
Код: #часть первая, проверка на кол-во символов и кол-во строк
@proverka = split(/\<br\>/,$inpost);
$linek = @proverka;
if (($linek > "N")||(length($inpost) > M)) { &autoban(); }
#end часть первая |
(где N - max кол-во строк в сообщении, M - max кол-во символов в сообщении)
пишем перед этим (там несколько таких строк)
Код:| # Open the bad word filter |
Старую проверку на кол-во символов в сообщении убери 
Теперь в самом конце файла вставляем этот код
Код:
sub autoban { #жалкая пародия на автобан
$memberfiletitle = $inmembername;
$filetoopen = "$ikondir" . "data/banlist.cgi";
open(FILE,">>$filetoopen");
print FILE "$inmembername||$postipaddress";
close(FILE);
$filetomake = "$ikondir" . "members/$memberfiletitle.cgi";
$filetomake = &stripMETA($filetomake);
open(FILE, ">$filetomake");
#flock(FILE, 2);
print FILE "$inmembername|$password|banned|banned|$numberofposts|$emailaddress|$showemail|$ipaddress|$homepage|$aolname|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$privateforums|$useravatar|$misc1|$misc2|$misc3";
close(FILE);
#стучим на ПМ админу (ниже, admin- заменить на свой ник)
$filetoopen = "$ikondir". "messages/admin" . "_msg.cgi";
$filetoopen = &stripMETA($filetoopen);
open (FILE, "$filetoopen");
@inboxmessages = <FILE>;
close (FILE);
open (FILE, ">$filetoopen");
#flock (FILE, 2);
print FILE "робот|no|$currenttime|чистка рядов была...|я тут <b>$inmembername</b> убил... готов понести наказание... \n";
foreach $line (@inboxmessages) {
chomp $line;
print FILE "$line\n";
}
close (FILE);
&error("Персональный статус хочешь?&Banned подойдёт?");
} #end |
В красной строке не должно быть пробелов.
Всё, теперь юзер, попробывавший отправить длинное сообщение будет автоматом забанен, о чем к вам в ПМ придёт уведомление |
Всего записей: 778 | Зарегистр. 09-10-2002 | Отправлено: 23:51 10-01-2003 | Исправлено: Xnom, 23:53 10-01-2003 |
|
