Changeset 15 in code for trunk/cli/convert.ml

Timestamp:

Sep 24, 2022, 8:01:37 PM (3 years ago)

Author:

fox

Message:

List peers (from index.pck) in exported htm and gmi index

File:

• trunk/cli/convert.ml (modified) (2 diffs)

trunk/cli/convert.ml

@@ -45 +45 @@
                 (match Header_pack.of_string @@ File_store.to_string fname with
                 | Error s -> prerr_endline s
-                | Ok { info; _ } ->
+                | Ok { info; peers; _ } ->
                         let kv = let f = Filename.concat dir ".convert.conf" in (* TODO: better place to store convert conf? *)
                                 if Sys.file_exists f then File_store.of_kv_file f else Store.KV.empty in
@@ -51 +51 @@
                                 else Store.KV.add "Title" info.Header_pack.title kv in
                         let kv = Store.KV.add "Locations" (String.concat ";\n" info.Header_pack.locations) kv in
+                        let kv = Store.KV.add "Peers" (String.concat ";\n" Header_pack.(to_str_list peers)) kv in
                         let cs = converters types kv in
                         directory cs noindex dir info.Header_pack.id kv)