Welcome to the Monastery | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
The following is an example of some code that uses LWP to post some data to an
HTTPS login page and collect the cookies in a temporary HTTP::Cookie jar. You
can persist the cookies for future use by giving the cookie jar a file to use.
You will need to change the $loginFormUrl and form data in order to get this to work with your login page. Inman
#! /usr/bin/perl -w use strict; use warnings; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Request; use IO::Socket::SSL; my $loginFormUrl = "https://webbroker33w.tdwaterhouse.ca/LogOn"; # Join the list of name=value pairs that you get from your login page my $postContent = join "&", qw ( userid=myUser passwd=myPassword ); # Create User Agent my $ua = LWP::UserAgent->new(); # Set up the cookie jar to use the file 'cookies.txt' $ua->cookie_jar (HTTP::Cookies->new ()); push @{ $ua->requests_redirectable }, 'POST'; my $req = HTTP::Request->new("POST", $loginFormUrl ); $req->content_type('application/x-www-form-urlencoded'); $req->content($postContent); # Send the request to the server my $resp = $ua->request( $req ); if ( $resp->is_error() ) { print "warning Error requesting URL ->" . $resp->message();} else{ print $resp->headers_as_string . "\n";} In reply to Re: Re: Re: Net_SSLeay help?
by inman
|
|