[Perl] LWP::Useragent en cookies.....

[Verwijderd]

Ik zat effe te klooien met het via een andere website inloggen, maar het wil nog niet helemaal lekker werken.

De waarde van $cookies blijft leeg
ik heb nu dus dit:

code:

use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

$ringourl = "http://www.sitevan.nl/cgi-bin/mobile/login.cgi";

my $req = new HTTP::Request POST => $ringourl;
$req->content_type('application/x-www-form-urlencoded');

$string = qq~picture_url=action=login&user=userID&pass=wachtwoord~;
$req->content($string);

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

$cookies = $ua->cookie_jar($req);

print "Content-Type: text/html\n\n";
print "waarde: $cookies";

Op perldoc heb ik dit gevonden:

$ua->cookie_jar([$cookies])
Get/set the HTTP::Cookies object to use. The default is to have no cookie_jar, i.e. never automatically add "Cookie" headers to the requests.

(lees hier het hele zooitje)

en ja, me module enzo werkt, want andere requests werken gelukkig perfect

[Treenaks]

't werkt een klein beetje anders

Je moet de LWP::UserAgent::cookie_jar functie een arrayref met (een) HTTP::Cookies object(en) geven (zie HTTP::Cookies(3pm) voor meer info).

[Verwijderd]

en hoe doet ik dat, $ua->cookie_jar($req); = \%hash; ?????
en hoe kom ik achter de naam v/die hash, ga nou effe de docs zoeken.