get-operator | (fn [] #14369/operator) | nil |
update-cert | (fn [id new-metadata-hash new-title] (do (#14369/require-operator) (let [cert (get #14369/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 #14369/registry %0 %4)) (fail :UNDECLARED registry)) %4)))) | nil |
owned-by | (fn [user-id] (cond (get #14369/ownership %0) *result* #{})) | nil |
init-next-id | (fn [start-id] (do (#14369/require-operator) (cond (lookup-meta *address* next-id) (def next-id %0) (fail :UNDECLARED next-id)) %0)) | nil |
next-id | 747 | nil |
ownership | {"cmopvtfvq001aps1udhrj7nvy" #{742},"cmuqemy2i003qpk1tenh3ixw1" #{744,743},"cmqebjy8x001er61t01h9ktpe" #{746,745}} | nil |
total-issued | (fn [] (dec #14369/next-id)) | nil |
lookup | (fn [id] (get #14369/registry %0)) | nil |
transfer-cert | (fn [id new-user-id] (do (#14369/require-operator) (let [cert (get #14369/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 #14369/registry %0 %4)) (fail :UNDECLARED registry)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14369/ownership %3 (disj (get #14369/ownership %3) %0))) (fail :UNDECLARED ownership)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14369/ownership %1 (conj (cond (get #14369/ownership %1) *result* #{}) %0))) (fail :UNDECLARED ownership)) %4)))) | nil |
set-operator | (fn [new-operator] (do (cond (not (= *caller* #14369/operator)) (fail :UNAUTHORIZED "Only governance can change the operator") nil) (cond (lookup-meta *address* operator) (def operator %0) (fail :UNDECLARED operator)) %0)) | nil |
registry | {746 {:timestamp 1790977418671,:user-id "cmqebjy8x001er61t01h9ktpe",:registered-by #14305,:metadata-hash "a8d5cf74cf5859f1260c55808d4415420eca9951edaadff357ccb69845292a36",:title "Heavy Like Rain",:id 746},744 {:timestamp 1790913385697,:user-id "cmuqemy2i003qpk1tenh3ixw1",:registered-by #14305,:metadata-hash "741b81b781310a624de5c8a25ef2755ba4e7f093149f3cea487765541fc25b75",:title "Church Boy",:id 744},745 {:timestamp 1790977360499,:user-id "cmqebjy8x001er61t01h9ktpe",:registered-by #14305,:metadata-hash "f85a86245dd10c7bb1547d5c86ca1c022c04e101b7917f3278fb0aab90cb65eb",:title "Be My Downfall",:id 745},743 {:timestamp 1790913209058,:user-id "cmuqemy2i003qpk1tenh3ixw1",:registered-by #14305,:metadata-hash "01942165780d37fbce25b822b7b8191b90ac62adbb527a70a0c598c66d4fc8cf",:title "Freedom",:id 743},742 {:timestamp 1790913127405,:user-id "cmopvtfvq001aps1udhrj7nvy",:registered-by #14305,:metadata-hash "a8fc39a3b79fffe5912d38c90825729ef623d51db31fbfd169a8aa181704136d",:title "Got the Motion",:id 742}} | nil |
register | (fn [user-id metadata-hash title-hint] (do (#14369/require-operator) (let [id #14369/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 #14369/registry %3 %4)) (fail :UNDECLARED registry)) (cond (lookup-meta *address* ownership) (def ownership (assoc #14369/ownership %0 (conj (cond (get #14369/ownership %0) *result* #{}) %3))) (fail :UNDECLARED ownership)) %4))) | nil |
require-operator | (fn [] (cond (not (= *caller* #14369/operator)) (fail :UNAUTHORIZED "Only the operator can perform this action") nil)) | nil |
operator | #14305 | nil |