Function: hashcash-verify-payment

hashcash-verify-payment is a byte-compiled function defined in hashcash.el.gz.

Signature

(hashcash-verify-payment TOKEN &optional RESOURCE AMOUNT)

Documentation

Verify a hashcash payment.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/hashcash.el.gz
;;;###autoload
(defun hashcash-verify-payment (token &optional resource amount)
  "Verify a hashcash payment."
  (let* ((split (split-string token ":"))
	 (key (if (< (hashcash-version token) 1.2)
		  (nth 1 split)
		  (pcase (string-to-number (nth 0 split))
		    (0 (nth 2 split))
		    (1 (nth 3 split))))))
    (cond ((null resource)
	   (let ((elt (assoc key hashcash-accept-resources)))
	     (and elt (hashcash-check-payment token (car elt)
			(or (cadr elt) hashcash-default-accept-payment)))))
	  ((equal token key)
	   (hashcash-check-payment token resource
				(or amount hashcash-default-accept-payment)))
	  (t nil))))