get-operator | (fn [] #14351/operator) | nil |
update-cert | (fn [id new-metadata-hash new-title] (do (#14351/require-operator) (let [cert (get #14351/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 #14351/registry %0 %4)) (fail :UNDECLARED registry)) %4)))) | nil |
owned-by | (fn [user-id] (cond (get #14351/ownership %0) *result* #{})) | nil |
init-next-id | (fn [start-id] (do (#14351/require-operator) (cond (lookup-meta *address* next-id) (def next-id %0) (fail :UNDECLARED next-id)) %0)) | nil |
next-id | 333 | nil |
ownership | {"cmozcvkl1002uqz1sdue6hfdo" #{330,329,331,328},"cmqfwg1bo00bbr61tisg8rt5c" #{332}} | nil |
total-issued | (fn [] (dec #14351/next-id)) | nil |
lookup | (fn [id] (get #14351/registry %0)) | nil |
transfer-cert | (fn [id new-user-id] (do (#14351/require-operator) (let [cert (get #14351/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 #14351/registry %0 %4)) (fail :UNDECLARED registry)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14351/ownership %3 (disj (get #14351/ownership %3) %0))) (fail :UNDECLARED ownership)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14351/ownership %1 (conj (cond (get #14351/ownership %1) *result* #{}) %0))) (fail :UNDECLARED ownership)) %4)))) | nil |
set-operator | (fn [new-operator] (do (cond (not (= *caller* #14351/operator)) (fail :UNAUTHORIZED "Only governance can change the operator") nil) (cond (lookup-meta *address* operator) (def operator %0) (fail :UNDECLARED operator)) %0)) | nil |
registry | {332 {:timestamp 1783675990073,:user-id "cmqfwg1bo00bbr61tisg8rt5c",:registered-by #14305,:metadata-hash "67af0e16639d6ba81d301a76d8ac5f7cc5f1ef0bafc99e18714c00e4f9559290",:title "The WAV3 Dew N' Tha Morning (Yup)",:id 332,:updated-at 1783699917264},330 {:timestamp 1783578259744,:user-id "cmozcvkl1002uqz1sdue6hfdo",:registered-by #14305,:metadata-hash "909758e1f1eb4a6ab01deeb25b004b1c67da1c3d1b6fac7237943b907f2c7b1c",:title "It's Probably Me",:id 330,:updated-at 1783614421189},329 {:timestamp 1783578151456,:user-id "cmozcvkl1002uqz1sdue6hfdo",:registered-by #14305,:metadata-hash "1d782486edbc581ca11b73e009d47850dc83e3e5823353c29bb149e9d625b01e",:title "October Made Me",:id 329,:updated-at 1783614420276},331 {:timestamp 1783578346744,:user-id "cmozcvkl1002uqz1sdue6hfdo",:registered-by #14305,:metadata-hash "95e4c94d0c73730987bad97c672fd8e9e656f4fde706042878d074da4facf611",:title "Ain't Done Yet",:id 331,:updated-at 1783614421795},328 {:timestamp 1783578064921,:user-id "cmozcvkl1002uqz1sdue6hfdo",:registered-by #14305,:metadata-hash "f61c6c71884cf83179e0ad737e750eabf20516d3afbfdf5b955e767e7a857445",:title "Backroads Raised",:id 328,:updated-at 1783614422492}} | nil |
register | (fn [user-id metadata-hash title-hint] (do (#14351/require-operator) (let [id #14351/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 #14351/registry %3 %4)) (fail :UNDECLARED registry)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14351/ownership %0 (conj (cond (get #14351/ownership %0) *result* #{}) %3))) (fail :UNDECLARED ownership)) %4))) | nil |
require-operator | (fn [] (cond (not (= *caller* #14351/operator)) (fail :UNAUTHORIZED "Only the operator can perform this action") nil)) | nil |
operator | #14305 | nil |