Hello,
I have a web application written using lwt and ocsigen that needs to get data
using https.
In order to do that, I use the Http_client.Convenience module from Ocamlnet, and
use Lwt.detach to perform the call (there probably is a smater way to do this, I
am open to any suggestion). The http call is performed and the data is
displayed, but then the server crashed, apparently because of a segfault.
here is the code for a test eliom module that reproduce the problem, compiled
using
ocamlfind ocamlc -c -thread -package
equeue-ssl,netclient,lwt,lwt.preemptive,ocsigen test_server.ml
Cheers
-Pierre
(*************************************)
open Lwt
open XHTML.M
open Eliom_services
open Eliom_parameters
open Eliom_sessions
open Eliom_predefmod.Xhtml;;
(* initialising Http_client.Convenience to use https *)
Ssl.init();
Http_client.Convenience.configure_pipeline
(fun p ->
let ctx = Ssl.create_context Ssl.TLSv1 Ssl.Client_context in
let tct = Https_client.https_transport_channel_type ctx in
p # configure_transport Http_client.https_cb_id tct
)
;;
module H = Http_client.Convenience
let test_service = new_service ~path:[""]
~get_params:unit
()
;;
let test_handler = fun sp () () ->
(* thread that request data from a url *)
Lwt_preemptive.detach (function () -> H.http_get "https://ocsigen.org";) () >>=
function s ->
(*page that display the data*)
return (
html (head (title (pcdata "test")) [])
(body [
h1 [pcdata "the data are:"];
p [ pcdata s]
]
)
)
;;
register test_service test_handler;;
--
Caml-list mailing list. Subscription management and archives:
https://sympa-roc.inria.fr/wws/info/caml-list
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
Bug reports: http://caml.inria.fr/bin/caml-bugs
