Login klappt nicht mit LWP, Cookies, 302 redirect - #100741 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

Gast Gast

2007-10-12 11:54

Naja ich habs nicht so mit modulen deswegen funzt bei mir sowas in dem stil :P

Code (perl): (dl )

# Login Request zusammensetzen
$request = HTTP::Request->new(POST => 'https://tst.com/Login.jsp?a=setLanguage&language=DE');
$request->push_header('Content-Type' => 'application/x-www-form-urlencoded');
$request->content("callTest=set&hotelKey=123&passwd=GEHEIM&weeksToShow=other&Login.y=7");

# Session id auslesen
$response->header('Set-Cookie') =~ /JSESSIONID=(.*?);/;
$sid = $1;

# Request Header
$request = HTTP::Request->new(POST => 'https://tst.com/daten.jsp');
$request->push_header('Cookie' => 'JSESSIONID='.$sid);
....

Und es gibts ja noch wireshark um zu schauen obs geklappt hat :P

MFG