LWP a cookies ..
Honza Pazdziora
adelton na informatics.muni.cz
Středa Červenec 30 10:29:24 MEST 2003
On Sun, Jul 27, 2003 at 09:54:17PM +0200, Jan ' Kozo ' Vajda wrote:
> mozno robim nieco blbo, ale nedari sa mi pracovat rozumne s cookie pri
> praci s LWP
Potiz je v tom, ze LWP nema zadny pojem o tom, co je to "session",
takze cookies defaultne nepredava.
> spravim dotaz na site, tan mi vrati nejaku sranku a cookies ..
>
> nasledne chcem spravit coonect na tu istu domenu, ale inu sranku a
> ocakavam, ze LWP by mal vediet pochopit o co ide a odoslat aj cookie
> ziskanu v prvom pripade, bohuzial sa tak nedeje ..
Nee. :-) Tohle by LWP vedet nemel a nemel by to delat, defaultne. :-)
> navyse sa jedna o docasnu cookie, takze cookie_jar mi prilis nepomaha ..
>
> robim nieco taketo ( strucny nacrt )
>
> my $ua = new LWP::UserAgent;
>
> my $request = HTTP::Request->new($method => $url );
> $request->header(
> 'Referer' => $referer,
> 'Host' => $host,
> 'User-Agent' => 'KozoAG/0.1b',
> 'Accept-Charset' => 'ISO-8859-2, utf-8;q=0.66,*;q=0.66M',
> 'Content-Type' => 'application/x-www-form-urlencoded'
> );
>
> $request = $ua->prepare_request($request);
>
> my $response = $ua->request($request);
>
> pokial somm dobre pochopil, tak prepare_request by mal zabezpecit prave
> modifikaciu hlaviciek ( okrem ineho aj Cookies )
Jenze nemate definovany zadny cookie_jar, takze se prepare_request na
Cookies nediva.
> takze ked z jedneho $ua zavolam dva krat $ua->request, tak by to mal
> chapat ( ako jeden a ten isty prehliadac )
>
> robim niekde fakticku chybu ?
Tu s tim cookie_jarem.
Nicmene: doporucuji Vasi pozornosti WWW::Mechanize, protoze to je
presne ten modul, ktery chcete pouzit, pokud tech pozadavku posilate
proti jedne strance, skriptu nebo serveru vice a nechcete vsechny ty
detaily delat rucne.
--
------------------------------------------------------------------------
Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
.project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
Only self-confident people can be simple.
Další informace o konferenci Perl