examples/ossl.ml

   1 (*
   2  * ossl.ml
   3  *
   4  * Copyright (c) 2003-2008, Lars Nilsson, <lars@quantumchamaeleon.com>
   5  *)
   6
   7 let () =
   8   if Array.length Sys.argv = 2 then
   9     begin
  10       Curl.global_init Curl.CURLINIT_GLOBALALL;
  11       let connection = Curl.init () in
  12       Curl.set_url connection Sys.argv.(1);
  13       Curl.set_sslverifypeer connection true;
  14       Curl.set_sslverifyhost connection Curl.SSLVERIFYHOST_HOSTNAME;
  15       Curl.perform connection
  16     end
  17   else
  18     Printf.fprintf stderr "Usage: %s <url>\n" Sys.argv.(0)