File: ominimal.ml

package info (click to toggle)
ocurl 0.2.1-13
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 768 kB
  • ctags: 1,276
  • sloc: ansic: 3,595; ml: 1,329; sh: 244; makefile: 131
file content (16 lines) | stat: -rwxr-xr-x 366 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
(*
 * ominimal.ml
 *
 * Copyright (c) 2003, Lars Nilsson, <lars@quantumchamaeleon.com>
 *)

let _ =
  if (Array.length Sys.argv) = 2 then
    begin
      Curl.global_init Curl.CURLINIT_GLOBALALL;
      let connection = new Curl.handle in
	connection#set_url Sys.argv.(1);
	connection#perform
    end
  else
    Printf.fprintf stderr "Usage: %s <url>\n" Sys.argv.(0)