Mailing List Archive: Re: Newbie: HTTP Post

[REBOL] Re: Newbie: HTTP Post

From: ladislav:mecir:vslib:cz at: 21-Jan-2002 10:54


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