Source Code

(define-map verified-creators principal bool)
(define-map verified-collections uint bool)
(define-data-var admin principal tx-sender)
(define-read-only (is-verified-creator (creator principal)) (default-to false (map-get? verified-creators creator)))
(define-read-only (is-verified-collection (id uint)) (default-to false (map-get? verified-collections id)))
(define-public (verify-creator (creator principal))
  (begin
    (asserts! (is-eq tx-sender (var-get admin)) (err u1))
    (map-set verified-creators creator true)
    (ok true)))
(define-public (verify-collection (id uint))
  (begin
    (asserts! (is-eq tx-sender (var-get admin)) (err u1))
    (map-set verified-collections id true)
    (ok true)))

Functions (4)

FunctionAccessArgs
is-verified-creatorread-onlycreator: principal
is-verified-collectionread-onlyid: uint
verify-creatorpubliccreator: principal
verify-collectionpublicid: uint