[Vienna-pm] 2. Frage :)

Tue Nov 21 07:39:16 PST 2006

So, 

die https-Login-Page 
	laden: $ua->request(..), 
	ausfüllen: $form->value(...  
	wegschicken: my $ret = $ua->request($form->click) 
klappt einmal :), aber dann 'verliere' ich die Session, wie mach ich das 
jetzt mit Perl?

Danke schon mal, der code ist dann unten..
Calli

Jetzt krieg ich aber das zurück:
<html><head> <meta 
http-equiv="Refresh"content="0;url=index.php?part=menu&justloggedin=true">
</head><body>
<a href="index.php?part=menu&justloggedin=true"></a>

Ich denke, das ist jetzt ein re-direct, aber meine naiver Ansatz klappt 
nicht, wobei
	$rett->base   =>   https://myaccount.bank.com/clx/index.php
redirekt ist:
	 url=index.php?part=menu&justloggedin=true
zusammengesetzt wäre das:
https://myaccount.bank.com/clx/index.php?part=menu&justloggedin=true
(Diese Addresse (in $newurl) steht auch aif dem Browser..)

aber das geht gibt keine richtige Antwort:
    my $ub  = LWP::UserAgent->new();
    my $req2 = HTTP::Request->new( GET => $newurl );
    my $res2 = $ub->request($req2) || die $!;
    if ($res2->is_success) {
       print $res2->content;
    }

Die Antwort ist ein Session lost:
<html><head><meta http-equiv="Refresh" 
content="0;url=index.php?part=timeout">
</head><body>Session lost<br>
<a href="index.php?part=timeout">Click here to go back to the login 
page</a><a href="index.php?part=timeout"></a></body></html>