|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Igor Kremin' 2:4631/51 16 Dec 2002 23:26:13
To : All
Subject : apache2 mod_perl2 win32
--------------------------------------------------------------------------------
тут такая проблема, связаная с cookie из за отсутствия в mod_perl2
точнее в libapreq модуля Apache::Cookie; для mod_perl2;
надо реализовать вот такой кусочек.
use CGI::Cookie;
my $cookies;
$Cookie{'name'} ='Hello0';
$Cookie{'name1'} ='Hello1';
$Cookie{'name2'} ='Hello2';
foreach my $key (keys %Cookie)
{
my $cookie= new CGI::Cookie(
-name => $key,
-value => [$Cookie{$key}],
-expires => '+3M,'
-domain => '.$site',
-secure => 1
);
push(@cookies,$cookie);
}
*foreach my $cookie (@cookies) {$r->header_out("Set-Cookie",$cookies)};*
все бы ничего но есть одна проблема связаная с выполнением header_out
последующие вызовы
затирают предыдущую Cookie. тоесть результат в браузер отправлен только
name2=Hello2
как народ решает такую проблемку.
можна конечно ручками или с помощью CGI
*print header(-cookie=>[@cookies]);*
- но имхо это изврат, (можна и автомобиль по запчастям собрать) ;)
или на худой конец
*$r->header_out(" ",header(-cookie=>[@cookies]));* ;)) который немного лучше
*$r->предыдущего ;)
К коду просьба не придираться разобран дабы понять было легче
ю Ага и фаза луны не правильная.
_ICQ_:9624564 _mailto_:kremin@usa.com
... Sincerely yours Flint ! See you later.
--- The Real GED/2 One
* Origin: Flint's Station, Ukraine (2:4631/51)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
