Автор Тема: Помогите с Perl сессиями  (Прочитано 2522 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн torres

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 4
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Помогите с Perl сессиями
« : 18 Ноября 2005, 15:34:47 »
всем привет , у меня  такая проблема:
есть скрипт Логин, который создает сесию и вводит в нее
$user. :
use CGI::Session;
$CGI::Session::MySQL::TABLE_NAME = \'my_sessions\';
my $session = new CGI::Session("driver:MySQL", $cgi, {Handle=>$dbh});
if ( $session->is_expired )
{
$session->delete();
print \'Status: 302 Moved\', "\\r\\n", \'Location: http://216.121.24.115/action/login.html\', "\\r\\n\\r\\n";
}
if ( $session->is_empty ) {
print \'Status: 302 Moved\', "\\r\\n", \'Location: http://216.121.24.115/action/login.html\', "\\r\\n\\r\\n";
exit(0);
}
$session->param(\'user_order\',$user);
my $user=$session->param(\'user_order\');
$session->expire(\'+20m\');
print $session->header();

сесия создалась, все нормально, вот дальше такая ситуация:
эта форма с логин висит где то на страничке, и допустим я делаю логин под каким то user-ом, через 2 минуты делаю логин под другим user-oм, в результате получаются 2 сесии, и в дальнейшем по ходе работы запрминается токо user из первой сесии,
Как мне сделать так, что если клиент хочет сделать другой логин, то первая сесия стерлась и токо после етого создалась новая
Как организовать эту проверку?
Заранее блогодарен

Оффлайн AnnA

  • Фанатка форума
  • Старожил
  • ****
  • Сообщений: 263
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
Помогите с Perl сессиями
« Ответ #1 : 21 Ноября 2005, 14:56:18 »
use CGI::Session qw/-ip-match/; ?
пока-пока. :)

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28