diff options
Diffstat (limited to 'site/invites.lisp')
| -rw-r--r-- | site/invites.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/site/invites.lisp b/site/invites.lisp index dc1f31c..dab6a1b 100644 --- a/site/invites.lisp +++ b/site/invites.lisp @@ -1,6 +1,6 @@ (in-package #:vampire) -(wknd:defendpoint invites +(wknd:defendpoint create.invite :using user-known :post :to "invites" :handle @@ -14,7 +14,7 @@ (or (plusp uses) (null uses)))) -(wknd:defendpoint create-new-account +(wknd:defendpoint create.user :post :to "new-account" :parameters (username string) @@ -26,7 +26,7 @@ :authenticate (and (equal password password2) (setf invite (object-with-key invite-code))) - :authorize (invite-validp invite) + :authorize (invite-valid-p invite) :handle (progn (db:with-transaction () (when (uses-remaining invite) @@ -44,7 +44,7 @@ (defun new-account-page () (page (:title "V A M P I R E ~ JOIN") - (:form :method "POST" :action (wknd:route-to 'create-new-account) + (:form :method "POST" :action (wknd:route-to 'create.user) (:input :placeholder "Invite Code" :name "invite-code")(:br) (:input :placeholder "Username" :name "username")(:br) (:input :placeholder "Password" :name "password" :type "password")(:br) |