problems with LWP & HTTP

stephenc · Aug 14, 2007

Hi

I am trying to log into a secur site using this:

use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);

my $ua = new LWP::UserAgent;

my $req = POST 'https://www.secure.********.com.au/Cardlink/
LoginServlet',
[ 'UserID' => '*********',
'Password' => '********',
'Submit' => 'Submit'
];

print $req->as_string;
my $res = $ua->request($req)
print $response->content();

When I run it at the prompt it hangs after printing print $req-

as_string;

I'm a bit out of my depth. Anyone know how i can get this to return
the page I am lloking for?

stephenc · Aug 15, 2007

OK, this code does compile but I have had to change my user id and
pasword for obvious reasons:

use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);

my $ua = new LWP::UserAgent;

my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
LoginServlet',
[ 'UserID' => 'abshidf',
'Password' => 'oddhfhg',
'Submit' => 'Submit'
];

print $req->as_string;
my $res = $ua->request($req);
print $res->content();

It still hangs!

stephenc said:
stephenc said:

Hi

Click to expand...

I am trying to log into a secur site using this:

Click to expand...

use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);

Click to expand...

my $ua = new LWP::UserAgent;

Click to expand...

my $req = POST 'https://www.secure.********.com.au/Cardlink/
LoginServlet',
[ 'UserID' => '*********',
'Password' => '********',
'Submit' => 'Submit'
];

Click to expand...

print $req->as_string;
my $res = $ua->request($req)
print $response->content();

Click to expand...

last line should be

print $res->content();

Isn't true?

--

Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)- Hide quoted text -

- Show quoted text -

Narthring · Aug 15, 2007

The UserAgent isn't allowing redirection from a POST. This should fix
the problem.

use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);

my $ua = new LWP::UserAgent;
push @{$ua->requests_redirectable}, 'POST'; #allow redirection
from POST

my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
LoginServlet',
[ 'UserID' => 'abshidf',
'Password' => 'oddhfhg',
'Submit' => 'Submit'
];

print $req->as_string;
my $res = $ua->request($req);
print $res->content();

stephenc said:
OK, this code does compile but I have had to change my user id and
pasword for obvious reasons:

use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);

my $ua = new LWP::UserAgent;

my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
LoginServlet',
[ 'UserID' => 'abshidf',
'Password' => 'oddhfhg',
'Submit' => 'Submit'
];

print $req->as_string;
my $res = $ua->request($req);
print $res->content();

It still hangs!

stephenc said:

Hi
I am trying to log into a secur site using this:
use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);
my $ua = new LWP::UserAgent;
my $req = POST 'https://www.secure.********.com.au/Cardlink/
LoginServlet',
[ 'UserID' => '*********',
'Password' => '********',
'Submit' => 'Submit'
];
print $req->as_string;
my $res = $ua->request($req)
print $response->content();

Click to expand...

Click to expand...

last line should be

Click to expand...

print $res->content();

Click to expand...

Isn't true?

Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)- Hide quoted text -

Click to expand...

- Show quoted text -

Click to expand...

stephenc · Aug 24, 2007

Try this script. Maybe this can help you to find reason ;-)

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;

print "Content-type: text/html\n\n";

# don't forget to set right values in next line
my $params='UserID=abc&Password=abc&Submit=Submit';

my $ua = LWP::UserAgent->new(timeout => 30);
my $req = HTTP::Request->new(POST =>
'https://www.secure.cardlink.com.au/Cardlink/LoginServlet');
$req->headers->header(Accept => '*/*');
$req->headers->header(Connection => "Keep-Alive");
$req->headers->header(Accept_language => "en");
$req->headers->header(Cache_Control => 'no-cache');
$req->content_type('application/x-www-form-urlencoded');
$req->content($params);
my $res = $ua->request($req);
if ($res->code != 200)
{
print "<html><body>Error: ",$res->code," ",$res->message," ",
"Response: ",
" Message: $res->{_msg} ",
" Protocol: $res->{_protocol} ",
" Return code: $res->{_rc} ",
"Response headers: ";
foreach (sort keys %{$res->{_headers}})
{
print " $_: $res->{_headers}->{$_} ";
}
print " Page Content: $res->content" if($res->content);
print "</body></html>";
}
else
{
print $res->content;
}

--

Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)

I tried this (having changed the parameters but it still hung at this
point:

C:\eventOrganizerV2>d.pl
Content-type: text/html

I tried enabling cookies and opening the preceding page to see if I
pickedany up but it didn't help.

Any further suggestions?

stephenc · Aug 28, 2007

The UserAgent isn't allowing redirection from a POST. This should fix
the problem.

useLWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);

my $ua = newLWP::UserAgent;
push @{$ua->requests_redirectable}, 'POST'; #allow redirection
from POST

my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
LoginServlet',
[ 'UserID' => 'abshidf',
'Password' => 'oddhfhg',
'Submit' => 'Submit'
];

print $req->as_string;
my $res = $ua->request($req);
print $res->content();

OK, this code does compile but I have had to change my user id and
pasword for obvious reasons:

Click to expand...

useLWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);

Click to expand...

my $ua = newLWP::UserAgent;

Click to expand...

my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
LoginServlet',
[ 'UserID' => 'abshidf',
'Password' => 'oddhfhg',
'Submit' => 'Submit'
];

Click to expand...

print $req->as_string;
my $res = $ua->request($req);
print $res->content();

Click to expand...

It still hangs!

Click to expand...

stephenc wrote:
Hi
I am trying to log into a secur site using this:
useLWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);
my $ua = newLWP::UserAgent;
my $req = POST 'https://www.secure.********.com.au/Cardlink/
LoginServlet',
[ 'UserID' => '*********',
'Password' => '********',
'Submit' => 'Submit'
];
print $req->as_string;
my $res = $ua->request($req)
print $response->content();
last line should be
print $res->content();
Isn't true?
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)- Hide quoted text -
- Show quoted text -- Hide quoted text -

Click to expand...

Click to expand...

- Show quoted text -

Hi

I tried that and also enabling cookies and go through the opening page
but it still hangs as the second request. This is te code:

# clearCard.pl

use strict;
use LWP;
use LWP::UserAgent;
use Crypt::SSLeay;

my $browser = LWP::UserAgent -> new;
push @{$browser->requests_redirectable}, 'POST';
$browser->cookie_jar({});

my $response = $browser -> get ('https://www.secure.cardlink.com.au/
Cardlink/login.jsp');

#print $response->content();
print "to here\n";

$response = $browser -> post (
'https://www.secure.cardlink.com.au/Cardlink/LoginServlet',
[
'UserID' => 'abcgsre',
'Password' => 'hfyretsg',
'Submit' => 'Submit'
],
);

$response->is_success or
die "Login failed: ", $response->status_line, "\n";

#print $response->content();

Any further ideas?

can LWP handle this?	7	Oct 21, 2008
form post URL encoded	4	Jun 26, 2013
https request failing	2	Sep 18, 2012
How do I PUSH an HTTP::POST using perl LWP?	2	Jul 23, 2008
LWP problems	0	Jul 11, 2005
LWP::UserAgent and HTTP::Request with basic authentication...	1	Mar 29, 2007
LWP - Upload via HTTP POST	1	Jul 2, 2003
LWP POST Not Working	0	Jul 1, 2004

problems with LWP & HTTP

stephenc

stephenc

Narthring

stephenc

stephenc

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads