|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 17 Dec 2002 16:03:30
To : Igor Kremin'
Subject : Re: apache2 mod_perl2 win32
--------------------------------------------------------------------------------
Здравствуй, Igor Kremin'.
IK> Aaaah prince(ss) All it is great honour to meet you.
IK> тут такая проблема, связаная с cookie из за отсутствия в mod_perl2
IK> точнее в libapreq модуля Apache::Cookie; для mod_perl2;
IK> надо реализовать вот такой кусочек.
IK> use CGI::Cookie;
IK> my $cookies;
IK> $Cookie{'name'} ='Hello0';
IK> $Cookie{'name1'} ='Hello1';
IK> $Cookie{'name2'} ='Hello2';
IK> foreach my $key (keys %Cookie)
IK> {
IK> my $cookie= new CGI::Cookie(
IK> -name => $key,
IK> -value => [$Cookie{$key}],
IK> -expires => '+3M,'
IK> -domain => '.$site',
IK> -secure => 1
IK> );
IK> push(@cookies,$cookie);
IK> }
IK> *foreach my $cookie (@cookies) {$r->header_out("Set-Cookie",$cookies)};*
IK> все бы ничего но есть одна проблема связаная с выполнением header_out
IK> последующие вызовы
IK> затирают предыдущую Cookie. тоесть результат в браузер отправлен только
IK> name2=Hello2
IK> как народ решает такую проблемку.
IK> можна конечно ручками или с помощью CGI
IK> *print header(-cookie=>[@cookies]);*
IK> - но имхо это изврат, (можна и автомобиль по запчастям собрать) ;)
Hарод решает эту проблему через $r->headers_out в скалярном контексте и
дальнейшее использование методов Apache::Table применительно к результату. Hо
это mod_perl1.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: apache2 mod_perl2 win32 
