Create a Trakeva-friendly SQL query to archive nodes.

archive_sql_query.ml

#use "topfind";;
#thread;;
#require "ketrew";;
open Nonstd
module String = Sosa.Native_string

let escape_blob s = 
  let b = Buffer.create (String.length s * 2 + 4) in
  Buffer.add_string b "X'";
  String.iter s ~f:(fun c ->
      Buffer.add_string b (sprintf "%02X" (int_of_char c));
    );
  Buffer.add_char b '\'';
  Buffer.contents b

let finished_targets_collection = "finished-targets"
let archived_targets_collection = "archived-targets"

let () =
  printf
    "UPDATE trakeva_default_table SET collection = %s  WHERE collection = %s \n%!"
    (escape_blob archived_targets_collection)
    (escape_blob finished_targets_collection)