Is there anything special need to post to https sites?
The page has a few lines of java script and the following html
------ html form --------
<form name="loginForm" action="j_security_check" method="post">
...
...
<tr>
<td class="loginLabel"><label for="tUser"
accesskey="U"><span class="underline">U</span>ser
Name: </label></td>
<td class="loginValue"><input type="text" id="tUser"
name="j_username"></td>
</tr>
<tr>
<td class="loginLabel"><label for="tPassword"
accesskey="P"><span
class="underline">P</span>assword: </label></td>
<td class="loginValue"><input type="password"
id="tPassword" name="j_password" maxlength="50"></td>
</tr>
------- end ----
use strict;
use warnings;
use Data::Dumper;
use LWP 5.64;
my $browser = LWP::UserAgent->new;
my $user = 'username';
my $pass = 'password';
My $url = 'https://secure-site/j_security_check';
my $response = $browser->post( $url,
[ j_username => $user,
j_password => $pass
]
);
die "$url error: ", $response->status_line
unless $response->is_success;
die "Weird content type at $url -- ", $response->content_type
unless $response->content_type eq 'text/html';
if( $response->content =~ m{(Incorrect user name or password)}) {
print $1,"\n";
}
elsif( $response->content =~ m{(My Customers)} ) {
print "login successfull returning data:\n";
sleep 2;
print $response->content;
} else {
print "problem trying to access $url: $!\n";
}
No matter what I keep getting the following:
https://secure-site/j_security_check error: 408 Request Timeout at
foo.pl line 17
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - -
This message is intended only for the personal and confidential use of the
designated recipient(s) named above. If you are not the intended recipient of
this message you are hereby notified that any review, dissemination,
distribution or copying of this message is strictly prohibited. This
communication is for information purposes only and should not be regarded as an
offer to sell or as a solicitation of an offer to buy any financial product, an
official confirmation of any transaction, or as an official statement of Lehman
Brothers. Email transmission cannot be guaranteed to be secure or error-free.
Therefore, we do not represent that this information is complete or accurate
and it should not be relied upon as such. All information is subject to change
without notice.
--------
IRS Circular 230 Disclosure:
Please be advised that any discussion of U.S. tax matters contained within this
communication (including any attachments) is not intended or written to be used
and cannot be used for the purpose of (i) avoiding U.S. tax related penalties
or (ii) promoting, marketing or recommending to another party any transaction
or matter addressed herein.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
