From 6562d37a304d48d49c8b46a9bb9122df42bb9de0 Mon Sep 17 00:00:00 2001
From: nolash <dev@holbrook.no>
Date: Tue, 21 Dec 2021 14:19:26 +0000
Subject: [PATCH] Add demurrage poker script

---
 apps/helpers/demurrage_token_poke/poke.sh | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 apps/helpers/demurrage_token_poke/poke.sh

diff --git a/apps/helpers/demurrage_token_poke/poke.sh b/apps/helpers/demurrage_token_poke/poke.sh
new file mode 100644
index 00000000..50d2edfa
--- /dev/null
+++ b/apps/helpers/demurrage_token_poke/poke.sh
@@ -0,0 +1,18 @@
+#!/bin/bash
+
+default_token_address=`eth-contract-registry-list --raw -e $CIC_REGISTRY_ADDRESS DefaultToken`
+export TOKEN_ADDRESSES=${TOKEN_ADDRESSES:-$default_token_address}
+
+IFS="," read -r -a token_addresses <<< $TOKEN_ADDRESSES
+export RPC_VERIFY=1
+
+for token_address in ${token_addresses[@]}; do
+	>&2 echo checking token address $token_address
+	t=`eth-encode --signature demurrageTimestamp -e $token_address --notx`
+	v=`eth-encode --signature demurrageAmount -e $token_address --notx`
+	>&2 echo last demurrage apply call for $token_address was value $v at $t 
+	if [ "$?" -eq 0 ]; then
+		h=`eth-encode --signature changePeriod -i $CHAIN_SPEC -y $WALLET_KEY_FILE -e $token_address --fee-limit 8000000 -s -ww`
+		>&2 echo applied demurrage on $token_address tx hash $h
+	fi
+done