blob: 6d005d7d75225c23de3a1082be32e7cf5dbf91e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package #:ldapadmin)
;; ========================================================================== ;;
(defclass login (generic-form)
()
(:documentation ""))
(define-generic-form-constructor (login "login-form" "/login/authenticate")
'((:name "dn" :label "DN" :field-type "text")
(:name "password" :label "Password" :field-type "password")
(:name "submit" :label "Login" :field-type "button")))
(defun login-json ()
(objects-to-json `(,(make-instance 'login))))
|
