[REBOL] Re: Newbie: HTTP Post
From: lmecir:mbox:vol:cz at: 21-Jan-2002 13:21
Michael Jervis wrote:
> I wish to read in a set of blocks.
>
> The set of blocks consists of two blocks. The first block is a list of form
> data, the second is a list of urls.
>
> I wish to post each set of form data to each url and capture the result to
> unit test some web sites.
>
> Thanks
>
> Mike
Hi Mike,
sorry for the delay, I was too busy these days. This function works for me:
test-pages: function [
{test cgi pages}
pages [block!]
requests [block!]
] [results] [
results: make block! 0
foreach page pages [
foreach form-data requests [
append results read/custom page reduce ['post form-data]
]
]
]
print test-pages [http://147.230.128.175/cgi-bin/cgicheck.cgi] [
"testing a post request"
]
Cheers
Ladislav
