[Caml-list] ocamlnet question: get with arbitrary header

[Caml-list] ocamlnet question: get with arbitrary header

[Alan Schmitt]

[-- Attachment #1: Type: text/plain, Size: 608 bytes --]

Hello,

I'm writing a small tool to fetch articles from wallabag, and as part of
the protocol I first need to get a token, then in subsequent calls I
need to provide it as a http header. I've been using
Nethttp_client.Convenience till now, but I don't see a way to specify an
http header. I looked at the documentation for Nethttp_client, and I'm
not seeing it either. Is there a way to set a header for a GET request
to Authorization with value Bearer foobar?

Thanks,

Alan

-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7
Monthly Athmospheric CO₂, Mauna Loa Obs. 2018-02: 408.35, 2017-02: 406.42

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 528 bytes --]

Re: [Caml-list] ocamlnet question: get with arbitrary header

[Gerd Stolpmann]

[-- Attachment #1.1: Type: text/plain, Size: 1341 bytes --]

No, with the Convenience module you cannot do it. It's really meant for
super-simple stuff only.

But you can do:

let pipeline = new Nethttp.pipeline in
let call = new Nethttp_client.get url in
call # set_request_header (new Netmime.basic_mime_header
["Authorization", ...]);
pipeline # add call;
pipeline # run()

then check for call # response_* values. You can reuse the pipeline
across calls.

Gerd


On 21.03.18 20:29, Alan Schmitt wrote:
> Hello,
>
> I'm writing a small tool to fetch articles from wallabag, and as part of
> the protocol I first need to get a token, then in subsequent calls I
> need to provide it as a http header. I've been using
> Nethttp_client.Convenience till now, but I don't see a way to specify an
> http header. I looked at the documentation for Nethttp_client, and I'm
> not seeing it either. Is there a way to set a header for a GET request
> to Authorization with value Bearer foobar?
>
> Thanks,
>
> Alan
>

-- 
------------------------------------------------------------
Gerd Stolpmann, Darmstadt, Germany    gerd@gerd-stolpmann.de
My OCaml site:          http://www.camlcity.org
Contact details:        http://www.camlcity.org/contact.html
Company homepage:       http://www.gerd-stolpmann.de
------------------------------------------------------------



[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 488 bytes --]

Re: [Caml-list] ocamlnet question: get with arbitrary header

[Alan Schmitt]

[-- Attachment #1: Type: text/plain, Size: 781 bytes --]

Hello Gerd,

On 2018-03-22 20:55, Gerd Stolpmann <info@gerd-stolpmann.de> writes:

> No, with the Convenience module you cannot do it. It's really meant for
> super-simple stuff only.
>
> But you can do:
>
> let pipeline = new Nethttp.pipeline in
> let call = new Nethttp_client.get url in
> call # set_request_header (new Netmime.basic_mime_header
> ["Authorization", ...]);
> pipeline # add call;
> pipeline # run()
>
> then check for call # response_* values. You can reuse the pipeline
> across calls.

Thank you for the tip. The API I'm interacting with also uses the PATCH
method, is there support for it in ocamlnet?

Best,

Alan

-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7
Monthly Athmospheric CO₂, Mauna Loa Obs. 2018-02: 408.35, 2017-02: 406.42

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 528 bytes --]

Re: [Caml-list] ocamlnet question: get with arbitrary header

[Gerd Stolpmann]

[-- Attachment #1.1: Type: text/plain, Size: 1773 bytes --]



On 26.03.18 07:57, Alan Schmitt wrote:
> Hello Gerd,
>
> On 2018-03-22 20:55, Gerd Stolpmann <info@gerd-stolpmann.de> writes:
>
>> No, with the Convenience module you cannot do it. It's really meant for
>> super-simple stuff only.
>>
>> But you can do:
>>
>> let pipeline = new Nethttp.pipeline in
>> let call = new Nethttp_client.get url in
>> call # set_request_header (new Netmime.basic_mime_header
>> ["Authorization", ...]);
>> pipeline # add call;
>> pipeline # run()
>>
>> then check for call # response_* values. You can reuse the pipeline
>> across calls.
> Thank you for the tip. The API I'm interacting with also uses the PATCH
> method, is there support for it in ocamlnet?


Well, you would have to create your own class for that, e.g. there is
for GET:

class get_call = object(self)   inherit generic_call   method private
fixup_request() = ()   method private def_request_method = "GET"  
method private def_is_idempotent = true   method private
def_has_req_body = false   method private def_has_resp_body = true  
method private def_empty_path_replacement = "/" end

class get the_query =   object (self)     inherit get_call    
initializer       self # set_request_uri the_query   end


For PATCH you'd have to define something along these lines. For other
examples like POST see the source code.

Gerd

> Best,
>
> Alan
>

-- 
------------------------------------------------------------
Gerd Stolpmann, Darmstadt, Germany    gerd@gerd-stolpmann.de
My OCaml site:          http://www.camlcity.org
Contact details:        http://www.camlcity.org/contact.html
Company homepage:       http://www.gerd-stolpmann.de
------------------------------------------------------------



[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 488 bytes --]