Generate script to patch receipt chain hashes and last VRF output

scripts/migrate-receipt-chain-hashes.sh

@@ -0,0 +1,27 @@
+#!/bin/bash
+
+if [ ! $# -eq 1 ] ; then
+    echo "Usage" $0 archive-db
+    exit 0
+fi
+
+ARCHIVE_DB=$1
+HASHES_FILE=hashes_file.tmp
+UPDATE_SCRIPT=hashes_update.sql
+
+rm -f $HASHES_FILE
+rm -f $UPDATE_SCRIPT
+
+echo "select id,receipt_chain_hash from zkapp_account_precondition where receipt_chain_hash is not null;" | \
+    psql --csv -t -q $ARCHIVE_DB > $HASHES_FILE
+
+for line in `cat $HASHES_FILE`
+  do  (
+    ID=$(echo $line | awk -F , '{print $1}');
+    FP=$(echo $line | awk -F , '{print $2}');
+    B58=$(echo $FP | _build/default/src/app/receipt_chain_hash_to_b58/receipt_chain_hash_to_b58.exe);
+    echo $ID "'"$B58"'" | awk '{print "UPDATE zkapp_account_precondition SET receipt_chain_hash=" $2 " WHERE id=" $1 ";"}' >> $UPDATE_SCRIPT)
+done
+
+echo "Done!"
+echo "Now run:" "psql -d" $ARCHIVE_DB "<" $UPDATE_SCRIPT

src/app/receipt_chain_hash_to_b58/dune

@@ -0,0 +1,19 @@
+(executable
+ (package receipt_chain_hash_to_b58)
+ (name receipt_chain_hash_to_b58)
+ (public_name receipt_chain_hash_to_b58)
+ (libraries
+   ;; opam libraries
+   ;; local libraries
+   mina_base
+   kimchi_backend
+   kimchi_backend.pasta
+   kimchi_backend.pasta.basic
+   pickles
+   pickles.backend
+   pickles_types
+   snark_params
+ )
+ (preprocessor_deps ../../config.mlh)
+ (instrumentation (backend bisect_ppx))
+ (preprocess (pps ppx_mina ppx_version)))

src/app/receipt_chain_hash_to_b58/receipt_chain_hash_to_b58.ml

@@ -0,0 +1,5 @@
+let () =
+  let s = Stdlib.read_line () in
+  let fp = Kimchi_backend.Pasta.Basic.Fp.of_string s in
+  let receipt_chain_hash : Mina_base.Receipt.Chain_hash.t = fp in
+  Format.printf "%s@." (Mina_base.Receipt.Chain_hash.to_base58_check receipt_chain_hash)

src/dune-project

@@ -163,6 +163,7 @@
 (package (name random_oracle_input))
 (package (name random_oracle))
 (package (name rc_pool))
+(package (name receipt_chain_hash_to_b58))
 (package (name replayer))
 (package (name rfc3339_time))
 (package (name rocksdb))