Re: HTTP request arguments/content

[Bill Luebkert]

Marijn Pessers wrote:
> 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.

Try this one:

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

sub get_page_http ($$$$$;$);

my $ua = LWP::UserAgent->new;
my $remote = 'localhost';       # fix me
my $path = '/somecgi.pl';       # fix me
my $leverancier_nr = 'stuff';
my $FMnummer = 'more stuff';
my $datastring = 'what goes here?';

my ($hdr, $ct) = get_page_http ($ua, $remote, $path, $leverancier_nr,
   $FMnummer, $datastring);
print "\nhdrs:\n$hdr\nct:\n$ct\n";
exit;

sub get_page_http ($$$$$;$) {
        my $ua = shift;
        my $remote = shift || 'localhost';
        my $path = shift || '/';
        my $leverancier_nr = shift;
        my $FMnummer = shift;
        my $datastring = shift || '';   # raw datastring for ?????

# print "get_page: http:$remote$path ('$datastring')\n";

my $url = "http://$remote$path";;
my $req = POST $url, Content => [
     'submit_waarde' => '', 'page' => 'zks1', 'submit_waarde' => '',
     'leverancier_nr' => $leverancier_nr, 'FMnummer' => $FMnummer ];

for (1 .. 2) {
        my $res = $ua->request($req);
        if ($res->is_error) {
                sleep 1;        # wait a sec and try again
                next;
        }
        if (wantarray) {
                return ($res->headers_as_string, $res->content);
        } else {
                return $res->content;
        }
}

# failed return null string(s)

if (wantarray) {
        return ('', '');
} else {
        return '';
}

}

__END__
_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs