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); }
In reply to Re^2: Unable to log into secure website using LWP::UserAgent
by Anonymous Monk
in thread Unable to log into secure website using LWP::UserAgent
by TCM
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |