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);
}
|