|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sergey V. Leschenko 2:5020/400 17 Jun 2001 19:04:06
To : All
Subject : Re: LWP реквест
--------------------------------------------------------------------------------
Alexey Kartashov wrote:
> >> Подскажите, как поступает модуль LWP, если при реквесте мне хотят
> >> установить куку: принимает или игнорит?
>
> SL> По умолчанию - игнорирует, но можно их извлекать и сохранять...
>
> Если я правильно понял, используем cookie_jar в реквесте, из респонса
> декодируем куку... Вот только как это _грамотно_ сделать, и главное - скрипт
> выполняется на удаленном сервере, а кука должна быть передана в оригинальном
> виде на локальный комп, так чтобы потом при заходе Эксплорером та сторона, что
> ставила куку, должна посчитать, что сама-же ее и поставила.
Я делал так:
# $ua - UserAgent
my $request=HTTP::Request->new('GET', $url);
# add cookie
my $cookie_send=HTTP::Cookies->new;
$cookie_send->load($cookie_file); #load old cookie
$ua->cookie_jar($cookie_send);
my $response=$ua->request($request);
# extract cookie
my $cookie_recived=HTTP::Cookies->new;
$cookie_recived->load($cookie_file); # load old cookies
$cookie_recived->extract_cookies($response);
$cookie_recived->save($cookie_file); # save all
То есть все куки хранятся в файле
Можно создать отдельный скрипт, который выставляет браузеру
сохранненные куки и зайти на нее Explorer'ом
(или найти, как IE хранит куки)
--
Best regards, sm@im.kiev.ua
Sergey smash@astral.ntu-kpi.kiev.ua
[ Чем больше знаешь, тем больше знаешь лишнего ]
--- ifmail v.2.15dev5
* Origin: NTUU "KPI" (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
