Forum Webscript.Ru

Программирование => Perl => Тема начата: commander от 02 Марта 2005, 17:07:02

Название: CGI::Session...
Отправлено: commander от 02 Марта 2005, 17:07:02

задача получить $session->atime(), не изменяя его...
если делать так:
-------------------------------------------------------------------------------
my $session = new CGI::Session("driver:PostgreSQL", $sid, {Handle=>$dbh, TableName=>\'sessions\'});
$session->atime();
-------------------------------------------------------------------------------
получаеться инициализация сессии и atime() == time()...

вариант писать парсер поля a_session в БД, меня не очень греет, есть другие варианты?

Название: CGI::Session...
Отправлено: NeoNox от 02 Марта 2005, 17:47:21

http://www.cpan.org/authors/id/C/CO/COSIMO/CGI-Session/PostgreSQL-1.03.pm
в части retrieve
пробуй my $data = $session->retrieve($id)

Название: CGI::Session...
Отправлено: commander от 03 Марта 2005, 11:10:16

NeoNox
ну да согласен, так можно просмотреть последнее atime, но фокус в том, что при закрытии сессии atime измениться на текущее время... что не есть гуд, мне же нужно просто просматривать открытые сессии не изменяя параметров...
пример:
my @session_ids=$D->column("SELECT id FROM sessions");
    map
    {
    my $session = new CGI::Session("driver:PostgreSQL", $_, {Handle=>$dbh, TableName=>\'sessions\'});
    my $data = $session->retrieve($_);
    print "Data:", Dumper $data, "\\n";
    $session->close()
    }  @session_ids;
при таком раскладе... atime все же меняеться... :(

Название: CGI::Session...
Отправлено: NeoNox от 03 Марта 2005, 14:49:40

При new CGI::Session у тебя стартует новая сессия. Я тебе ссылку дал на выборку, напиши свой врапер к CGI::Session.

Название: CGI::Session...
Отправлено: commander от 03 Марта 2005, 15:06:36

NeoNox
ну вообщем я уже этим занялся... :)
оставив некчемные попытки выжать это из CGI::Session...

P.S. Спасиб.