Темы

1

Perl / Сессии

« : 11 Декабря 2001, 12:26:01 »

Здраствуйте!

Подскажите пожалуйста где можно почитать о создании сессий для пользователей.
Картина такая: не могу отловить выход пользователей из чата, они ведь очень редко нажимают кнопку выход.
Слышал о кукисах..но не знаю технологию...применимо к чату.

Помимо этого есть несколько вариантов:
1. Установка таймаута - надежно, но не применимо...т.к. пользователь может просто находится в чате и молчать.
2. Проверка на обновление невидимого фрейма...думаю не плохо..но не имею понятия как это работает..
3. Применить к одному из фреймов событие Onunload - срабатывает, но не всегда ...при разрыве связи, при невозможности обновления главного фрейма.

Я выбрал этот путь...
И тут появилась статья о создании чата на Перле (http://www.webscript.ru/stories.php3?story=01/04/09/7444685). Где я нахожу возможность сверять время обновления файла с текущим временем, что в принципе дает мне возможность узнать в чате ли юзер или нет, но тут загвостка ...не работает..
Привожу код:

$cur_time=time;

open(S, "D:/software/web/ses.txt");
@users=;
foreach $user(@users)
{
$online="$user.txt";
$stat1=(stat("$online"))[9];
$diff=$cur_time-$stat1;

if ($diff<20)
{
push(@online,$user);
}
}
close (S);

open (F, ">D:/software/web/ses.txt");
print F @online;
close (F);

Может для кого-то это покажется не серьёзным, но для это очень актуально..поэтому прошу вместо ухмылки что-нибудь посоветовать.
Заранее спасибо.