Problem posting with LWP::UserAgent

john.eisenschmidt · Oct 21, 2005

Stuck in API hell, hoping someone can help me.

I'm trying to build a small webapp with mod_perl to connect to Oracle
Discoverer 10g and pass parameters based on who they are. Discoverer
used to have a CGI-like API within itself which you could just say:

http(s)://server.domain.com/discoverer/plus?us=user;pw=pass;etc

but they took that away for 10g and replaced it so it needs a CGI
redirect:

http://oraclebi.blogspot.com/2005/08/passing-password-to-viewer.html

<form name="dashboard redirect" action=$server method="POST">
Username: <input type="input" name="us" value=""><br>
Password: <input type="input" name="pw" value=""><br>
Workbook: <input type="input" name="wbk" value=""><br>
Worksheet: <input type="input" name="wsk" value=""><br>
Page Item: <input type="input" name="pi_Region" value="West"><br>
EUL: <input type="input" name="eul" value=""><br>
Database: <input type="input" name="db" value=""><br>
<input type="submit" name="submit" value="Submit">
</form>

Which I have working if I type in the params, but I want to build them
and shoot the user straight in. So I've tried a couple different ways
to do this, and none have worked:

sub connectToDiscoverer {
#########################################################################
# attempt 1:
#########################################################################
# use LWP::UserAgent;
# use HTTP::Request::Common;
# my $ua = LWP::UserAgent->new;
# my %tags = ();
# $tags{'us'} = 'jeisensc';
# $tags{'pw'} = '999999';
# $tags{'wbk'} = '0000 Budget_Check_Summary';
# $tags{'wsk'} = '';
# $tags{'pi_Region'} = 'West';
# $tags{'eul'} = '';
# $tags{'db'} = 'FOO';
#
# my $response = $ua->post(POST '/reports/discoverer.html',
#########################################################################
# tried both content_types here, not at same time
#########################################################################
# Content_Type => 'form-data',
# Content_Type => 'application/x-www-form-urlencoded',
# Content => [ %tags ]
# );
# if ($response->is_success) {
# print $response->content; # or whatever
# }
# else {
# die $response->status_line;
# }
# print $resp->error_as_HTML unless $resp->is_success;
# print $resp->content();

#########################################################################
# attempt 2
#########################################################################
#my $ua = LWP::UserAgent->new;
#########################################################################
# tried ->request and ->post, not at same time
#########################################################################
# my $response = $ua->post('http://localhost/reports/discoverer.html',
[
# my $response = $ua->request(POST
'http://localhost/reports/discoverer.html', [
# us => 'jeisensc',
# pw => '999999',
# wbk => '0000 Budget_Check_Summary',
# wsk => '',
# pi_Region => 'West',
# eul => '',
# db => 'FOO'
# ]);
#
# my %deref = %$response;
# print $deref{"_content"};
#########################################################################
# attempt 3
#########################################################################
use LWP::UserAgent;

my %tags = ();
$tags{'us'} = 'jeisensc';
$tags{'pw'} = '999999';
$tags{'wbk'} = '0000 Budget_Check_Summary';
$tags{'wsk'} = '';
$tags{'pi_Region'} = 'West';
$tags{'eul'} = '';
$tags{'db'} = 'FOO';

my $ua = new LWP::UserAgent;
my $req = new HTTP::Request
'POST','http://localhost/reports/discoverer.html';
$req->content_type('application/x-www-form-urlencoded');
$req->content(%tags);
my $res = $ua->request($req);

}; ## end connectToDiscoverer
#########################################################################

Am I missing something here? When I run in browser, I just get
"<html><head></head></html>" and then if I try from the shell I just
get nothing.

Thanks

J. Gleixner · Oct 21, 2005

Stuck in API hell, hoping someone can help me.

I'm trying to build a small webapp with mod_perl to connect to Oracle
Discoverer 10g and pass parameters based on who they are. Discoverer
used to have a CGI-like API within itself which you could just say:

http(s)://server.domain.com/discoverer/plus?us=user;pw=pass;etc

but they took that away for 10g and replaced it so it needs a CGI
redirect:

http://oraclebi.blogspot.com/2005/08/passing-password-to-viewer.html

<form name="dashboard redirect" action=$server method="POST">
Username: <input type="input" name="us" value=""><br>
Password: <input type="input" name="pw" value=""><br>
Workbook: <input type="input" name="wbk" value=""><br>
Worksheet: <input type="input" name="wsk" value=""><br>
Page Item: <input type="input" name="pi_Region" value="West"><br>
EUL: <input type="input" name="eul" value=""><br>
Database: <input type="input" name="db" value=""><br>
<input type="submit" name="submit" value="Submit">
</form>

Which I have working if I type in the params, but I want to build them
and shoot the user straight in. So I've tried a couple different ways
to do this, and none have worked:
[...]

Am I missing something here? When I run in browser, I just get
"<html><head></head></html>" and then if I try from the shell I just
get nothing.

The URL you listed shows

<input type="submit" name="connect" value="Connect">
^^^^^^^
I don't see that in your %tags. I'd guess the script is looking for that
parameter and its value.

john.eisenschmidt · Oct 21, 2005

Yeah my mistake, but the CGI lets you into Discoverer either way:

<form name="dashboard redirect" action=$server method="POST">
Username: <input type="input" name="us" value=""><br>
Password: <input type="input" name="pw" value=""><br>
Workbook: <input type="input" name="wbk" value=""><br>
Worksheet: <input type="input" name="wsk" value=""><br>
Page Item: <input type="input" name="pi_Region" value="West"><br>
EUL: <input type="input" name="eul" value=""><br>
Database: <input type="input" name="db" value=""><br>
<input type="submit" name="connect" value="Connect">
</form>

and I made the change to my parameter list and still didn't have any
luck:

use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new;
my %tags = ();
$tags{'us'} = 'jeisensc';
$tags{'pw'} = '999999';
$tags{'wbk'} = '0000 Budget_Check_Summary';
$tags{'wsk'} = '';
$tags{'pi_Region'} = 'West';
$tags{'eul'} = '';
$tags{'db'} = 'FOO';
$tags{'connect'} = 'connect';

my $response = $ua->post('http://localhost/discoverer.html',
Content_Type => 'form-data',
# Content_Type => 'or application/x-www-form-urlencoded',
Content => [ %tags ]
);
if ($response->is_success) {
print $response->content; # or whatever
}
else {
die $response->status_line;
}
print $response->error_as_HTML unless $response->is_success;
print $response->content();

John Bokma · Oct 21, 2005

Am I missing something here?

What status code do you get back?

If it's "302 Found", your post request is redirected, which is not default
supported by LWP.

push @{ $ua->requests_redirectable }, 'POST';

does the trick (been bitten by it some time ago, see:
http://johnbokma.com/perl/phpbb-remote-backup.html )

Script using LWP::UserAgent is sometimes failing with 500 error,although server reports 200	9	Aug 23, 2011
LWP::UserAgent infinite hang	1	Mar 5, 2007
NTLM and LWP::UserAgent	4	Sep 12, 2006
LWP and Xerox printers	1	Jul 28, 2011
reading LWP in chunks	6	Oct 18, 2010
How to send utf-8 data using LWP::UserAgent?	8	Jul 25, 2006
Passing username and password using LWP::UserAgent	5	Dec 11, 2006
https request failing	2	Sep 18, 2012

Problem posting with LWP::UserAgent

john.eisenschmidt

J. Gleixner

john.eisenschmidt

John Bokma

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads