activity-logs
SPZ0D3HM1NX6CKHPXZYTAMRKKRVSGV04YVJJ087BSource Code
;; Activity Logs
(define-map logs uint {user: principal, action: (string-ascii 100), target: (string-ascii 100)})
(define-data-var log-id uint u0)
(define-public (log-activity (action (string-ascii 100)) (target (string-ascii 100)))
(let ((id (var-get log-id)))
(map-set logs id {user: tx-sender, action: action, target: target})
(var-set log-id (+ id u1))
(ok id)))
(define-read-only (get-log (id uint))
(map-get? logs id))
Functions (2)
| Function | Access | Args |
|---|---|---|
| log-activity | public | action: (string-ascii 100 |
| get-log | read-only | id: uint |