On Thu, 11 Nov 1999, Pavel P. Zabortsev wrote:
> From: Pavel P. Zabortsev <ppz@xxxxxxxxxxxxxx>
> Subject: [apache-talk] SSI & cookies
> X-Mailer: Microsoft Outlook Express 4.72.3155.0
>
> Ребята!
> Есть ли способ читать куки из скриптов, вставленных в
> server-parsed-документ?
>
> Кусок из конфига:
> AddType text/html .phtml
> AddHandler server-parsed .phtml
>
> PerlRequire /usr/local/apache/conf/perl-startup
>
> <Location /perl>
> SetHandler perl-script
> PerlHandler Apache::Registry
> Options ExecCGI
> PerlSendHeader On
> </Location>
>
> Так вот, те скрипты, что сидят в perl-startup, а вызываются из
> document.phtml (server-parsed) подобным образом <!--#perl sub="sub1" -->, не
> видят куков! ;-(
> Обныкновенные скрипты, которые живут под /perl, отрабатывают правильно.
То что вызывается через perl sub
получает в качестве первого агрумента объект типа Apache::Request.
Соответственно, писать надо:
sub sub1 {
my $request = shift;
local %ENV=$request->cgi_env;
my $cgi=new CGI;
my $cookie = $cgi->cookie('COOKIE_NAME');
.....
> Неужели нет никакого способа?
А вот поставить куку их perl sub действительно нет способа.
--------------------------------------------------
Victor Wagner vitus@xxxxxx
Programmer Office:7-(095)-203-51-19
Institute for Commerce Home: 7-(095)-135-46-61
Engineering http://www.ice.ru/~vitus
=============================================================================
= Apache-Talk@xxxxxxxxxxxxx mailing list =
Mail "unsubscribe apache-talk" to majordomo@xxxxxxxxxxxxx if you want to quit.
= Archive avaliable at http://www.lexa.ru/apache-talk =
"Russian Apache" includes software developed
by the Apache Group for use in the Apache HTTP server project
(http://www.apache.org/) See
Apache LICENSE.
Copyright (C) 1995-2001 The Apache Group. All rights reserved.
Copyright (C) 1996 Dm. Kryukov; Copyright (C)
1997-2009 Alex Tutubalin. Design (C) 1998 Max Smolev.