Add action “sitemap”.

Ignore-this: df94e19d8c627a7270d261d85ca535ba

darcs-hash:e684aef65cbe3a8b8cb35656a26859611bd8b50d

1 files changed, 4 insertions, 1 deletions

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))