From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <Peter.Gregory@cis.strath.ac.uk>
X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr
X-Spam-Level: *
X-Spam-Status: No, score=1.3 required=5.0 tests=AWL,NO_REAL_NAME,SPF_NEUTRAL 
	autolearn=disabled version=3.1.3
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from discorde.inria.fr (discorde.inria.fr [192.93.2.38])
	by yquem.inria.fr (Postfix) with ESMTP id 34DA0BC69
	for <caml-list@yquem.inria.fr>; Tue, 14 Aug 2007 21:37:20 +0200 (CEST)
Received: from smtphost.cis.strath.ac.uk (smtphost.cis.strath.ac.uk [130.159.196.96])
	by discorde.inria.fr (8.13.6/8.13.6) with ESMTP id l7EJbJr8010584
	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK)
	for <caml-list@yquem.inria.fr>; Tue, 14 Aug 2007 21:37:20 +0200
Received: from webmail.cis.strath.ac.uk (www@smtphost.cis.strath.ac.uk [130.159.196.96])
	by smtphost.cis.strath.ac.uk (8.13.4/8.13.4/Debian-3sarge3) with ESMTP id l7EJbFnZ013788;
	Tue, 14 Aug 2007 20:37:15 +0100
Received: from host-84-13-120-98.opaltelecom.net.120.13.84.in-addr.arpa 
     ([84.13.120.98])
        (SquirrelMail authenticated user pg)
        by webmail.cis.strath.ac.uk with HTTP;
        Tue, 14 Aug 2007 20:37:15 +0100 (BST)
Message-ID: <2030.84.13.120.98.1187120235.squirrel@webmail.cis.strath.ac.uk>
Date: Tue, 14 Aug 2007 20:37:15 +0100 (BST)
Subject: Re: [Caml-list] Basic Ocamlnet Question
From: Peter.Gregory@cis.strath.ac.uk
To: "Gerd Stolpmann" <info@gerd-stolpmann.de>
Cc: caml-list@yquem.inria.fr
User-Agent: SquirrelMail/1.4.4
MIME-Version: 1.0
Content-Type: text/plain;charset=iso-8859-15
Content-Transfer-Encoding: 8bit
X-Priority: 3 (Normal)
Importance: Normal
References: <1628.84.13.116.50.1187112599.squirrel@webmail.cis.strath.ac.uk>
    <1187113601.13041.31.camel@localhost.localdomain>
In-Reply-To: <1187113601.13041.31.camel@localhost.localdomain>
X-CIS-MailScanner: Found to be clean
X-CIS-MailScanner-SpamCheck: not spam, SpamAssassin (score=0.55, required 6,
	autolearn=disabled, NO_REAL_NAME 0.55)
X-CIS-MailScanner-From: pg@cis.strath.ac.uk
X-j-chkmail-Score: MSGID : 46C2046F.000 on discorde : j-chkmail score : XX : 5/20 0 0.000 -> 2
X-Miltered: at discorde with ID 46C2046F.000 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)!
X-Spam: no; 0.00; ocamlnet:01 stdout:01 gerd:01 gerd:01 token:01 token:01 caml-list:01 string:02 string:02 module:03 flush:03 let:03 let:03 cis:08 body:89 

> The "convenience module" is only for simple requests. Do it as follows:
>
>> let get_and_print url  =
>>    let s = http_post url [("","<request> <token>mytoken</token>
>> </request>")] in
>>    print_string s;
>>    flush stdout
>> ;;
>
> let get_and_print url =
>   let msg = new post_raw url "<request> <token>mytoken</token>
</request>" in
>   (msg # request_header `Base) # update_field
>      "content-type" "application/xml";
>   let p = new pipeline in
>   p # add msg;
>   p # run();
>   print_string msg#response_body#value
> ;;
>
>
> Gerd
>

Thanks Gerd, that works fine.

Peter