get-operator | (fn [] #14338/operator) | nil |
update-cert | (fn [id new-metadata-hash new-title] (do (#14338/require-operator) (let [cert (get #14338/registry %0) ] (cond (nil? %3) (fail :NOT-FOUND "Certificate does not exist") nil) (let [updated (assoc %3 :metadata-hash %1 :title %2 :updated-at *timestamp*) ] (cond (lookup-meta *address* registry) (def registry (assoc #14338/registry %0 %4)) (fail :UNDECLARED registry)) %4)))) | nil |
owned-by | (fn [user-id] (cond (get #14338/ownership %0) *result* #{})) | nil |
init-next-id | (fn [start-id] (do (#14338/require-operator) (cond (lookup-meta *address* next-id) (def next-id %0) (fail :UNDECLARED next-id)) %0)) | nil |
next-id | 143 | nil |
ownership | {"cmp6wfq0700dlpv1tgm6xefce" #{142},"cmozcvkl1002uqz1sdue6hfdo" #{141,140,139}} | nil |
total-issued | (fn [] (dec #14338/next-id)) | nil |
lookup | (fn [id] (get #14338/registry %0)) | nil |
transfer-cert | (fn [id new-user-id] (do (#14338/require-operator) (let [cert (get #14338/registry %0) ] (cond (nil? %2) (fail :NOT-FOUND "Certificate does not exist") nil) (let [old-user (get %2 :user-id) updated (assoc %2 :user-id %1) ] (cond (lookup-meta *address* registry) (def registry (assoc #14338/registry %0 %4)) (fail :UNDECLARED registry)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14338/ownership %3 (disj (get #14338/ownership %3) %0))) (fail :UNDECLARED ownership)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14338/ownership %1 (conj (cond (get #14338/ownership %1) *result* #{}) %0))) (fail :UNDECLARED ownership)) %4)))) | nil |
set-operator | (fn [new-operator] (do (cond (not (= *caller* #14338/operator)) (fail :UNAUTHORIZED "Only governance can change the operator") nil) (cond (lookup-meta *address* operator) (def operator %0) (fail :UNDECLARED operator)) %0)) | nil |
registry | {142 {:timestamp 1779721453754,:user-id "cmp6wfq0700dlpv1tgm6xefce",:registered-by #14305,:metadata-hash "4245c008af612b5a428888996e56e770ac21b9bb039ef450e7b8b5e0045c623f",:title "\"That First Night\"",:id 142,:updated-at 1779814810879},141 {:timestamp 1779624804819,:user-id "cmozcvkl1002uqz1sdue6hfdo",:registered-by #14305,:metadata-hash "bbdb9ebea31a0ee7d30cc6b9c93f5b4bc0261d6e777c012c8e311ccd33a6d8c2",:title "DIRT ROAD DIAMONDS",:id 141,:updated-at 1779633900993},140 {:timestamp 1779587458806,:user-id "cmozcvkl1002uqz1sdue6hfdo",:registered-by #14305,:metadata-hash "264e8dcc13ecebc4400bd6905a45ab27fe32cd68a7997a1ab54efd5dca875df5",:title "BEFORE THE RINGS",:id 140,:updated-at 1779633899818},139 {:timestamp 1779586824944,:user-id "cmozcvkl1002uqz1sdue6hfdo",:registered-by #14305,:metadata-hash "41f1b908f8175995258d996647f63fcf1706139ea9e0fccf83a388b25debc37e",:title "HELL TONIGHT",:id 139,:updated-at 1779633772369}} | nil |
register | (fn [user-id metadata-hash title-hint] (do (#14338/require-operator) (let [id #14338/next-id cert (hash-map :timestamp *timestamp* :user-id %0 :registered-by *caller* :metadata-hash %1 :title %2 :id %3) ] (cond (lookup-meta *address* next-id) (def next-id (inc %3)) (fail :UNDECLARED next-id)) (cond (lookup-meta *address* registry) (def registry (assoc #14338/registry %3 %4)) (fail :UNDECLARED registry)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14338/ownership %0 (conj (cond (get #14338/ownership %0) *result* #{}) %3))) (fail :UNDECLARED ownership)) %4))) | nil |
require-operator | (fn [] (cond (not (= *caller* #14338/operator)) (fail :UNAUTHORIZED "Only the operator can perform this action") nil)) | nil |
operator | #14305 | nil |