Changeset 1267

Timestamp:

11/10/07 20:51:29 (6 years ago)

Author:

cho45

Message:

lang/elisp/blosxom.el.cgi/blosxom.el.cgi:

日付によるフィルタの実装
これでだいたいおわり。でも日本語表示できない

Files:

• lang/elisp/blosxom.el.cgi/blosxom.el.cgi (modified) (2 diffs)

lang/elisp/blosxom.el.cgi/blosxom.el.cgi

@@ -91 +91 @@
 (setf servername (concat "http://" (or (getenv "SERVER_NAME") "")))
 (setf home (or (getenv "SCRIPT_NAME") ""))
-(setf pathinfo (or (getenv "PATH_INFO") "/index.xml"))
+(setf pathinfo (or (getenv "PATH_INFO") ""))
 (setf pathname (replace pathinfo "\\(index\\)?\\..+$" ""))
 (setf version (emacs-version))
 
 (setf flavour (or (nth 1 (matches "\\(\\..+\\)$" pathinfo)) ".html"))
+(setf splitted-pathinfo (matches "^/\\([0-9]+\\)\\(/[0-9][0-9]\\)?\\(/[0-9][0-9]\\)?" pathinfo))
 ;(print system-configuration)
 ;(print system-name)
@@ -123 +124 @@
                          (setf time (cdr (assoc 'time e)))
                          ; (string= "2007" (format-time-string "%Y" time))
-                         (string-match (concat "^" pathname) name)
+                         (cond ((nth 3 splitted-pathinfo)
+                                (string= (format-time-string "%Y/%m/%d" time) (apply 'concat (cdr splitted-pathinfo)))
+                                )
+                               ((nth 2 splitted-pathinfo)
+                                (string= (format-time-string "%Y/%m" time) (apply 'concat (cdr splitted-pathinfo)))
+                                )
+                               ((nth 1 splitted-pathinfo)
+                                (string= (format-time-string "%Y" time) (nth 1 splitted-pathinfo))
+                                )
+                               (t
+                                 (string-match (concat "^" pathname) name)
+                                 ))
                          )
                     collect e))