Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > реализация сессий через Apache::Session::File

Автор: SparF 17.1.2009, 16:12

Хочу засунуть данный код в отдельный пакет 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

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

Автор: Сумасшедший 19.1.2009, 10:17

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

Автор: SparF 19.1.2009, 20:57

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