summaryrefslogtreecommitdiff
path: root/main.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'main.lisp')
-rw-r--r--main.lisp5
1 files changed, 5 insertions, 0 deletions
diff --git a/main.lisp b/main.lisp
index f2c901a..9b18ae3 100644
--- a/main.lisp
+++ b/main.lisp
@@ -45,6 +45,7 @@
((string= "save" (car (last *subpath*))) :save-entry)
((string= "moderate" (car (last *subpath*))) :moderate)
((string= "atom" (car (last *subpath*))) :view-atom-entry)
+ ((string= "rebuild" (car (last *subpath*))) :rebuild)
(t nil))))
(*query* #+clisp (if (eq *action* :view-atom-entry)
nil
@@ -76,6 +77,7 @@
(:nfs.net (merge-pathnames #p"protected/journal/"
*site-root*))))
(*cache-dir* (merge-pathnames #p"cache/" *data-dir*))
+ (*static-dir* (merge-pathnames #p"public/journal/" *site-root*))
(*wordpress-key* (with-open-file (file (merge-pathnames
"wordpress-api-key.key"
*data-dir*))
@@ -155,6 +157,9 @@
:where [= [id] id]
:av-pairs `((spam_p "t")))))
(show-moderation-page)))
+ (:rebuild (http-send-headers "text/plain; charset=UTF-8")
+ (update-journal)
+ (format t "~&Done."))
(otherwise (show-web-journal)))
#.(restore-sql-reader-syntax-state))