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

1. Сложный вопрос... Но все же попробую. Вот код, который надо добавить в setmembers.cgi (кроме того, надо прилепить ссылку вида setmembers.cgi?action=countmsg&member=$membername)
<br>sub countmsg {<br>&getmember($membername);<br>$membername =~ s/ /_/g;<br> if ($userregistered ne "yes") { print "<tr><tr>Такого пользователя не существует</tr></td>"; }<br>else {<br>    $msgcount = 0;<br>    opendir (DIR, "$ikondir");<br>    @dirdata = readdir(DIR);<br>    closedir (DIR);<br>    @forumdata = grep(/^forum\d+/,@dirdata);<br>    foreach $forum (@forumdata)   {<br>      opendir (FORUMDIR, "$ikondir"."$forum/");<br>      @dirdata = readdir(FORUMDIR);<br>      @topicdata = grep(/.thd$/,@dirdata);<br>      closedir (FORUMDIR);<br>      foreach $topic (@topicdata) {<br>        open (FILE,"<$ikondir"."$forum/$topic");<br>        @messages=<FILE>;<br>        close (FILE);<br>        foreach $msg (@messages) {<br>          ($poster,$trash) = split (/\|/,$msg);<br>          if ($poster eq $member) {<br>            $msgcount++;<br>          }<br>        }<br>      }<br>     open(FILE,">$ikondir"."members/$member.cgi");<br>flock(FILE,2);<br>    print FILE ("$member|$password|$membertitle|$membercode|$msgcount|$emailaddress|$showemail|$ipaddress|$homepage|$aolname|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$privateforums|$useravatar|$misc1|$misc2|$misc3");<br>close(FILE);<br>print "<tr><td>Пользователь $member отправил $msgcount сообщений</tr></td>";<br>   }<br>}<br>
Но это - только приблизительный код, я его набросал, но не тестировал, кроме того, могут потребоваться какие-то мелкие доработки.
2. Хаки от Ib 3.x не подойдут к этому форуму в принципе: Ib 3 работает на базах данных. А сделать такое можно, но сложно (очень много изменений в коде). Если нужно переименовать одного-двух пользователей, то легче переименовать их файлы, а потом воспользоваться какой-нибудь утилитой для замены старого имени на новое во всех файлах форума (либо запустить ее на сервере через SSH, либо скачать форум в локаль, и сделать это там).

Вставлять можно либо между двумя процедурами (sub), либо в конец файла (так проще и надежнее).
Ссылку надо вставить в процедуру showmember, после вот  этого текста: <br>    <tr><br>    <td bgcolor=#FFFFFF valign=middle><font face=verdana color=#333333 size=1><b>Последний раз посетил форум:</b></font></td><br>    <td bgcolor=#FFFFFF valign=middle><font face=verdana color=#333333 size=1>$lastvisit</font></td></tr><br>
Сама ссялка имеет такой вид: <br>    <tr><br>    <td bgcolor=#FFFFFF valign=middle colspan=2 align=center><font face=verdana color=#333333 size=1><b><a href="$thisprog?action=countmsg&member=$member">Пересчитать сообщения пользователя.</a></b></font><br></td></tr><br>
И еще в начале надо <br>           my %Mode = ( <br>            'updatecount'        =>    \&docount,<br>            'viewletter'         =>    \&viewletter,<br>            'edit'               =>    \&edit,        <br>            'deletemember'       =>    \&deletemember,<br>            'unban'              =>    \&unban,<br>            'clean'              =>    \&clean,<br>            'doclean'            =>    \&doclean,<br>            'select'             =>    \&select,<br>            'doselect'           =>    \&doselect<br>            ); <br> заменить на <br>           my %Mode = ( <br>            'updatecount'        =>    \&docount,<br>            'viewletter'         =>    \&viewletter,<br>            'edit'               =>    \&edit,        <br>            'deletemember'       =>    \&deletemember,<br>            'unban'              =>    \&unban,<br>            'clean'              =>    \&clean,<br>            'doclean'            =>    \&doclean,<br>            'select'             =>    \&select,<br>            'doselect'           =>    \&doselect,<br>            'countmsg'        => \&countmsg<br>            ); <br>
P.S. Обрати внимание: я немного изменил код в первом сообщении.

В коде. Где-то есть примитивнейшая ошибка, из-за которой это происходит.
Загляни в логи (каталог с названием типа logs, , и посмотри, что там появляется, и выложи сюда, я скажу, что исправить.
Кстати, еще одна ошибка есть в строке с grep - форум не вывел косую черту (\) перед d+

Короче, вот конечная версия процедуры countmsg <br>sub countmsg { <br>&getmember($inmember); <br>$inmember =~ s/ /_/g; <br>if ($userregistered ne "yes") { print "<tr><tr>Такого пользователя не существует</tr></td>"; } <br>else { <br>   $msgcount = 0; <br>   opendir (DIR, "$ikondir"); <br>   @dirdata = readdir(DIR); <br>   closedir (DIR); <br>   @forumdata = grep(/^forum\d+/,@dirdata); <br>   foreach $forum (@forumdata)   { <br>     opendir (FORUMDIR, "$ikondir"."$forum/"); <br>     @dirdata = readdir(FORUMDIR); <br>     @topicdata = grep(/\.thd$/,@dirdata); <br>     closedir (FORUMDIR); <br>     foreach $topic (@topicdata) { <br>       open (FILE,"<$ikondir"."$forum/$topic"); <br>       @messages=<FILE>; <br>       close (FILE); <br>       foreach $msg (@messages) { <br>         ($poster,$trash) = split (/\|/,$msg); <br>         if ($poster eq $inmember) { <br>           $msgcount++; <br>         } <br>       } <br>     } <br>   }  <br>   open(FILE,">$ikondir"."members/$inmember.cgi"); <br>   flock(FILE,2); <br>   print FILE ("$inmember|$password|$membertitle|$membercode|$msgcount|$emailaddress|$showemail|$ipaddress|$homepage|$aolname|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$privateforums|$useravatar|$misc1|$misc2|$misc3"); <br>   close(FILE); <br>   $message = formatword($msgcount,"сообщение","сообщения","сообщений");<br>   print "<tr><td  bgcolor=#FFFFFF valign=middle align=left colspan=2>Пользователь $member отправил $msgcount $message</tr></td>"; <br>  } <br>} <br>
У меня на локали вроде бы все работало нормально.

XXXX Pro
мдя... все пашет, только есть один глюк - если у пользователя в имени пробел имеется, то сразу при пересчете его сообщений становится НОЛЬ... :-/
в чем проблема, не подскажешь?

XXXX Pro
спасибо, работает

Теоретически можно. Сразу после countmsg добавь вот этот кусок кода [code]
opendir(DIR,$ikondir."members");
@members=readdir(DIR);
closedir(DIR);
@members=grep(/cgi$/,@members);
foreach $inmember {
[code]
и в конец добавь еще одну фигурную скобку ({).

Теоретически - можно. Надо найти в profile.cgi соответствющий кусок кода и с минимальными изменениями перетащить в setmembers.cgi. Но нужно ли это? По-моему, работы много, а смысла мало: зачем админу менять аватары обычным пользователям?

Я такие вопросы решаю проще: аватары стираю и запрещаю пользователю их закачку, и предупреждаю, что следующий раз будет бан на неделю, а затем - и пожизненный.