(define-data-var executed bool false)
(define-constant deployer tx-sender)
(define-constant ststx-address 'SP4SZE494VC2YC5JYG7AYFQ44F5Q4PYV7DVMDPBG.ststx-token)
(define-constant aeusdc-address 'SP3Y2ZSH8P7D50B0VBTSX11S7XSG24M1VB9YFQA4K.token-aeusdc)
(define-constant wstx-address 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.wstx)
(define-constant arkadiko-address 'SP2C2YFP12AJZB4MABJBAJ55XECVS7E4PMMZ89YZR.arkadiko-token)
(define-constant alex-address 'SP102V8P0F7JX67ARQ77WEA3D3CFB5XW39REDT0AM.token-alex)
(define-constant usdh-address 'SPN5AKG35QZSK2M8GAMR4AFX45659RJHDW353HSG.usdh-token-v1)
(define-constant susdt-address 'SP2XD7417HGPRTREMKF748VNEQPDRR0RMANB7X1NK.token-susdt)
(define-constant usda-address 'SP2C2YFP12AJZB4MABJBAJ55XECVS7E4PMMZ89YZR.usda-token)
(define-constant sbtc-address 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token)
(define-constant ststxbtc-address-v2 'SP4SZE494VC2YC5JYG7AYFQ44F5Q4PYV7DVMDPBG.ststxbtc-token-v2)
(define-constant reserve-factor-params
{
reserve-factor: u50000000,
}
)
(define-public (execute (sender principal))
(begin
(asserts! (not (var-get executed)) (err u10))
(asserts! (is-eq contract-caller 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zest-governance) (err u11))
(try! (contract-call? .pool-reserve-data set-reserve-factor ststx-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor aeusdc-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor wstx-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor arkadiko-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor alex-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor usdh-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor susdt-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor usda-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor sbtc-address (get reserve-factor reserve-factor-params)))
(try! (contract-call? .pool-reserve-data set-reserve-factor ststxbtc-address-v2 (get reserve-factor reserve-factor-params)))
(var-set executed true)
(ok true)
)
)
(define-public (disable)
(begin
(asserts! (is-eq deployer tx-sender) (err u11))
(ok (var-set executed true))
)
)
(define-read-only (can-execute)
(begin
(asserts! (not (var-get executed)) (err u10))
(ok (not (var-get executed)))
)
)