Кто в онлайне :: Ikonboard v.2 :: Компьютерный форум Ru.Board

MVY
ок, сделаю с настройкой из профиля под админов + то же в whosoline... попробую во всяком случае

Добавлено
Короче вот вам хак, не знаю будет ли работать, на стандартной иб не тестил :
profile.cgi
после :

Код:

} # end avatar if

добавляем :

Код:

&getmember($savedusername);
if ($membercode eq "ad") { $addwol = qq~<tr><td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1><b>Показывать ваш ник в "Кто в он-лайн"?</b></td><td bgcolor=$miscbackone><input name="newwolp" type="radio" value="yes" checked> Да &nbsp\;
<input name="newwolp" type="radio" value="no" checked> Нет &nbsp\;</td></tr>~;}

далее, после :

Код:

<td bgcolor=$miscbackone><textarea size=20 name="newsignature" cols="40" rows="5">$signature</textarea></td>
</tr>

добавить :

Код:

$addwol

после :

Код:

$inuseravatar = $query -> param('useravatar');

типа нада впихнуть ето

:

Код:

$newwolp = $query -> param('newwolp');

а после :

Код:

$newemailaddress = &cleanarea("$newemailaddress");

вот этот код :

Код:

$newwolp = &cleanarea("$newwolp");

короче, потом что то похожее на это :

Код:

меняем на это :

Код:

дальше редактируем ikon.lib

в sub getmember

этот код :

Код:

chomp($filedata);
($membername, $password, $membertitle, $membercode, $numberofposts, $emailaddress, $showemail, $ipaddress, $homepage, $aolname, $icqnumber ,$location ,$interests, $joineddate, $lastpostdate, $signature, $timedifference, $privateforums, $useravatar, $misc1, $misc2, $misc3) = split(/\|/,$filedata); chomp $privateforums;

меняем на этот :

Код:

chomp($filedata);
($membername, $password, $membertitle, $membercode, $numberofposts, $emailaddress, $showemail, $ipaddress, $homepage, $aolname, $icqnumber ,$location ,$interests, $joineddate, $lastpostdate, $signature, $timedifference, $privateforums, $useravatar, $wolp, $misc1, $misc2, $misc3) = split(/\|/,$filedata); chomp $privateforums;

в sub whosonline
вот эту тему :

Код:

$members++;
$cleanmember = $savedusername;
$cleanmember =~ s/ /\_/g;
$savedusername = substr($savedusername,0,20) if length $savedusername > 19;
$memberoutput .= qq~» <a href="$profileprog?action=show&member=$cleanmember">$savedusername </a>~;

нужно заменить на вот это :

Код:

&getmember($savedusername);
if ($membercode eq "ad") {
if ($wolp eq "no") {
$memberoutput .= qq~~;}
else { $members++;
$cleanmember = $savedusername;
$cleanmember =~ s/ /\_/g;
$savedusername = substr($savedusername,0,20) if length $savedusername > 19;
$memberoutput .= qq~» <a href="$profileprog?action=show&member=$cleanmember">$savedusername </a>~; }

}
else {

$members++;
$cleanmember = $savedusername;
$cleanmember =~ s/ /\_/g;
$savedusername = substr($savedusername,0,20) if length $savedusername > 19;
$memberoutput .= qq~» <a href="$profileprog?action=show&member=$cleanmember">$savedusername </a>~; }

далее редактируем файл whosonline.cgi

вот это :

Код:

$output .=qq~
<tr>
<td bgcolor=$miscbackone nowrap><font face="$font" color=$fontcolormisc size=$dfontsize2><b>$savedusername</b></font></td>
<td bgcolor=$miscbackone nowrap><font face="$font" color=$fontcolormisc size=$dfontsize2>$savedtime</font></td>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1>$savedwhere</font></td>
</tr> ~;
}

меняем на это :

Код:

&getmember($savedusername);
if ($membercode eq "ad") {
if ($wolp eq "no") { next; }
}
else {

$output .=qq~
<tr>
<td bgcolor=$miscbackone nowrap><font face="$font" color=$fontcolormisc size=$dfontsize2><b>$savedusername</b></font></td>
<td bgcolor=$miscbackone nowrap><font face="$font" color=$fontcolormisc size=$dfontsize2>$savedtime</font></td>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc size=$dfontsize1>$savedwhere</font></td>
</tr> ~;
}
}

ВСЁ!
короче типа внимание

некоторые куски кода могут не совпадать, поэтому ищите похожие, на чистой иб2 не тестил, ничего сказать не могу. Обо всех глюках сюда.

----------
Мой Блог

Модерирует : Antuan
Версия для печати • Подписаться • Добавить в закладки