Source 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)

FunctionAccessArgs
log-activitypublicaction: (string-ascii 100
get-logread-onlyid: uint