Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: разработка для Web > Perl + LWP + Cookie


Автор: OutlawZ 31.1.2012, 21:20
Доброй ночи, можно ли с помощью LWP получить куки и установить их браузеру?
Дело в том что есть сервер на нем висит форма авторизации, после авторизации дается кука, вот эту куку надо установить браузеру, что бы после захода на ресурс куда катался запрос читалась кука т.е уже не авторизироваться. 


Опишу более детально, хочу сделать CGI скрипт который имеет форму авторизации, данные введеные в эту форму отравляются с помощью LWP на другой сервер. Как тут надо обработать запрос что бы выставить куки браузеру? слышал что с помощью редиректа можно, но хотелось бы пример.  smile 

Просто когда я катаю запрос я получаю ответ с куками захожу в на сервер но куки не установились, делал так в начале катал запрос с помощью LWP получал куки, потом с помощью Set-Cookie выставлял но увы так не получилось, помогите кто чем может smile


Автор: vadiml 1.2.2012, 01:26
> можно ли с помощью LWP получить куки и установить их браузеру?

Можно, см. экспорт куков в форматах Netscape или IE
HTTP::Cookies::Netscape, HTTP::Cookies::Microsoft

Автор: Irakl 8.2.2012, 19:01
Код

my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new("/tmp/cookies.txt"));


- хранение кук после авторизации

Автор: vadiml 9.2.2012, 09:24
Irakl, 
Цитата(Irakl @  8.2.2012,  19:01 Найти цитируемый пост)
$ua->cookie_jar(HTTP::Cookies->new("/tmp/cookies.txt"));


Это куки во внутреннем формате LWP, их поймёт только другой LWP, но не броузер.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)