summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-11 12:24:10 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-11 12:24:10 +0200
commitc70a0e096b72f74e098afa77df6d06fd10475893 (patch)
tree764ba1066ea3b10c47fdf94f83d55b4026df576f
parent561d5f1ea1de0d0af6938c9e446efb87e6b03ea0 (diff)
Automatically update static files as necessary.
Ignore-this: 6bdf867a55e80b2a8a96175c60ee860a darcs-hash:7bd98242cf8676b35e55ad089bf6d227fa465a88
-rw-r--r--main.lisp24
1 files changed, 20 insertions, 4 deletions
diff --git a/main.lisp b/main.lisp
index 9b18ae3..1afaf39 100644
--- a/main.lisp
+++ b/main.lisp
@@ -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))