site/invites.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(in-package #:vampire)

(wknd:defendpoint invites
  :using user-known
  :post :to "invites"
  :handle
  (progn
    (db:with-transaction ()
      (make-instance 'invite :maker user :uses-remaining 1))
    (wknd:endpoint-redirect 'home.html)))

(defun invite-validp (invite)
  (let ((uses (uses-remaining invite)))
    (or (< 0 uses) (null uses))))