Приветствую.
Пытаюсь разобраться с сессиями на perl.
Почитал доки, написал такой скрипт (сильно сократил,  чтобы нагляднее было):



Файл сессии создаётся. При повторном запуске скрипта создаётся опять. Но, насколько я понимаю, не должен.
Подскажите, в чём я не прав? Хочется понять, как реализовать проверку на существование сессии.
Возможно надо делать load, указывая sid, переданый чезер куки. Но как тогда его получить?

Это сообщение отредактировал(а) MZ412 - 4.12.2009, 16:59

если мне не изменяет память, то что-то типа



должен вернуть тебе ранее выставленный кукис, если он был... в любом случае копай в сторону того, что может вернуть метод $q -> cookie, мож там не SID, а другой ключ хэша нужен...

В документации CGI::Session - замечательный пример, где полностью расписана работа с сессией. А здесь вы ни передаёте её пользователю, ни сохраняете сессионные данные.

Вернулся к данной теме.

Есть страница авторизации. После правильно введённого логина - пароля пользователь авторизуется и получает куку от сервера.
На стороне сервера, например в файле сессии, сохраняются некоторые данные из переменной окружения, например - ip пользователя.
Собственно - с этим проблем у меня нет. Суть вопроса заключается в проверке наличия сессии.

Я правильно понимаю, что это можно сделать так:
- берём пользовательскую куку и смотрим значение параметра с именем сессии
- ищем файл сессии и проверяем ip, хранимый в файле с тем, который мы получаем из переменной окружения для данного запроса (с ip - это всего лишь пример, само собой)
- собственно - принимаем решение, на релогин пользователя или дать возможность работать

Собственно вопросы: 
- правильно ли я понимаю механизм?
- использовать ли для решения этой задачи модуль CGI::Cookie или это можно сделать при помощи CGI::Session ?

Перечитал про куки и сессии. Понял ответы на все вопросы. Тема закрыта.