online users

[ProFTP]

есть Catalyst

1) Как сделать чтобы показывать online пользователей? целесобразно копировать просто вставлять последние изменения в таблицу?

кто будет удалять?

как в извесных движка делается? там же не серез крон и не через триггер?

2) как допустим вставлять всегда только одно значение для одного пользователя и записывать когда он был в послдений раз?

UPD: просто обновлять последнее прибываение? кажется так...

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

как в извесных движка делается?

сессии считают

[ProFTP]

а что в сессии должно быть?

у меня идентификатор и время жизни...

если я зашел и продлили жизнь на год, как я увиде онлайн?

вот эти классы, может там где-то есть но странно называется, не вижу...
http://search.cpan.org/~janus/Catalyst- ... ore/DBI.pm
http://search.cpan.org/~bobtfish/Cataly ... .pm#___top
http://search.cpan.org/~bobtfish/Cataly ... Session.pm
http://search.cpan.org/~bobtfish/Cataly ... Minimal.pm

[ProFTP]

нашел быд закодирован, это http://search.cpan.org/~gaas/MIME-Base6 ... 64/Perl.pm
и Storable серелизирован

Код: Выделить всё

 use MIME::Base64;
 use Storable qw/nfreeze thaw/;

 my $decoded = thaw(decode_base64($loop_data->{session_data}));
 
use Data::Dumper;
 
  print Dumper($decoded);

хэш

Код: Выделить всё

$VAR1 = {
          '__user_realm' => 'default',
          '__created' => '1233338621',
          '__user' => '1',
          '__updated' => '1233338622'
        };

то есть я так понимаю вынуть все что сущетвует, дальше перебрать по '__user' => '1', и '__user' => '0',