Issues Logging Into An HTTPS Site From Perl Script Using LWP::UserAgent
Issues Logging Into An HTTPS Site From Perl Script Using LWP::UserAgent
(OP)
I'd like to write a Perl script that will go to an https website, login with a username and password and then upload a file. So the first thing I'm trying to do is actually log into the site using LWP::UserAgent. I created the code below to accomplish this, but it doesn't actually login to the site. I can see that I get a "200 OK" response from "$response->status_line", and it appears that I am on the login page of the site (based on what I'm seeing from "$response->as_string"), but it never actually logs in. So it looks to me like I'm on the login page, but I'm not sure how to actually login. I've read the LWP::UserAgent manpage many times over (and also other links from that manpage), but it's just not sinking in to this thick skull of mine. I searched through related threads here as well, but wasn't finding any that pertained to this issue I am having. Anyone mind sharing suggestions on what I'm doing wrong here? I've posted my code below. Thank you.
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;
my $https_login = 'https://some.httpssite.com';
my $https_user = 'username';
my $https_pass = 'password';
my $ua = LWP::UserAgent->new();
$ua->protocols_allowed( [ 'https'] );
# 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);
}
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;
my $https_login = 'https://some.httpssite.com';
my $https_user = 'username';
my $https_pass = 'password';
my $ua = LWP::UserAgent->new();
$ua->protocols_allowed( [ 'https'] );
# 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);
}
RE: Issues Logging Into An HTTPS Site From Perl Script Using LWP::UserAgent
CODE
To automate website traversing!
"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."
"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music