From 561d5f1ea1de0d0af6938c9e446efb87e6b03ea0 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 11 Oct 2009 12:15:57 +0200 Subject: Implement output of static HTML and XML files. Ignore-this: 724acb08b4c75c08913325b2ebb7cb4f darcs-hash:e011eaebcaaccaef973cb0de5870dbfcbc94d8ac --- main.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'main.lisp') 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)) -- cgit v1.2.3