I am using LWP::UserAgent and HTML::TreeBuilder to communicate to the below site
Here is the website map:
https://secure.server.com/index.htm which asks for two fields
user_id
user_pwd
then submit button
the form is submitted to
https://secure.server.com/login.asp
which validates the login credentials and if validated then user is redirected to main.asp and there will be a link called
https://secure.server.com/data.asp
which will have field
tx_Sno
and after typing the serialnumber and hitting submit button the data is POST'ed to data.asp and details like
1) Manufacured_date
2) Model
3) Site .e.t.c comes in a tabular format.
Now the requirement:
I have to write a perl script which will do all these jobs behind the screen using LWP::UserAgent and use HTML::TreeBuilder. Since the site is SSL based i used CRYPT:SSLeay. Now my program looks like this
Expand|Select|Wrap|Line Numbers
- use strict;
- use warnings;
- use LWP::UserAgent;
- use HTML::TreeBuilder;
- my $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0' );
- my $response1 = $ua->post('https://secure.server.com/login.asp ', [
- "user_id" => "anonymous",
- "user_pwd" => "password",
- ]);
- my $response = $ua->post( 'https://secure.server.com/data.asp', [
- "tx_Sno" => "T450W34990",
- ]);
- print $response->status_line;
- print $response1->status_line;
- print $response->content;
- print $response1->content;
<SCRIPT>
parent.document.location.replace('/index.htm');
</SCRIPT>
which means the session created by response1 is not applying to response POST. Can anyone help me how to handle this situation...