perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 30
Click for quality!




11.02.2012 / 12:59

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragLogin mit LWP und Cookie, Problem bei weiteren Seiten
Seitenanfang
Hallo,
ich möchte eine Seite mit LWP holen für die ich mich anmelden muss. Als Beispiel habe ich hier delicious genommen.

Hier ist das mit SSl - OpenSSL habe ich installiert (Windows) das ist kein Problem und funktioniert auch.

Nach dem Einloggen erfolgt ein Redirect. Wenn ich dem folge und den Content speicher oder wie unten einfach die Seite aufrufe nach Login und den Content speicher so bin ich nicht eingeloggt.

Also scheint das mit dem Cookie nicht zu klappen. Ein Cookie wird aber angelegt und sieht wohl ganz gut aus.

Ich vermute, dass der Cookie also nicht richtig gesendet wird.

Vielleicht kann mir hier ja jemand helfen.

[code]
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Cookies;
use FileHandle();

$fh = new FileHandle("content.htm","w");

$loginUrl="https://secure.del.icio.us/login";
$login="test";
$password="123";

my $ua = LWP::UserAgent->new();
my $cookie_jar = HTTP::Cookies->new( file => "cookie.txt", autosave => 1 );
$ua->cookie_jar($cookie_jar);

my $response = $ua->post($loginUrl,['user_name'=>$login,'password'=>$password,'login'=>"log in"],'Referer' =>'https://secure.del.icio.us/login');
$cookie_jar->extract_cookies($response);

$url = 'http://del.icio.us/'.$login;

$request = HTTP::Request->new(GET => $url);
$ua->cookie_jar->add_cookie_header($request);
$response = $ua->request($request);

print ($fh $response->content());
$fh->close();
[code];

Datum: 04.06.2007-17:33

-






-
-