status-im
/
open-bounty
mirror of https://github.com/status-im/open-bounty.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Periodic updating of token balances 

* periodically ensure bounty contract internal balances are up to date
* update token balances to DB change detected
This commit is contained in:
Teemu Patja 2017-08-22 20:09:52 +03:00
parent e4124d6bc2
commit e995769e90
No known key found for this signature in database
GPG Key ID: F5B7035E6580FD4C
1 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/clj/commiteth/scheduler.clj
View File

@ -150,6 +150,28 @@
(let [scale (if (or (zero? x) (zero? y)) 1 (abs x))]
(<= (abs (- x y)) (* scale epsilon)))))
(defn update-bounty-token-balances
"Helper function for updating internal ERC20 token balances to token multisig contract. Will be called periodically for all open bounty contracts."
[bounty-addr]
(doseq [[tla token-data] (token-data/as-map)]
(let [balance (multisig/token-balance bounty-addr tla)]
(println tla bounty-addr balance)
(when (> balance 0)
(do
(log/debug "bounty at" bounty-addr "has" balance "of token" tla)
(let [internal-balance (multisig/token-balance-in-bounty bounty-addr tla)]
(when (not= balance internal-balance)
(log/info "balances not in sync, calling watch")
(multisig/watch-token bounty-addr tla))))))))
(defn update-contract-internal-balances
"It is required in our current smart contract to manually update it's internal balance when some tokens have been added."
[]
(doseq [{bounty-address :contract_address}
(db-bounties/open-bounty-contracts)]
(println "bounty-address" bounty-address)
(update-bounty-token-balances bounty-address)))
(defn update-balances
[]
(doseq [{contract-address :contract_address
@ -166,6 +188,7 @@
token-balances (multisig/token-balances contract-address)]
(log/debug "update-balances" balance-eth
balance-eth-str token-balances owner repo issue-number)
(when (or
(not (float= db-balance-eth balance-eth))
(not= db-tokens token-balances))
@ -188,22 +211,6 @@
balance-eth
balance-eth-str))))))
(defn update-bounty-token-balances
"Helper function for updating internal ERC20 token balances to token multisig contract. Will be called periodically for all open bounty contracts."
[bounty-addr]
(for [[tla token-data] (token-data/as-map)]
(let [balance (multisig/token-balance bounty-addr tla)]
(when (> balance 0)
(do
(log/debug "bounty at" bounty-addr "has" balance "of token" tla)
(let [internal-balance (multisig/token-balance-in-bounty bounty-addr tla)]
(when (not= balance internal-balance)
(log/info "balances not in sync, calling watch")
(multisig/watch-token bounty-addr tla))))))))
(defn get-bounty-funds
"Get funds in given bounty contract.
Returns map of asset -> balance
@ -229,6 +236,7 @@
(update-confirm-hash)
(update-payout-receipt)
(self-sign-bounty)
(update-contract-internal-balances)
(update-balances)
(log/debug "run-periodic-tasks done")))