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

can set timestamp function

Browse source
This commit is contained in:
David Botton 2022-05-11 20:19:27 -04:00
parent cee70f1c41
commit 9f252f68e0
3 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-data.lisp
View file

@ -124,6 +124,10 @@ keyword package."
;; Implementation - simple sql writers ;; Implementation - simple sql writers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defparameter *mysql-timestamp* "unix_timestamp()")
(defparameter *sqlite-timestamp* "strftime('%s')")
(defparameter *postgresql-timestamp* "extract(epoch from now())")
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;; sql-field-list ;; ;; sql-field-list ;;
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;

15
source/clog-web-dbi.lisp
View file

@ -132,7 +132,7 @@ if one is present and login fails."
;; create-base-table ;; ;; create-base-table ;;
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;
(defun create-base-tables (sql-connection) (defun create-base-tables (sql-connection &key (sql-timestamp-func *sqlite-timestamp*))
(dbi:do-sql (dbi:do-sql
sql-connection sql-connection
"create table config (key varchar, value varchar)") "create table config (key varchar, value varchar)")
@ -149,10 +149,10 @@ if one is present and login fails."
"create table users (username varchar, password varchar, token varchar)") "create table users (username varchar, password varchar, token varchar)")
(dbi:do-sql (dbi:do-sql
sql-connection sql-connection
(sql-insert* "content" '(:key "main" (sql-insert* "content" `(:key "main"
:title "Welcome to CLOG" :title "Welcome to CLOG"
:value "Sample data" :value "Sample data"
:createdate ("date()")))) :createdate (,sql-timestamp-func))))
(dbi:do-sql (dbi:do-sql
sql-connection sql-connection
(sql-insert* "users" `(:username "admin" (sql-insert* "users" `(:username "admin"
@ -203,7 +203,8 @@ optional WHERE and ORDER-BY sql."
(can-admin :content-admin) (can-admin :content-admin)
(can-comment :content-comment) (can-comment :content-comment)
(can-show-comments :content-show-comments) (can-show-comments :content-show-comments)
(can-edit :content-edit)) (can-edit :content-edit)
(sql-timestamp-func *sqlite-timestamp*))
"Create content for CLOG-WEB:CREATE-WEB-PAGE based on dbi TABLE "Create content for CLOG-WEB:CREATE-WEB-PAGE based on dbi TABLE
value where key=PAGE or if FOLLOW-URL-PAGE is true PAGE is default value where key=PAGE or if FOLLOW-URL-PAGE is true PAGE is default
page if no second on path otherwise page is the second on path (first page if no second on path otherwise page is the second on path (first
@ -232,7 +233,7 @@ CAN-SHOW-COMMENTS and if CAN-EDIT unless they are set to nil."
(list :content pages (list :content pages
:do-add (when (clog-auth:is-authorized-p roles can-edit) :do-add (when (clog-auth:is-authorized-p roles can-edit)
(lambda (content) (lambda (content)
(push '("unixepoch()") content) (push (list sql-timestamp-func) content)
(push :createdate content) (push :createdate content)
(push page content) (push page content)
(push :key content) (push :key content)
@ -275,9 +276,9 @@ CAN-SHOW-COMMENTS and if CAN-EDIT unless they are set to nil."
:new-comment (when (clog-auth:is-authorized-p :new-comment (when (clog-auth:is-authorized-p
roles can-comment) roles can-comment)
(lambda (content) (lambda (content)
(push '("unixepoch()") content) (push (list sql-timestamp-func) content)
(push :|createdate| content) (push :|createdate| content)
(push '("unixepoch()") content) (push (list sql-timestamp-func) content)
(push :|key| content) (push :|key| content)
(push page content) (push page content)
(push :|parent| content) (push :|parent| content)

5
source/clog.lisp
View file

@ -534,6 +534,11 @@ embedded in a native template application.)"
(data-write-list function) (data-write-list function)
(data-write-plist function) (data-write-plist function)
"SQL Timestamp by Engine"
(*mysql-timestamp* constant)
(*sqlite-timestamp* constant)
(*postgresql-timestamp* constant)
"SQL Writing Helpers" "SQL Writing Helpers"
(sql-quote function) (sql-quote function)
(sql-field-list function) (sql-field-list function)