credential-vault
SP1HGXPGWSHPHW3PNC66FWQ5VG1PFNYKBCV82FWNKSource Code
;; License Manager - Manage licenses
(define-map licenses {user: principal, license-type: (string-ascii 30)} {valid: bool})
(define-public (grant-license (license-type (string-ascii 30)))
(begin
(map-set licenses {user: tx-sender, license-type: license-type} {valid: true})
(ok true)))
(define-read-only (check-license (user principal) (license-type (string-ascii 30)))
(default-to false (get valid (map-get? licenses {user: user, license-type: license-type}))))
Functions (2)
| Function | Access | Args |
|---|---|---|
| grant-license | public | license-type: (string-ascii 30 |
| check-license | read-only | user: principal, license-type: (string-ascii 30 |