VPF::реализация сессий через Apache::Session::File

SparF

Дата 17.1.2009, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 387
Регистрация: 14.9.2006
Где: Санкт-Петербург/М осква

Репутация: нет
Всего: 18

Хочу засунуть данный код в отдельный пакет Session.pm

Код


package PVE::Session;

use CGI::Apache;
use Apache::Session::File;
use strict;

use vars qw(@ISA @EXPORT);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(session_create session_delete);

my %global_data;

sub session_create() {
eval {
     tie %global_data, 'Apache::Session::File', 1,
        {Directory => '/tmp'};
};
if ($@) {
   die "Global data is not accessible: $@";
}
}

sub session_delete() {
    undef %global_data;
}

1;

В результате вызова session_create() извне получаю:

Цитата

Global data is not accessible: Object does not exist in the data store at /usr/share/perl5/Apache/Session/Store/File.pm line 90.\n

Уже весь мозг сломал smile

что не так?
Заранее большое спасибо)

--------------------

Люди, не пользуйтесь пиратским программным обеспечением - переходите на Linux!

Сумасшедший

Дата 19.1.2009, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Чилавек-Каропка

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 15.8.2004
Где: Москва

Репутация: 1
Всего: 107

Если вместо $@ вывести $!, то перл скажет "Global data is not accessible: No such file or directory" - возможно он не может найти файл, из которого брать данные для сессии?

--------------------

Однажды ты спросишь, а я отвечу: "Время ожидания специалиста - 10 минут". Ты бросишь трубку, так и не узнав, что Ваш звонок очень важен для нас!

SparF

Дата 19.1.2009, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 387
Регистрация: 14.9.2006
Где: Санкт-Петербург/М осква

Репутация: нет
Всего: 18

Спасибо за CGI::Session)))
работает)))

--------------------

Люди, не пользуйтесь пиратским программным обеспечением - переходите на Linux!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »