;; athan-log -- daily athan call logging
(define-data-var log-count uint u0)
(define-map logs uint { caller: principal, city: (string-ascii 30), prayer: (string-ascii 10), block: uint })
(define-public (log-athan (city (string-ascii 30)) (prayer (string-ascii 10)))
(let ((id (+ (var-get log-count) u1)))
(var-set log-count id)
(map-set logs id { caller: tx-sender, city: city, prayer: prayer, block: stacks-block-height }) (ok id)))
(define-read-only (get-log (id uint)) (map-get? logs id))
(define-read-only (get-count) (var-get log-count))