» Глюк с гостями: больше одного не показывает

Grey2002
Нет... не помогает....
Вся бага тут сидит....

Код: sub whosonline {
local($instruct) = @_;
($tempusername, $where, $method) = split(/\|/, $instruct);

$guests = 0;
$members = 0;
$currenttime = time;
$membergone = 30;
$userexpire = $currenttime - ($membergone * 60);

$ipaddress = $ENV{'REMOTE_ADDR'};
$logname = $tempusername;
&getmember("$inmembername");
$tempusername = "$ibtxt{'0043'} $ipaddress" if ($tempusername eq "$ibtxt{'0043'}");

$filetoopen = "$ikondir" . "data/onlinedata.dat";
$filetoopen = &stripMETA($filetoopen);
open(FILE,"$filetoopen");
@onlinedata = <FILE>;
close(FILE);

open(FILE,">$filetoopen");
flock(FILE, 2);
$memberprinted = "no";
foreach $line (@onlinedata) {
chomp $line;
($savedusername, $savedtime, $savedwhere) = split(/\|/, $line);
$savedusername =~ s/\_/ /g;
$tempusername =~ s/\_/ /g;
$savedusername = &unHTML($savedusername);
$tempusername = &unHTML($tempusername);
unless ("$userexpire" > "$savedtime") {
if ("$savedusername" ne "$tempusername") { print FILE "$line\n"; }
elsif ("$savedusername" eq "$tempusername") { print FILE $savedusername."|$currenttime|$where\n"; $memberprinted = "yes";}
}
} # end foreach
if ($memberprinted eq "no") { print FILE "$tempusername|$currenttime|$where\n";}
close(FILE);

Цитата:

$referer = $ENV{'HTTP_REFERER'};
$browser = $ENV{'HTTP_USER_AGENT'};
$media = $ENV{'HTTP_ACCEPT'};

а это по-моему от хака, который показывает, кто по каким топикам ходил, с каким броузером и т.д.
имхо можете потереть.

BigMac

Цитата:

Нет... не помогает....
Вся бага тут сидит....

не знаю, какая там бага сидит, однако если хотите - может на форум пройти да посмотреть, как гости выводятся... (тока вдвоем втроем идите). у меня-то все нифтяк.

Цитата:

Код: $membergone = 30;

Grey2002
Это к хаку статистики относится...

Fuchsia

Цитата:

Вот ента шутковина уж точно не при чем

естесно!

Цитата:

А больше ничего не поменялось - как был по описи "Гость - одна штука", так и остался...

значит в другом косяк, а не в этом коде. ищите.

Ладно, начинаю делать.

кстати, может у вас в whosonline.cgi косяк?

Shurik
Хусонлайн там вообще непричем......просто не пишется в онлайндату........все дело именно в том куске, который я дал...

2all
У кого whosonline неправильно пашет киньте кусок из икон.либ и whosonline.cgi, а то даже мне стало интересно что там у вас не работает. А вообще-то надо еще одно поле хранить с айпишником и не надо будет никаких проверок. Но на хак у меня нет времени

alexei
Че-то я не догоняю причем тут хусонлайн.....там идет генерация хтмлки...данные берутся из файла онлайндата... а мы говорим про багу такую....что данные в онлайндату не пишутся.....то есть это именно процедура!!!,а не хусонлай.цги...... Кусок этой процедуры из икон.либа уже кинули....см выше....там лага и спряталась...тока вот пока не догоняю где....

BigMac
не, ну у меня-то все ок!
может просто проверка не срабатывает, типо эта:

Код: if ("$savedusername" ne "$tempusername") { print FILE "$line\n"; }
elsif ("$savedusername" eq "$tempusername") { print FILE $savedusername."|$currenttime|$where\n"; $memberprinted = "yes";}
}

Shurik
Не знаю...надо думать.....больше всего меня веселит эта строчка
Код: $tempusername = "$ibtxt{'0043'} $ipaddress" if ($tempusername eq "$ibtxt{'0043'}");

BigMac
да, действительно...
$tempusername принимает значения "Guest IP", если эта перемен. равна "Guest". хехе.

вот вам как на 2.1.8, там пашет :

Код: ###########################
# Who's online feature.

sub whosonline {
local($instruct) = @_;
($tempusername, $where, $method) = split(/\|/, $instruct);

$guests = 0;
$members = 0;
$currenttime = time;
$membergone = 15;
$userexpire = $currenttime - ($membergone * 60);

$ipaddress = $ENV{'REMOTE_ADDR'};
if ($tempusername eq "Guest") { $tempusername = "Guest $ipaddress"; }

$filetoopen = "$ikondir" . "data/onlinedata.dat";
$filetoopen = &stripMETA($filetoopen);
open(FILE,"$filetoopen");
@onlinedata = <FILE>;
close(FILE);

open(FILE,">$filetoopen");
flock(FILE, 2);
$memberprinted = "no";
foreach $line (@onlinedata) {
chomp $line;
($savedusername, $savedtime, $savedwhere) = split(/\|/, $line);
$savedusername =~ s/\_/ /g;
$tempusername =~ s/\_/ /g;
unless ("$userexpire" > "$savedtime") {
if ("$savedusername" ne "$tempusername") { print FILE "$line\n"; }
elsif ("$savedusername" eq "$tempusername") { print FILE "$savedusername|$currenttime|$where\n"; $memberprinted = "yes";}
}
} # end foreach
if ($memberprinted eq "no") { print FILE "$tempusername|$currenttime|$where\n";}
close(FILE);

if ($method eq "both") {

$filetoopen = "$ikondir" . "data/onlinedata.dat";
$filetoopen = &stripMETA($filetoopen);
open(FILE,"$filetoopen");
@onlinedata = <FILE>;
close(FILE);
foreach $line (@onlinedata) {
chomp $line;
($savedusername, $savedtime, $savedwhere) = split(/\|/, $line);
$lookfor = substr($savedusername, 0, 5);
if ($lookfor eq "Guest") { $guests++; }
else {
$members++;
if ($members < 10) {
$cleanmember = $savedusername;
$cleanmember =~ s/ /\_/g;
$memberoutput .= qq~&raquo; <a href="$profileprog?action=show&member=$cleanmember">$savedusername </a>~;
}
}
}
}
} # end routine

Народ, багу я пофиксил...спасибо тем, кто еще юзает 2.18.... Тебе объясняю как фиксить...я был прав, дело было именно в том куске, про который я говорил.....открываем икон.либ....ищем процедуру хусонлайн.. ищем
Код: $ipaddress = $ENV{'REMOTE_ADDR'};
$logname = $tempusername;
&getmember("$inmembername");
$tempusername = "$ibtxt{'0043'} $ipaddress" if ($tempusername eq "$ibtxt{'0043'}");

BigMac
сенкс будем ща тестить...

BigMac,
СПАСИБИЩЩЩЩЩЩЩЕ!!!
Заработало!!!
Все гости теперь, как на ладошке!
Дай Бог тебе здоровья и жену хорошую! (ой, чего это я?)

BigMac
Ты как-то не через то место это делаешь... Не нравится мне такой способ. Держите мой фикс.
Там ещё фича добавляется - админ может в whosonline.cgi посмотреть IP'шники юзеров.
Делаем значит так:
В ikon.lib найдите подрограмму whosonline:

Код: sub whosonline { ...много кода... }

Alexander Ipp
Чувак, респект....я просто истинный код переделал...а ты заново написл...твое, ИМХО, лучше....твое ща поставлю

Alexander Ipp
во, точно, с фичей лучше, ща буду фиксить... Сенкс

BigMac
Да я не с нуля писал, я переделал то, что у меня там было... Там вообще о гуестах мало что было. Вероятно, из-за того, что версия очень старая.

Alexander Ipp,
и тебе СПАСИБ БОЛЬШОЙ
Ух, сколько у меня сразу гостей... просто банкет

продолжим банкет.
я тут тоже кое-че делал.
после

Код: if ($savedusername eq "$ibtxt{'0043'}" && $savedwhere eq "Logging in") { next; }

Alexander Ipp
Я поставил твой хак просто супер. Спасибо!!!!!!!!!!!!!!!!

gregor
не хак, а фикс

Shurik
Имхо не нужно, только вес страницы повышает. Я не стал делать.
Цитата:

if ($savedusername eq "$ibtxt{'0043'}" && $savedwhere eq "Logging in") { next; }

Я же сказал выкинуть этот код вроде...

Так-с... Гости отображаются все, но теперь глюк с мемберами. Заходит чел. на форум, пишет чего-то под своим ником, а отображается все равно как гость, но сообщение от него выводится правильно, под его ником. Причем, такое не со всеми, а как-то выборочно. Сейчас вот и меня в форум пустил, но тоже как гостя показывает. Что бы это могло быть?

Fuchsia
На главной странице конфы или в whosonline.cgi?
Если происходит такое с отбражением на главной странице, то что в этот момент происходит в whosonline.cgi?
Я конечно пороюсь, но вряд ли тут дело в коде...

Alexander Ipp, и на главной странице, и в whosonline.cgi.
Что удивительно, ведь не всех он так выводит, только особо избранных. По крайней мере, в одно и то же время половину мемберов показывает, а остальных прячет... Вот бы узнать, по какому принципу он их сортирует?

Fuchsia
Попробуй две строчки с unhtml закомментить...

Добавлено
Alexander Ipp
У BigMac'а на конфе вроде всё Ok...