Как передать переменные сессии Perl в PHP?

Question

[tolanych]

В сайт написанный на perl-cgi интегрирую PHP-шную страницу. На главной странице сайта пользователь авторизуется и в переменные сессии в том числе заносится [код юзера]. Мой раздел, написанный на PHP при помощи virtual include подгружает .cgi шапку, а остальной код написан на PHP. Как в PHP вытянуть из переменных сессий перла нужное мне значение?

Ссылки в гугле рассказывают только об обратном процессе

Comments

[pcdesign]

Покажите perl-код, который формирует сессию.

[tolanych]

pcdesign: это функция в некоей загадочной самописной библиотеке О_О

#==============================================================================
#/fcom Получение параметров сессии
#==============================================================================
sub session
{
my $self = shift;
my @argv = @_;

unless (scalar keys %session)
{
my $sid = load CGI::Session("driver:File", undef, {Directory => $psession});

for my $ref ($sid->param) {$session{$ref} = $sid->param($ref)}
for my $ref (@argv) {my @tmp = split /=/, $ref; $session{$tmp[0]} = $tmp[1] unless $session{$tmp[0]}}
}

return %session;
}

затем при авторизации копируется в переменные окружения

sub auth
{
my %argv = @_;
my %session = $$argv{-session} || session PCM::Simple;

$CONNECT = $argv{-db} || new PCM::Connect $BASEINI unless $CONNECT;

%argv = (
K_USER => $session{ $NAME -> ('UID') },
N_MAIL => $session{ $NAME -> ('MIL') },
F_DEFAULT => $session{ $NAME -> ('DEF') },
F_CONFIRMED => $session{ $NAME -> ('CNF') },
C_EXPIRES => $session{ $NAME -> ('EXP') },
EXPIRES => $session{ $NAME -> ('TSP') }
);

$argv{K_USER} = undef if time() > $argv{EXPIRES};

%USER::DATA = map { $_ => $argv{$_} } qw(C_EXPIRES K_USER N_MAIL F_DEFAULT F_CONFIRMED);

# Прихраняем в переменные окружения
map { $ENV{$$_[0]} = $argv{$$_[1]} } ['REMOTE_USER', 'N_MAIL'], ['REMOTE_UID', 'K_USER'] if $argv{K_USER};

# Возвращаем код юзера
return $argv{K_USER};
}

[pcdesign]

Я так понимаю, что ничего сакрального нет. Вот документация на модуль:
search.cpan.org/~sherzodr/CGI-Session-3.95/Session.pm

И из кода видно, что сессии хранятся в текстовичках.
Directory => $psession
Посмотрите, что в переменной $psession и увидите где лежат сессии в виде текстового файла.

Дальше откройте его с помощью php.

Answer 1

[FanatPHP]

Выставляй переменную окружения env
В перле это должно быть просто, в РНР - getenv()

Comments

[tolanych]

в $_ENV пусто, в $_SERVER нет значений из perl'a

Answer 2

[Антон Шаманов]

По умолчанию сессии храняться в файлах, можешь парсить их в php

Comments

[tolanych]

можно подробнее, а то не понятно как получить файл этой сессии

[Антон Шаманов]

tolanych: записывай: настой бородавочника смешать с листьями омелы, добавить палец девственницы и бренди по вкусу... ты серьезно? как получить файл?

[tolanych]

Anton: точнее где он находится? и с каким именем?