Forum Webscript.Ru

Программирование => Perl => Тема начата: Nudlok от 24 Сентября 2005, 04:56:20

Название: список он-лайн посетителей
Отправлено: Nudlok от 24 Сентября 2005, 04:56:20

Как с помощью Perl можно организовать список он-лайн посетителей данной страницы .. так же как ето реализовано на PHP в phpNuke  ...?

Название: список он-лайн посетителей
Отправлено: Меняздесьдавнонет от 24 Сентября 2005, 09:53:07

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

Название: список он-лайн посетителей
Отправлено: Nudlok от 25 Сентября 2005, 02:35:42

... спасибо

Название: список он-лайн посетителей
Отправлено: Nudlok от 09 Октября 2005, 23:34:58

у кого больше трёх минут выкидывать ...
а если человек засиделся...и его выкинет, то уже будет неверная цифра

Название: список он-лайн посетителей
Отправлено: glebushka от 09 Октября 2005, 23:38:25

Nudlok, да ты умён. И что?

Название: список он-лайн посетителей
Отправлено: Меняздесьдавнонет от 09 Октября 2005, 23:51:09

Nudlok
если не засиделся, а ушёл через 10 секунд, то целых две минуты и 50 секунд после этого инфа будет неверная.
И что? Тебе за эту инфу деньги платят? Требукется точность, как в госбанке?
Не всё ли равно, какая там стоит фифра, если нужна она исключительно для морального онанизма?

Название: список он-лайн посетителей
Отправлено: Psixolog от 27 Октября 2005, 06:08:52

# Отображаем список посетителей.

Кто в онлайне.

HTML

# Здесь я предусмотрел очистку файла
online.txt через 3 минуты после бездействия чата.
# Сравниваем время модификации файла с текущим временем.
$cur_time=time;
$stat3=(stat ("$online"))[9];
$diff3=$cur_time-$stat3;        # Вычисляем разность

# Если разность более 180 секунд, перезаписываем файл пустым значением.
if ($diff3>180) {
open (NET,">$online");
print NET "";
close (NET);
}