Re: [Caml-list] Ocamlnet and sending Referrer

[oliver@first.in-berlin.de]

On Thu, Dec 23, 2010 at 12:49:13AM +0100, Gerd Stolpmann wrote:
> Am Mittwoch, den 22.12.2010, 20:39 +0100 schrieb
> oliver@first.in-berlin.de:
> > Hi,
> > 
> > 
> > for a simple script I used
> > Http_client.Convenience from ocamlnet.
> > 
> > This module is really convenient and I enjoyed to have it
> > for some simple get-calls. I'm quite happy with this.
> > 
> > But now I need to send a Referrer, and this seems not to work
> > with this module.
> > 
> > What module must be used for sending a Referrer?
> > And... just in case I may later will need Cookies also...
> > ...what module can handle this?
> > 
> > Can this all be done with ocamlnet-stuff?
> > If there are more than one possibility, which module
> > would you recommend me (and why)?
> 
> The convenience module does not permit it to set additional headers. Use
> the pipeline API:
> 
> open Http_client
> 
> let call = new get "http://host/path" ;;
> (call # request_header `Base) # update_field "Referer" (* sic! *) "...";
> 
> let p = new pipeline ;;
> p # add call ;;
> p # run();;
> if call # status = `Successful then
>   let response = call # response_body # value in
>   ...
> else (* error case *)

Hmhhh

strange,  I get syntax errors with the following:

===========================================================
module Networking =
  struct
    open Pcre

    open Http_client

    let call = new get "http://www.ocaml.org" in
    (call # request_header `Base) # update_field "Referer" "foobar";

    let p = new pipeline in
    p # add call;
    p # run()
(*
    if call # status = `Successful then
      let response = call # response_body # value in
      ...
    else (* error case *)
      ...

*)

  end
===========================================================

The syntax error is found between the URL and the "in".

Can you take away the tomatoes from my tired eyes? ;)


Ciao,
   Oliver