examples/ominimal.ml

   1 (*
   2  * ominimal.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 = new Curl.handle in
  12         connection#set_url Sys.argv.(1);
  13         connection#perform;
  14     end
  15   else
  16     Printf.fprintf stderr "Usage: %s <url>\n" Sys.argv.(0)