lynx
Advanced lynx | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nazarius
Вообще не самом деле - очень плохая идея. Будут ли пользователи посещать форум и стараться писать в нем, если они не будут уверены в сохранности собственных постов? Если автор темы будет редактировать их посты?
Но реализовать это можно, например так.
postings.cgi
sub processedit
После:
Код:
&getmember("$inmembername");
&moderator;
&getforum("$inforum");
if ($allowedentry{$inforum} eq "yes") { $allowed = "yes"; }
if (($privateforum eq "yes") && ($allowed ne "yes")) {
&error("$ibtxt{'1406'}&$ibtxt{'1407'}");
}
|
Добавляешь:
Код:
##Разрешаем авторам редактить мессаги юзеров
my $ftoopen = "$ikondir" . "forum$inforum/$intopic.pl";
open(FIL, "$ftoopen");
flock (FIL,2);
$in = <FIL>;
close(FIL);
($trash,$trash,$trash,$trash,$trash,$trash,$author) = split(/\|/,$in);
##end
|
Затем чуть ниже после:
Код:
$cleartoedit = "no";
if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($inmembername eq $postermembername) && ($inpassword eq $password)) { $cleartoedit = "yes"; }
|
Пишешь:
Код:
$cleartoedit = "yes" if (($author eq "$inmembername")&& ($inpassword eq $password));
|
Это все. Тести. |
lynx.