Объединенный Открытый Проект

Gram У тебя что, хостинг под Windows? Потому что на Unix-хостах форум должен просто ругнуться, что нет такого пользователя, и все.
Для запрета удаления сообщений админа модераторами в postings.cgi сделай следующее:
перед <br>    &getmember("$inmembername");<br>    &moderator;<br>    $cleartoedit = "no";<br> в процедуре deletepost (строка 955) вставь <br>    ($postername,$trash)=split(/\|/,@allthreads[$posttodelete]);<br>    &getmember("$postername");<br>    $postercode = $membercode;<br>
а затем строку <br>    if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }<br>
замени на <br>    if (($inmembmod eq "yes") && ($inpassword eq $password) && $postercode ne "ad") { $cleartoedit = "yes"; }
Для запрета редактирования сообщений админа:
в posting.cgi (процедура processedit, строка 1283) после <br>($postermembername, $topictitle, $postipaddress, $showemoticons, $showsignature ,$postdate, $post) = split(/\|/, @allthreads[$posttoget]);<br> добавь <br>&getmember("$postermembername");<br>$postercode = $membercode;<br>
А вот этот кусок: <br>if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
замени на <br>if (($inmembmod eq "yes") && ($inpassword eq $password) && $postercode ne "ad") { $cleartoedit = "yes"; }
Чтобы ссылка стала видна только Администратору, в topic.cgi (757) сделай следующее:<br><br><br><p><br><p align=center><br><font face="$font" color=$fontcolormisc size=$dfontsize1><br><a href="$boardurl/admincenter.cgi">??????? ? ????? ?????????????????</A></font><br></td></tr><br>~;<br> замени на <br><br><br><p>~;<br>}<br>if ($membercode eq "ad") {<br>$output.= qq~<br><p align=center><br><font face="$font" color=$fontcolormisc size=$dfontsize1><br><a href="$boardurl/admincenter.cgi">??????? ? ????? ?????????????????</A></font><br></td></tr><br>~;<br>}<br>

И еще: чтобы запретить удаление сообщений админа при массовом удалении, надо в процедуре massdelete (строка 1846) найти вот этот кусок кода: <br>    $processed_data = "";<br>    foreach $message (@allthreads) {<br>      $msgvalue = $query->param("msg".$counter);<br>      if ($msgvalue ne "yes") { <br>         $processed_data .= $message; <br>         $lastpost = $message;<br>      }<br>      else { $deleted++; }<br>      $counter++;<br>    }<p> и заменить на: <br>   foreach $message (@allthreads) {<br>      $msgvalue = $query->param("msg".$counter);<br>      if ($msgvalue ne "yes") {<br>          $processed_data .= $message; <br>          $lastpost = $message;<br>        }<br>      else { <br>        ($postername,$trash)=split(/\|/,$message);<br>        $postername =~ s/ /_/g;<br>        &getmember("$postername");<br>        if ($membercode eq "ad" && $inmembercode eq "mo" && $userregistered eq "yes") { <br>          $processed_data .= $message; <br>          $lastpost = $message;<br>        } <br>        else { $deleted++; }<br>      }  <br>      $counter++;<br>   }<br>    $filetoopen = "$ikondir" . "forum$inforum/$intopic.thd";<br>    $filetoopen = &stripMETA($filetoopen);<br>
И в начале процедуры process_split (сразу после &getmember) следует добавить строку $inmembercode =$membercode;