From c415b90ccbceb81cbe71331beb7e54319d4b6863 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 12 Nov 2009 18:48:26 +0100 Subject: =?UTF-8?q?Add=20action=20=E2=80=9Csitemap=E2=80=9D.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Ignore-this: df94e19d8c627a7270d261d85ca535ba darcs-hash:e684aef65cbe3a8b8cb35656a26859611bd8b50d --- main.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp index 42eda2c..34085a6 100644 --- a/main.lisp +++ b/main.lisp @@ -48,6 +48,7 @@ ((string= "moderate" (car (last *subpath*))) :moderate) ((string= "atom" (car (last *subpath*))) :view-atom-entry) ((string= "rebuild" (car (last *subpath*))) :rebuild) + ((string= "sitemap" (car (last *subpath*))) :sitemap) ((member (car (last *subpath*)) '("rpc" "RPC2") :test #'string=) :xml-rpc) (t nil)))) (*query* (if (member *action* '(:view-atom-entry :xml-rpc)) @@ -148,7 +149,8 @@ ;; Update static files. (update-index-page) (update-journal-entry-page entry) - (update-atom-feed))) + (update-atom-feed) + (update-site-map))) (show-web-journal)) (:moderate (let* ((id (getf *query* :id nil)) (type (getf *query* :type nil)) @@ -342,6 +344,7 @@ :pretty nil :escape nil :stream *standard-output*))) + (:sitemap (show-site-map)) (otherwise (show-web-journal))) #.(restore-sql-reader-syntax-state)) -- cgit v1.2.3