| Address | | Origin address of transaction |
| Account Key |  0x5abb7143b3a48328...
| Ed25519 public key of the signer |
| Transaction Hash |  0x8da17c97cd78cc2e...
| Hash code of the transaction object |
| Type | Invoke | Type of transaction. Most common is 'Invoke' for general purpose execution. |
| Transaction Data | {:origin #135,:sequence 16,:command (def tipper (deploy (quote (do (def owner *caller*) (def frozen? false) (def tips {}) (defn ^{:callable true} finalize! [tip] (let [artifact (:artifact tip) recipient (get-in tips [artifact :recipient]) amount (get-in tips [artifact :amount]) finalized? (get-in tips [artifact :finalized?])] (if (not (and recipient amount)) (fail :STATE "The recipient and the tip amount must be set") (def tips (assoc-in tips [artifact :finalized?] true))))) (defn ^{:callable true} tip! [tip] (let [recipient (:recipient tip) artifact (:artifact tip) finalized? (get-in tips [artifact :finalized?])] (cond (not artifact) (fail :ARGUMENT "Arg map must contain :artifact") finalized? (fail :STATE "This tip has been finalized") (= *caller* owner) (fail :TRUST (str "Not authorised to tip on behalf of " owner)) :else (let [amount (or (get-in tips [artifact :amount]) *offer*) recipient (or recipient (:recipient (tips artifact))) tip (assoc tip :amount amount)] (when recipient (def tips (assoc-in tips [artifact :recipient] recipient))) (if (not (> amount 0)) (fail :FUNDS "No tip offered!") (do (accept amount) (def tips (assoc-in tips [artifact :amount] amount)) (return "Thanks for the tip!") (when (and recipient artifact) (finalize! tip)))))))) (defn ^{:callable true} upgrade [code] (if frozen? (fail :STATE "Cannot upgrad. The tipper logic has been frozen") (if (= *caller* owner) (eval code) (fail :TRUST "Not authorised to upgrade"))))))))} | CVX representation of the transaction |
| Storage Size | 2567 | Bytes consumed by transaction data |
