;; qibla-finder -- qibla direction verification log
(define-data-var entry-count uint u0)
(define-map entries uint { user: principal, city: (string-ascii 30), degrees: uint, verified: bool, block: uint })
(define-public (log-qibla (city (string-ascii 30)) (degrees uint))
(let ((id (+ (var-get entry-count) u1)))
(var-set entry-count id)
(map-set entries id { user: tx-sender, city: city, degrees: degrees, verified: false, block: stacks-block-height }) (ok id)))
(define-public (verify-entry (id uint))
(let ((e (unwrap! (map-get? entries id) (err u404))))
(map-set entries id (merge e { verified: true })) (ok true)))
(define-read-only (get-entry (id uint)) (map-get? entries id))
(define-read-only (get-count) (var-get entry-count))