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

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); 
 }
[download]

Comment on Re^2: Unable to log into secure website using LWP::UserAgent Download Code

Replies are listed 'Best First'.
Re^3: Unable to log into secure website using LWP::UserAgent by Anonymous Monk on Feb 28, 2014 at 14:58 UTC
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(); [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Unable to log into secure website using LWP::UserAgent
by Anonymous Monk on Feb 28, 2014 at 14:58 UTC

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();
[download]

[reply]
[d/l]