Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Unable to log into secure website using LWP::UserAgent

by no_slogan (Deacon)
on Feb 18, 2014 at 16:21 UTC ( [id://1075356]=note: print w/replies, xml ) Need Help??


in reply to Unable to log into secure website using LWP::UserAgent

You'll probably need to set a cookie jar.

$ua->cookie_jar( {} );

Replies are listed 'Best First'.
Re^2: Unable to log into secure website using LWP::UserAgent
by Anonymous Monk on Feb 27, 2014 at 17:23 UTC

    I've added code for cookies to the script, but other than the file ".lwp_cookies.txt" that is now being created, the results are the same. Still looks like I am not actually loging in, but rather remaining on the login page (even though I get a "200 OK" response from "$response->status_line"). I've included the new script below, does my cookie code look correct? The ".lwp_cookies.txt" file does contain two Set-Cookie3: headers in it. Any other suggestions? Thank you all for your time.

    #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use Data::Dumper; use HTTP::Cookies; my $https_login = 'https://some.httpssite.com'; my $https_user = 'username'; my $https_pass = 'password'; my $ua = LWP::UserAgent->new(); $ua->protocols_allowed( [ 'https'] ); $ua->cookie_jar(HTTP::Cookies->new(file => ".lwp_cookies.txt",autosave + => 1)); # login to https site my $response = $ua->post($https_login, [ 'user' => "$https_user",'password' => "$https_pass" ] ); if ($response->is_error()) { printf " %s\n", $response->status_line; print "https request error!\n"; } else { printf " %s\n", $response->status_line; print Dumper ($response->as_string); }

      Hi TCM I am also facing the same issue my code is the below one I am getting authentication failed.

      #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTTP::Request::Common; use HTTP::Cookies; my $user=""; my $pass=""; my $url="http://news.bankofamerica.com/EOS/EosDispatcher"; # define user agent my $ua=LWP::UserAgent->new(); $ua->agent("USER/AGENT/IDENTIFICATION"); # make request my $request=HTTP::Request->new(GET=>$url) or die "request failed : $!" +; # authenticate $request->authorization_basic($user,$pass") or die "Authorisation fail +ed : $!"; # expect response my $response= $ua->request($request); print $response->content();

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1075356]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2024-04-20 01:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found