diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:15:57 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:15:57 +0200 |
| commit | 561d5f1ea1de0d0af6938c9e446efb87e6b03ea0 (patch) | |
| tree | 9d08a3edbd1b4b3b3221aa4adbcf6b82e53547b2 /main.lisp | |
| parent | 829d433565ac1d0c901a84c01cf004ad714379bb (diff) | |
Implement output of static HTML and XML files.
Ignore-this: 724acb08b4c75c08913325b2ebb7cb4f
darcs-hash:e011eaebcaaccaef973cb0de5870dbfcbc94d8ac
Diffstat (limited to 'main.lisp')
| -rw-r--r-- | main.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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)) |