Changeset 1161

Timestamp:

11/06/07 01:50:00 (6 years ago)

Author:

jknaoya

Message:

lang/haskell/blosxkel/blosxkel.hs:

path_info によるフィルタリングを実装してみました。まだ完全ではないです

Files:

• lang/haskell/blosxkel/blosxkel.hs (modified) (3 diffs)

lang/haskell/blosxkel/blosxkel.hs

@@ -92 +92 @@
 
 
+filterByPathInfo :: String -> [Entry] -> [Entry]
+filterByPathInfo pathinfo entries
+    | length spath == 2 &&
+      all isDigit (spath !! 1) = filter (\e -> (formatCalendarTime defaultTimeLocale "/%Y" (toUTCTime (time e))) == joinPath spath) entries
+    | length spath == 3 &&
+      all isDigit (spath !! 1) = filter (\e -> (formatCalendarTime defaultTimeLocale "/%Y/%m" (toUTCTime (time e))) == joinPath spath) entries
+    | length spath == 4 &&
+      all isDigit (spath !! 1) = filter (\e -> (formatCalendarTime defaultTimeLocale "/%Y/%m/%d" (toUTCTime (time e))) == joinPath spath) entries
+    | otherwise                = filter (\e -> isPrefixOf (joinPath spath) (path e)) entries
+    where
+        spath = splitDirectories pathinfo
+
 getResult :: [(String, String)] -> [(String, String)] -> IO (String, String)
 getResult cgiparams config = do
@@ -115 +127 @@
                 ("fn"     , path e),
                 ("path"   , path e)])
-               $ take 7 $ reverse $ sortBy (\a b -> compare (time a) (time b)) entries
+               $ take 7 $ reverse $ sortBy (\a b -> compare (time a) (time b)) $ filterByPathInfo (fromJust $ lookup "pathinfo" cgiparams) entries
     ; cf <- fill "foot" []
     ; return $ (ct, concat $ [ch, concat cs, cf])
@@ -121 +133 @@
         fill place params = fillFlavour "html" place (params ++ [("title"  , getConfig config "title"),
                                                                  ("author" , getConfig config "author"),
-                                                                 ("version", "How I can get this version of GHC in program?")] ++ cgiparams)
+                                                                 ("version", "How do I get this version of GHC in program?")] ++ cgiparams)
 
 cgiMain :: CGI CGIResult