[Cascavel-pm] Post/Get/Cookies Me ajudem!!!!! =)

[Gabriel Vieira]

Olá Flávio, acho que isto será muito útil!
Poderia me informar onde acho algo mais sobre o cookies junto com LWP?

Grato,

Gabriel Vieira

> Gabriel Vieira wrote:
> >
> > Olá Lista,
> >
> > fiz um script A que envia dados via socket em método POST para que
> > este loga-se a um script B.
> > São enviados um login e uma senha pelo script A, e o script B
> > reconhece normalmente e libera o acesso.
> > O script B seta um cookie para o login e a senha, até aí sem
> > problemas.
> > Porém, como quem está tentando acessar é um script perl(script A), os
> > cookies não são gravados.
> > Logo adicionei ao header do get/post a linha Cookies:
> > login=blabla&senha=blabla
> >
> > E fiz com com que o script B imprimisse na tela o conteúdo do
> > $ENV{'HTTP_COOKIE'}, o mesmo imprime perfeitamente
> > login=blabla&senha=blabla só que não os reconhece... Ele não libera o
> > acesso mais.
> >
> > Quando EU acesso via web normal, o login é feito, o cookie salvo..
> > tudo 100%, porém quando o script A tenta fazer a segunda etapa
> > (navegar a partir dos cookies passados via headers) o script B não
> > trabalha direito.
> >
> > Existe alguma informação a mais que deve ser passada via header para
> > que o script B funcione também quando acessado pelo script A?
> > Os navegadores impõem esta informação?
>
> Se você utilizar o LWP, ele já tem toda a estrutura para cookies pronta.
>
> Este é um trecho de um programa que trabalha com cookies:
>
>     if ($ua) {
>             $ua->cookie_jar->load($cookie_file) if $cookie_file;
>     }
>     else {
>             $ua = LWP::UserAgent->new;
>             $ua->agent($agent);
>             $ua->timeout($timeout);
>             $ua->env_proxy();
>             $ua->cookie_jar(HTTP::Cookies->new(file => $cookie_file,
> autosave => 1)) if $cookie_file;
>     }
>
> $cookie_file é o nome de um arquivo onde os cookies são armazenados.
> Desta forma, mesmo que você execute o programa de novo, os cookies já
> existentes continuam valendo.
>
> - Flavio S. Glock