Hello,
I have been trying to open a html page in perl. It works but I can't send
the correct arguments (post values) with it to work.
Here is the code:
[begin snippet]
.
my $browser = LWP::UserAgent->new;
.
sub get_page_http($$$$$;$){
my $browser = shift;
my $remote = shift || 'localhost';
my $path = shift;
my $leverancier_nr = shift;
my $FMnummer = shift;
my $datastring = shift || '';#### raw datastring
my $res;
log_print "get_page: $remote:$path ($datastring)\n";
my $ua = LWP::UserAgent->new();
my $url = new URI::URL($remote.$path);
<some code to define the content length>
my $hdrs = new HTTP::Headers('Content-Length' => $content_length);
my @arg = ('submit_waarde' => '', 'page' => 'zks1', 'submit_waarde' => '',
'leverancier_nr' => $leverancier_nr, 'FMnummer' => $FMnummer);
my $retry=1;
while($retry){
my $formpost= HTTP::Request->new('POST', $url, $hdrs, @arg);
$res = $browser->request($formpost);
if($res->is_error){
$retry++;
if($retry>2){
$retry=0;
####only try twice
}
}
$retry=0;
}
if (wantarray){
#my($header,$html_body)=split /$BLANK/,$res->content,2;
return ($res->headers,$res->content);
}else{
return $res->content;
}
}
[end snippet]
The problem is that I can not get the post arguments correctly. I have been
trying to put them in the header of using message in the HTTP::Message
class.
.
my $mssg = HTTP::Message->new;
.
Can you tell me how to post the post values?
Greetings,
Marijn Pessers
_______________________________________________
Perl-Win32-Web mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
