4 * Copyright (c) 2003-2008, Lars Nilsson, <lars@quantumchamaeleon.com>
9 let reader file maxBytes
=
10 let buffer = Bytes.create maxBytes
in
11 let readBytes = input file
buffer 0 maxBytes
in
16 counter := !counter + readBytes;
17 Bytes.sub_string
buffer 0 readBytes
21 if Array.length
Sys.argv
= 3 then
23 Curl.global_init
Curl.CURLINIT_GLOBALNOTHING
;
25 let conn = Curl.init
()
26 and file
= Sys.argv
.(1)
27 and location
= Sys.argv
.(2) in
28 let fileContent = open_in file
in
29 Curl.set_upload
conn true;
30 Curl.set_url
conn location
;
31 Curl.set_readfunction
conn (reader fileContent);
34 Printf.printf
"Uploaded %d bytes\n" !counter
36 Curl.global_cleanup
()
39 Printf.printf
"Usage: oput <ftp location> <file>\n"