mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

password protect

Browse source
This commit is contained in:
David Botton 2024-06-14 14:06:53 -04:00
parent 250d8129d2
commit e443a34dc5
5 changed files with 224 additions and 195 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tools/clog-db-admin.lisp
View file

@ -175,6 +175,13 @@
(setf (title (html-document body)) "CLOG DB Admin")
(clog-gui-initialize body)
(add-class body "w3-blue-grey")
(when *password-protect*
(input-dialog body "Enter password:" (lambda (result)
(unless (equal result (if (functionp *password-protect*)
(funcall *password-protect* body)
*password-protect*))
(close-connection (window body))))
:time-out 360 :title "Password"))
(let* ((menu (create-gui-menu-bar body))
(icon (create-gui-menu-icon menu :on-click #'on-help-about))
(file (create-gui-menu-drop-down menu :content "Database"))