diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:24:10 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:24:10 +0200 |
| commit | c70a0e096b72f74e098afa77df6d06fd10475893 (patch) | |
| tree | 764ba1066ea3b10c47fdf94f83d55b4026df576f /main.lisp | |
| parent | 561d5f1ea1de0d0af6938c9e446efb87e6b03ea0 (diff) | |
Automatically update static files as necessary.
Ignore-this: 6bdf867a55e80b2a8a96175c60ee860a
darcs-hash:7bd98242cf8676b35e55ad089bf6d227fa465a88
Diffstat (limited to 'main.lisp')
| -rw-r--r-- | main.lisp | 24 |
1 files changed, 20 insertions, 4 deletions
@@ -139,7 +139,11 @@ (setf *post-number* (id-of entry)) (setf (body-of entry) (getf *query* :body) (title-of entry) (getf *query* :title)) - (update-records-from-instance entry))) + (update-records-from-instance entry) + ;; Update static files. + (update-index-page) + (update-journal-entry-page entry) + (update-atom-feed))) (show-web-journal)) (:moderate (let* ((id (getf *query* :id nil)) (type (getf *query* :type nil)) @@ -156,6 +160,8 @@ (update-records table :where [= [id] id] :av-pairs `((spam_p "t"))))) + ;; Update static files. + (update-journal) (show-moderation-page))) (:rebuild (http-send-headers "text/plain; charset=UTF-8") (update-journal) @@ -223,7 +229,11 @@ :where [= [slot-value 'journal-comment 'id] (id-of comment)] :av-pairs `((spam_p nil)))) (when (eq *site* :nfs.net) - (mail-comment *notification-email* comment entry)))) + (mail-comment *notification-email* comment entry)) + ;; Update static files. + (update-comment-feed) + (update-journal-entry-page entry) + (update-index-page))) (show-web-journal)) (:post-trackback (with-transaction () (let* ((entry (find-entry *post-number*)) @@ -256,7 +266,11 @@ (mail-trackback *notification-email* trackback entry)) (format t "<?xml version=\"1.0\" encoding=\"utf-8\"?>~&<response>~&<error>0</error>~&</response>")) (t - (format t "<?xml version=\"1.0\" encoding=\"utf-8\"?>~&<response>~&<error>1</error>~&<message>No URI was provided.</message>~&</response>")))))) + (format t "<?xml version=\"1.0\" encoding=\"utf-8\"?>~&<response>~&<error>1</error>~&<message>No URI was provided.</message>~&</response>"))) + ;; Update static files. + (update-comment-feed) + (update-journal-entry-page entry) + (update-index-page)))) (:view-atom-entry (with-wsse-authentication () (cond ((eq *method* :get) @@ -301,7 +315,9 @@ (when title-element (setf (title-of entry) (or (caddr title-element) ""))) (setf (entry-type-of entry) "html"))) - (update-records-from-instance entry))) + (update-records-from-instance entry) + ;; Update static files. + (update-journal))) (show-atom-entry)) (t (debug-log "Oops. Method was:") (debug-log *method*))))) (:view-atom-feed (show-atom-feed)) |