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 Perl-Win32-Web@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs