in reply to Re: LWP HTTPS POST returns 500 EOF
in thread LWP HTTPS POST returns 500 EOF
use HTTP::Request::Common qw(POST GET); use LWP::UserAgent; use LWP::Debug '+'; my $ua = LWP::UserAgent->new(); $ua->cookie_jar({}); $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'); my $req1 = GET 'https://login1.swipnet.se/login.php'; print $ua->request($req1)->as_string; push @{$ua->requests_redirectable }, 'POST'; my $req2 = POST 'https://login1.swipnet.se/login.php', [username => 'xxxxx', password => 'yyyyy', submit => 'Forts']; print $ua->request($req2)->as_string;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: LWP HTTPS POST returns 500 EOF
by fizbin (Chaplain) on Feb 26, 2004 at 13:16 UTC | |
by epljsod (Initiate) on Feb 26, 2004 at 21:40 UTC |