1 let _ = Helm_registry.load_from "extractor.conf.xml"
6 !! This binary should not be called by hand, use the extractor_manager. !!
8 usage: ./extractor[.opt] path owner
10 path: the path for the getter maps
11 owner: the owner of the tables to update
17 let _ = Sys.argv.(2), Sys.argv.(1) in
18 if Sys.argv.(1) = "-h"||Sys.argv.(1) = "-help"||Sys.argv.(1) = "--help" then
24 Invalid_argument _ -> usage (); exit 1
26 let owner = Sys.argv.(2)
27 let path = Sys.argv.(1)
30 print_endline (Printf.sprintf "%d alive on path:%s owner:%s"
31 (Unix.getpid()) path owner);
32 Helm_registry.set "tmp.dir" path;
36 ~host:(Helm_registry.get "db.host")
37 ~user:(Helm_registry.get "db.user")
38 ~database:(Helm_registry.get "db.database") ()
40 MetadataTypes.ownerize_tables owner;
42 let ic = open_in (path ^ "/todo") in
46 let l = input_line ic in
54 let len = float_of_int (List.length uris) in
59 let perc = ((float_of_int !i) /. len *. 100.0) in
60 let l = String.length u in
63 u ^ String.make (magic + 3 - l) ' '
65 "..." ^ String.sub u (l - magic) magic
67 Printf.printf "%d (%d of %.0f = %3.1f%%): %s\n"
68 (Unix.getpid ()) !i len perc short;
70 let uri = UriManager.uri_of_string u in
71 MetadataDb.index_obj ~dbd ~uri;
72 CicEnvironment.empty ())
74 print_string "END "; Unix.system "date"