[Caml-list] Ocamlnet and sending Referrer

[Caml-list] Ocamlnet and sending Referrer

[oliver]

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)?

Ciao,
   Oliver

Re: [Caml-list] Ocamlnet and sending Referrer

[oliver]

Is there a tutorial on Nethttp and such stuff?
This would help.

Re: [Caml-list] Ocamlnet and sending Referrer

[Gerd Stolpmann]

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 *)
  ...


Gerd

> 
> Ciao,
>    Oliver
> -----
> Caml-list mailing list.
> Subscription management: https://sympa-roc.inria.fr/wws/info/caml-list
> Archives: https://sympa-roc.inria.fr/wws/arc/caml-list
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
> Bug reports: http://caml.inria.fr/bin/caml-bugs
> 
> 
> 


-- 
------------------------------------------------------------
Gerd Stolpmann, Bad Nauheimer Str.3, 64289 Darmstadt,Germany 
gerd@gerd-stolpmann.de          http://www.gerd-stolpmann.de
Phone: +49-6151-153855                  Fax: +49-6151-997714
------------------------------------------------------------

Re: [Caml-list] Ocamlnet and sending Referrer

[oliver]

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

Re: [Caml-list] Ocamlnet and sending Referrer

[oliver]

On Thu, Dec 23, 2010 at 02:52:28PM +0100, oliver@first.in-berlin.de wrote:
[...]
> 
> Hmhhh
> 
> strange,  I get syntax errors with the following:

It's not strange.

Strange is that I didn't saw the problem ;)

> 
> ===========================================================
> 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";
[...]

Inside that module call it at toplevel, and therefore the "in" is nonsense
of course, or I had to encapsulate that stuff inside a function.

So, thanks Gerd for hinting me to the Pipeline-stuff,
and sorry for the traffic.

Ciao,
   Oliver