From 5a586d369c823a040989283a3650444a2b0c0913 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <grant@unabridgedsoftware.com>
Date: Wed, 19 Jun 2024 12:01:29 -0500
Subject: [87] Add: invite creation, listing, and deletion when used up

---
 site/invites.lisp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 site/invites.lisp

(limited to 'site/invites.lisp')

diff --git a/site/invites.lisp b/site/invites.lisp
new file mode 100644
index 0000000..b463a4d
--- /dev/null
+++ b/site/invites.lisp
@@ -0,0 +1,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))))
-- 
cgit v1.2.3