let output_to_sqlite args =
IFDEF HASDB THEN
begin
let pl = List.unique (List.flatten (List.map (function u ->
match Input.parse_uri u with
| ("deb", (_, _, _, _, f), _) -> Debian.Packages.input_raw [f]
| _ -> failwith "Other file formats than Debian are not yet supported for SQLite insertion"
) args)) in
let db = Backend.open_database "sqlite" (None, None, Some "localhost", None, "cudf") in
Backend.create_tables db;
List.iter (fun p ->
Backend.insert_package db p
) pl;
end
ELSE
failwith "DB not available"
END