;; iftar-pledge -- Ramadan iftar meal pledge & distribution
(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-AUTH (err u401))
(define-constant ERR-NONE (err u404))
(define-data-var pledge-count uint u0)
(define-data-var total-meals uint u0)
(define-map pledges uint { donor: principal, meals: uint, location: (string-utf8 100), date: uint, fulfilled: bool })
(define-map donor-totals principal uint)
(define-public (make-pledge (meals uint) (location (string-utf8 100)) (date uint))
(let ((id (+ (var-get pledge-count) u1))
(prev (default-to u0 (map-get? donor-totals tx-sender))))
(var-set pledge-count id)
(var-set total-meals (+ (var-get total-meals) meals))
(map-set pledges id { donor: tx-sender, meals: meals, location: location, date: date, fulfilled: false })
(map-set donor-totals tx-sender (+ prev meals))
(ok id)))
(define-public (fulfill-pledge (id uint))
(let ((p (unwrap! (map-get? pledges id) ERR-NONE)))
(asserts! (is-eq tx-sender (get donor p)) ERR-AUTH)
(map-set pledges id (merge p { fulfilled: true })) (ok true)))
(define-read-only (get-pledge (id uint)) (map-get? pledges id))
(define-read-only (get-total-meals) (var-get total-meals))
(define-read-only (get-donor-total (addr principal)) (default-to u0 (map-get? donor-totals addr)))