hunk ./Main.hs 1
-{-# LANGUAGE CPP #-}
-import Control.Monad
-import Data.List
-import Data.Maybe
-import Network
-import Network.HTTP.Lucu
-import OpenSSL
-import Rakka.Environment
-import Rakka.Resource.CheckAuth
-import Rakka.Resource.DumpRepos
-import Rakka.Resource.Index
-import Rakka.Resource.JavaScript
-import Rakka.Resource.PageEntity
-import Rakka.Resource.Object
-import Rakka.Resource.Render
-import Rakka.Resource.Search
-import Rakka.Resource.SystemConfig
--- import Rakka.Resource.TrackBack
-import Rakka.Resource.Users
-import Rakka.Storage
-import Subversion
-import System.Console.GetOpt
-import System.Directory
-import System.Environment
-import System.Exit
-import System.IO
-import System.Log.Handler.Simple
-import System.Log.Logger
-import System.Posix.Files
-import System.Posix.Types
-import System.Posix.User
-
-
-logger :: String
-logger = "Main"
-
-
-data CmdOpt
- = OptPortNum PortNumber
- | OptLSDir FilePath
- | OptUserName String
- | OptGroupName String
- | OptLogLevel Priority
- | OptDisableStderrLog
- | OptRebuildIndex
- | OptHelp
- deriving (Eq, Show)
-
-
-defaultPort :: PortNumber
-defaultPort = toEnum 8080
-
-defaultLocalStateDir :: FilePath
-defaultLocalStateDir = LOCALSTATEDIR -- replaced by CPP
-
-defaultUserName :: String
-defaultUserName = "daemon"
-
-defaultGroupName :: String
-defaultGroupName = "daemon"
-
-
-defaultLogLevel :: Priority
-defaultLogLevel = NOTICE
-
-
-options :: [OptDescr CmdOpt]
-options = [ Option ['p'] ["port"]
- (ReqArg (OptPortNum . toEnum . read) "NUM")
- ("Port number to listen. (default: " ++ show defaultPort ++ ")")
-
- , Option ['d'] ["localstatedir"]
- (ReqArg OptLSDir "DIR")
- ("Path to the database directory. (default: " ++ defaultLocalStateDir ++ ")")
-
- , Option ['u'] ["user"]
- (ReqArg OptUserName "USER")
- ("Which user to setuid. (default: " ++ defaultUserName ++ ")")
-
- , Option ['g'] ["group"]
- (ReqArg OptGroupName "GROUP")
- ("Which user to setgid. (default: " ++ defaultGroupName ++ ")")
-
- , Option ['l'] ["log-level"]
- (ReqArg (OptLogLevel . read) "LEVEL")
- ("The lowest log level to show. (default: " ++ show defaultLogLevel ++ ")")
-
- , Option [] ["disable-stderr-log"]
- (NoArg OptDisableStderrLog)
- "Disable logging to stderr."
-
- , Option [] ["rebuild-index"]
- (NoArg OptRebuildIndex)
- "Rebuild the index database."
-
- , Option ['h'] ["help"]
- (NoArg OptHelp)
- "Print this message."
- ]
-
-
-printUsage :: IO ()
-printUsage = do putStrLn "Usage:"
- putStrLn " rakka [OPTIONS...]"
- putStrLn ""
- putStr $ usageInfo "Options:" options
-
-
-main :: IO ()
-main = withOpenSSL $
- withSubversion $
- do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
-
- unless (null errors)
- $ do mapM_ putStr errors
- exitWith $ ExitFailure 1
-
- when (any (\ x -> x == OptHelp) opts)
- $ do printUsage
- exitWith ExitSuccess
-
- unless (null nonOpts)
- $ do printUsage
- exitWith $ ExitFailure 1
-
- portNum <- getPortNum opts
- uid <- getUserID opts
- gid <- getGroupID opts
- lsdir <- getLocalStateDir opts
-
- createLocalStateDir lsdir uid gid
-
- setGroupID gid
- setUserID uid
-
- setupLogger opts
- env <- setupEnv lsdir portNum
-
- rebuildIndexIfRequested env opts
-
- infoM logger ("Listening to " ++ show portNum ++ "/tcp...")
- runHttpd (envLucuConf env) (resTree env) [fallbackPageEntity env]
-
-
-resTree :: Environment -> ResTree
-resTree env
- = mkResTree [ ([] , resIndex env)
- , (["checkAuth" ], resCheckAuth env)
- , (["dumpRepos" ], resDumpRepos env)
- , (["js" ], javaScript )
- , (["object" ], resObject env)
- , (["render" ], resRender env)
- , (["search" ], resSearch env)
- , (["search.html" ], resSearch env)
- , (["search.xml" ], resSearch env)
- , (["systemConfig"], resSystemConfig env)
- -- , (["trackback" ], resTrackBack env)
- , (["users" ], resUsers env)
- ]
-
-
-getPortNum :: [CmdOpt] -> IO PortNumber
-getPortNum opts
- = do let xs = mapMaybe (\ x -> case x of
- OptPortNum n -> Just n
- _ -> Nothing) opts
- case xs of
- [] -> return defaultPort
- (x:[]) -> return x
- _ -> error "too many --port options."
-
-
-getUserID :: [CmdOpt] -> IO UserID
-getUserID opts
- = do let xs = mapMaybe (\ x -> case x of
- OptUserName n -> Just n
- _ -> Nothing) opts
- name = case xs of
- [] -> defaultUserName
- (x:[]) -> x
- _ -> error "too many --user options."
-
- userEnt <- getUserEntryForName name
- return $ userID userEnt
-
-
-getGroupID :: [CmdOpt] -> IO GroupID
-getGroupID opts
- = do let xs = mapMaybe (\ x -> case x of
- OptGroupName n -> Just n
- _ -> Nothing) opts
- name = case xs of
- [] -> defaultGroupName
- (x:[]) -> x
- _ -> error "too many --group options."
-
- groupEnt <- getGroupEntryForName name
- return $ groupID groupEnt
-
-
-getLocalStateDir :: [CmdOpt] -> IO FilePath
-getLocalStateDir opts
- = do let xs = mapMaybe (\ x -> case x of
- OptLSDir n -> Just n
- _ -> Nothing) opts
- path = case xs of
- [] -> defaultLocalStateDir
- (x:[]) -> x
- _ -> error "too many --localstatedir options."
-
- return path
-
-
-setupLogger :: [CmdOpt] -> IO ()
-setupLogger opts
- = do let disableStderrLog = find (== OptDisableStderrLog) opts /= Nothing
- logHandlers = if disableStderrLog then
- []
- else
- [verboseStreamHandler stderr DEBUG]
- logLevel = fromMaybe defaultLogLevel
- $ do OptLogLevel l <- find (\ x -> case x of
- OptLogLevel _ -> True
- _ -> False) opts
- return l
-
- logHandlers' <- sequence logHandlers
- updateGlobalLogger rootLoggerName (setHandlers logHandlers' . setLevel logLevel)
-
-
-createLocalStateDir :: FilePath -> UserID -> GroupID -> IO ()
-createLocalStateDir path uid gid
- = do createDirectoryIfMissing True path
- setOwnerAndGroup path uid gid
-
-
-rebuildIndexIfRequested :: Environment -> [CmdOpt] -> IO ()
-rebuildIndexIfRequested env opts
- = do let rebuild = isJust $ find (\ x -> case x of
- OptRebuildIndex -> True
- _ -> False) opts
- when rebuild
- $ rebuildIndex (envStorage env)
rmfile ./Main.hs
hunk ./Makefile 1
-CABAL_FILE = Rakka.cabal
-GHC = ghc
-EXECUTABLE = sudo ./dist/build/rakka/rakka -p 8989 -l DEBUG
-#EXECUTABLE = sudo ./dist/build/rakka/rakka -p 8989 -l DEBUG +RTS -S -A60M -RTS
-#EXECUTABLE = sudo ./dist/build/rakka/rakka -p 8989 -l DEBUG +RTS -p -RTS
-
-build: dist/setup-config Setup
- $(MAKE) -C js $@
- ./Setup build
-
-run: build
- $(EXECUTABLE)
-
-rebuild-index: build
- $(EXECUTABLE) --rebuild-index
-
-dist/setup-config: $(CABAL_FILE) configure Setup Rakka.buildinfo.in
- ./Setup configure --disable-optimization -fbuild-test-suite
-# ./Setup configure -fhardest-optimization
-# ./Setup configure -fenable-profiling
-
-configure: configure.ac
- autoconf
-
-Setup: Setup.hs
- $(GHC) --make Setup
-
-clean:
- $(MAKE) -C js $@
- rm -rf dist Setup Setup.o Setup.hi
- find . -name '*~' -exec rm -f {} \;
-
-install: build
- sudo ./Setup install
-
-test: build
- ./Setup test
-
-sdist: Setup
- ./Setup sdist
-
-.PHONY: build run clean install doc sdist test
rmfile ./Makefile
hunk ./Rakka/Attachment.hs 1
-module Rakka.Attachment
- ( Attachment(..)
- )
- where
-
-import Control.Arrow
-import Control.Arrow.ArrowList
-import System.IO.Unsafe
-import Text.XML.HXT.Arrow.ReadDocument
-import Text.XML.HXT.Arrow.WriteDocument
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.DOM.TypeDefs
-import Text.XML.HXT.DOM.XmlKeywords
-
-
-class Attachment t where
- serializeToXmlTree :: (ArrowChoice a, ArrowXml a) => a t XmlTree
- deserializeFromXmlTree :: (ArrowChoice a, ArrowXml a) => a XmlTree t
-
- serializeToString :: t -> String
- serializeToString attachment
- = unsafePerformIO $
- do [xmlStr] <- runX ( setErrorMsgHandler False fail
- >>>
- constA attachment
- >>>
- serializeToXmlTree
- >>>
- writeDocumentToString [ (a_indent, v_1) ]
- )
- return xmlStr
-
- deserializeFromString :: String -> t
- deserializeFromString source
- = unsafePerformIO $
- do [ret] <- runX ( setErrorMsgHandler False fail
- >>>
- readString [ (a_validate , v_0)
- , (a_check_namespaces , v_1)
- , (a_remove_whitespace, v_0)
- ] source
- >>>
- deserializeFromXmlTree
- )
- return ret
rmfile ./Rakka/Attachment.hs
hunk ./Rakka/Authorization.hs 1
-module Rakka.Authorization
- ( AuthDB
- , mkAuthDB
- , isValidPair
- , getUserList
- , addUser
- , delUser
- )
- where
-
-import qualified Codec.Binary.UTF8.String as UTF8
-import Control.Concurrent.STM
-import Control.Monad
-import Control.Monad.Trans
-import qualified Data.ByteString as B
-import Data.Map (Map)
-import qualified Data.Map as M hiding (Map)
-import Data.Maybe
-import OpenSSL.EVP.Base64
-import OpenSSL.EVP.Digest
-import Rakka.SystemConfig
-import System.Directory
-import System.FilePath
-
-
-data AuthDB
- = AuthDB {
- adbFilePath :: !FilePath
- , adbUserMap :: !(TVar UserMap)
- }
-
-
-type UserMap = Map String String
-
-
-mkAuthDB :: FilePath -> IO AuthDB
-mkAuthDB lsdir
- = do let path = lsdir "authDB"
- m <- newTVarIO =<< loadUserMap path
- return AuthDB {
- adbFilePath = path
- , adbUserMap = m
- }
-
-
-isValidPair :: MonadIO m => AuthDB -> String -> String -> m Bool
-isValidPair adb name pass
- = liftIO $ do sha1 <- return . fromJust =<< getDigestByName "SHA1"
- let hash = digestBS sha1 $ B.pack $ UTF8.encode pass
- atomically $ do m <- readTVar (adbUserMap adb)
- return (M.lookup name m == Just hash)
-
-
-getUserList :: MonadIO m => AuthDB -> m [String]
-getUserList adb
- = liftIO $
- atomically $
- do m <- readTVar (adbUserMap adb)
- return (M.keys m)
-
-
-addUser :: MonadIO m => AuthDB -> String -> String -> m ()
-addUser adb name pass
- = liftIO $
- do sha1 <- return . fromJust =<< getDigestByName "SHA1"
- let hash = digestBS sha1 $ B.pack $ UTF8.encode pass
- m <- atomically $ do m <- readTVar (adbUserMap adb)
- let m' = M.insert name hash m
- writeTVar (adbUserMap adb) m'
- return m'
- saveUserMap (adbFilePath adb) m
-
-
-delUser :: MonadIO m => AuthDB -> String -> m ()
-delUser adb name
- = liftIO $
- do m <- atomically $ do m <- readTVar (adbUserMap adb)
- let m' = M.delete name m
- writeTVar (adbUserMap adb) m'
- return m'
- saveUserMap (adbFilePath adb) m
-
-
-loadUserMap :: FilePath -> IO UserMap
-loadUserMap path
- = do exist <- doesFileExist path
- m <- if exist then
- liftM (M.fromList . map decodePair . fromJust . deserializeStringPairs)
- (readFile path)
- else
- return M.empty
- sha1 <- return . fromJust =<< getDigestByName "SHA1"
- return (initMap sha1 m)
- where
- decodePair :: (String, String) -> (String, String)
- decodePair (name, b64Hash)
- = (UTF8.decodeString name, decodeBase64 b64Hash)
-
- initMap :: Digest -> UserMap -> UserMap
- initMap sha1 m
- | M.null m = let name = "root"
- hash = digest sha1 ""
- in
- M.singleton name hash
- | otherwise = m
-
-
-saveUserMap :: FilePath -> UserMap -> IO ()
-saveUserMap path m
- = writeFile path $ serializeStringPairs $ map encodePair $ M.toList m
- where
- encodePair :: (String, String) -> (String, String)
- encodePair (name, hash)
- = (UTF8.encodeString name, encodeBase64 hash)
rmfile ./Rakka/Authorization.hs
hunk ./Rakka/Environment.hs 1
-module Rakka.Environment
- ( Environment(..)
- , InterpTable
- , setupEnv
- )
- where
-
-import Control.Arrow
-import Control.Arrow.ArrowList
-import qualified Data.Map as M
-import Network
-import qualified Network.HTTP.Lucu.Config as LC
-import Rakka.Authorization
-import Rakka.Page
-import Rakka.Storage
-import Rakka.SystemConfig
-import Rakka.Wiki.Engine
-import Rakka.Wiki.Interpreter
-import qualified Rakka.Wiki.Interpreter.Base as Base
-import qualified Rakka.Wiki.Interpreter.Image as Image
-import qualified Rakka.Wiki.Interpreter.PageList as PageList
---import qualified Rakka.Wiki.Interpreter.Trackback as Trackback
-import qualified Rakka.Wiki.Interpreter.Outline as Outline
-import Subversion.Repository
-import System.Directory
-import System.FilePath
-import System.Log.Logger
-import Text.HyperEstraier
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-
-
-logger :: String
-logger = "Rakka.Environment"
-
-
-data Environment = Environment {
- envLocalStateDir :: !FilePath
- , envLucuConf :: !LC.Config
- , envRepository :: !Repository
- , envSysConf :: !SystemConfig
- , envStorage :: !Storage
- , envInterpTable :: !InterpTable
- , envAuthDB :: !AuthDB
- }
-
-
-setupEnv :: FilePath -> PortNumber -> IO Environment
-setupEnv lsdir portNum
- = do let lucuConf = LC.defaultConfig {
- LC.cnfServerPort = PortNumber portNum
- }
- reposPath = lsdir "repos"
- interpTable = mkInterpTable
-
- reposExist <- doesDirectoryExist reposPath
- repos <- if reposExist then
- do debugM logger ("Found a subversion repository on " ++ reposPath)
- openRepository reposPath
- else
- do noticeM logger ("Creating a subversion repository on " ++ reposPath)
- createRepository reposPath [] []
- sysConf <- mkSystemConfig lucuConf repos
- storage <- mkStorage lsdir repos (makeDraft' interpTable)
- authDB <- mkAuthDB lsdir
-
- return Environment {
- envLocalStateDir = lsdir
- , envLucuConf = lucuConf
- , envRepository = repos
- , envSysConf = sysConf
- , envStorage = storage
- , envInterpTable = interpTable
- , envAuthDB = authDB
- }
- where
- makeDraft' :: InterpTable -> Page -> IO Document
- makeDraft' interpTable page
- = do [doc] <- runX ( setErrorMsgHandler False fail
- >>>
- constA page
- >>>
- xmlizePage
- >>>
- makeDraft interpTable
- )
- return doc
-
-
-mkInterpTable :: InterpTable
-mkInterpTable = listToTable $
- foldl (++) [] [ Base.interpreters
- , Image.interpreters
- , PageList.interpreters
- --, Trackback.interpreters
- , Outline.interpreters
- ]
- where
- listToTable :: [Interpreter] -> InterpTable
- listToTable xs
- = M.fromList [ (commandName x, x) | x <- xs ]
rmfile ./Rakka/Environment.hs
hunk ./Rakka/Page.hs 1
-module Rakka.Page
- ( PageName
- , Page(..)
- , UpdateInfo(..)
- , LanguageTag
- , LanguageName
-
- , isRedirect
- , isEntity
-
- , pageName
- , pageUpdateInfo
- , pageRevision
-
- , encodePageName
- , decodePageName
-
- , mkPageURI
- , mkPageFragmentURI
- , mkObjectURI
- , mkFragmentURI
- , mkAuxiliaryURI
- , mkFeedURI
- , mkRakkaURI
-
- , xmlizePage
- , parseXmlizedPage
- )
- where
-
-import qualified Codec.Binary.UTF8.String as UTF8
-import qualified Data.ByteString.Lazy as Lazy (ByteString)
-import qualified Data.ByteString.Lazy as L hiding (ByteString)
-import qualified Data.ByteString.Lazy.Char8 as L8 hiding (ByteString)
-import Data.Char
-import Data.Map (Map)
-import qualified Data.Map as M
-import Data.Time
-import Network.HTTP.Lucu hiding (redirect)
-import Network.URI hiding (fragment)
-import OpenSSL.EVP.Base64
-import Rakka.Utils
-import Rakka.W3CDateTime
-import Subversion.Types
-import System.FilePath.Posix
-import Text.XML.HXT.Arrow
-import Text.XML.HXT.XPath
-
-
-type PageName = String
-
-type LanguageTag = String -- See RFC 3066: http://www.ietf.org/rfc/rfc3066.txt
-type LanguageName = String -- i.e. "日本語"
-
-
-data Page
- = Redirection {
- redirName :: !PageName
- , redirDest :: !PageName
- , redirIsLocked :: !Bool
- , redirRevision :: RevNum
- , redirLastMod :: UTCTime
- , redirUpdateInfo :: Maybe UpdateInfo
- }
- | Entity {
- entityName :: !PageName
- , entityType :: !MIMEType
- , entityLanguage :: !(Maybe LanguageTag)
- , entityIsTheme :: !Bool -- text/css 以外では無意味
- , entityIsFeed :: !Bool -- text/x-rakka 以外では無意味
- , entityIsLocked :: !Bool
- , entityIsBinary :: !Bool
- , entityRevision :: RevNum
- , entityLastMod :: UTCTime
- , entitySummary :: !(Maybe String)
- , entityOtherLang :: !(Map LanguageTag PageName)
- , entityContent :: !Lazy.ByteString
- , entityUpdateInfo :: Maybe UpdateInfo
- }
- deriving (Show, Eq)
-
-
-data UpdateInfo
- = UpdateInfo {
- uiOldRevision :: !RevNum
- , uiOldName :: !(Maybe PageName)
- }
- deriving (Show, Eq)
-
-
-isRedirect :: Page -> Bool
-isRedirect (Redirection _ _ _ _ _ _) = True
-isRedirect _ = False
-
-
-isEntity :: Page -> Bool
-isEntity (Entity _ _ _ _ _ _ _ _ _ _ _ _ _) = True
-isEntity _ = False
-
-
-pageName :: Page -> PageName
-pageName p
- | isRedirect p = redirName p
- | isEntity p = entityName p
- | otherwise = error "neither redirection nor entity"
-
-
-pageUpdateInfo :: Page -> Maybe UpdateInfo
-pageUpdateInfo p
- | isRedirect p = redirUpdateInfo p
- | isEntity p = entityUpdateInfo p
- | otherwise = error "neither redirection nor entity"
-
-
-pageRevision :: Page -> RevNum
-pageRevision p
- | isRedirect p = redirRevision p
- | isEntity p = entityRevision p
- | otherwise = error "neither redirection nor entity"
-
-
--- UTF-8 に encode してから 0x20 - 0x7E の範圍を除いて URI escape する。
-encodePageName :: PageName -> FilePath
-encodePageName = escapeURIString isSafeChar . UTF8.encodeString . fixPageName
- where
- fixPageName :: PageName -> PageName
- fixPageName = (\ (x:xs) -> toUpper x : xs) . map (\ c -> if c == ' ' then '_' else c)
-
-
-decodePageName :: FilePath -> PageName
-decodePageName = UTF8.decodeString . unEscapeString
-
-
-encodeFragment :: String -> String
-encodeFragment = escapeURIString isSafeChar . UTF8.encodeString
-
-
-mkPageURI :: URI -> PageName -> URI
-mkPageURI baseURI name
- = baseURI {
- uriPath = uriPath baseURI encodePageName name <.> "html"
- }
-
-
-mkPageFragmentURI :: URI -> PageName -> String -> URI
-mkPageFragmentURI baseURI name fragment
- = baseURI {
- uriPath = uriPath baseURI encodePageName name <.> "html"
- , uriFragment = ('#' : encodeFragment fragment)
- }
-
-
-mkFragmentURI :: String -> URI
-mkFragmentURI fragment
- = nullURI {
- uriFragment = ('#' : encodeFragment fragment)
- }
-
-
-mkObjectURI :: URI -> PageName -> URI
-mkObjectURI baseURI name
- = mkAuxiliaryURI baseURI ["object"] name
-
-
-mkAuxiliaryURI :: URI -> [String] -> PageName -> URI
-mkAuxiliaryURI baseURI basePath name
- = baseURI {
- uriPath = foldl () "/" ([uriPath baseURI] ++ basePath ++ [encodePageName name])
- }
-
-
-mkFeedURI :: URI -> PageName -> URI
-mkFeedURI baseURI name
- = baseURI {
- uriPath = uriPath baseURI encodePageName name <.> "rdf"
- }
-
-
-mkRakkaURI :: PageName -> URI
-mkRakkaURI name = URI {
- uriScheme = "rakka:"
- , uriAuthority = Nothing
- , uriPath = encodePageName name
- , uriQuery = ""
- , uriFragment = ""
- }
-
-
-{-
-
-
-
- blah blah...
- -- 存在しない場合もある
-
- -- 存在しない場合もある
-
-
-
-
-
- blah blah...
-
-
- SKJaHKS8JK/DH8KS43JDK2aKKaSFLLS...
-
-
-
-
--}
-xmlizePage :: (ArrowXml a, ArrowChoice a, ArrowIO a) => a Page XmlTree
-xmlizePage
- = proc page
- -> if isRedirect page then
- xmlizeRedirection -< page
- else
- xmlizeEntity -< page
- where
- xmlizeRedirection :: (ArrowXml a, ArrowChoice a, ArrowIO a) => a Page XmlTree
- xmlizeRedirection
- = proc page
- -> do lastMod <- arrIO (utcToLocalZonedTime . redirLastMod) -< page
- ( eelem "/"
- += ( eelem "page"
- += sattr "name" (redirName page)
- += sattr "redirect" (redirDest page)
- += sattr "isLocked" (yesOrNo $ redirIsLocked page)
- += sattr "revision" (show $ redirRevision page)
- += sattr "lastModified" (formatW3CDateTime lastMod)
- )) -<< ()
-
- xmlizeEntity :: (ArrowXml a, ArrowChoice a, ArrowIO a) => a Page XmlTree
- xmlizeEntity
- = proc page
- -> do lastMod <- arrIO (utcToLocalZonedTime . entityLastMod) -< page
- ( eelem "/"
- += ( eelem "page"
- += sattr "name" (pageName page)
- += sattr "type" (show $ entityType page)
- += ( case entityLanguage page of
- Just x -> sattr "lang" x
- Nothing -> none
- )
- += ( case entityType page of
- MIMEType "text" "css" _
- -> sattr "isTheme" (yesOrNo $ entityIsTheme page)
- MIMEType "text" "x-rakka" _
- -> sattr "isFeed" (yesOrNo $ entityIsFeed page)
- _
- -> none
- )
- += sattr "isLocked" (yesOrNo $ entityIsLocked page)
- += sattr "isBinary" (yesOrNo $ entityIsBinary page)
- += sattr "revision" (show $ entityRevision page)
- += sattr "lastModified" (formatW3CDateTime lastMod)
- += ( case entitySummary page of
- Just s -> eelem "summary" += txt s
- Nothing -> none
- )
- += ( if M.null (entityOtherLang page) then
- none
- else
- selem "otherLang"
- [ eelem "link"
- += sattr "lang" lang
- += sattr "page" name
- | (lang, name) <- M.toList (entityOtherLang page) ]
- )
- += ( if entityIsBinary page then
- ( eelem "binaryData"
- += txt (L8.unpack $ encodeBase64LBS $ entityContent page)
- )
- else
- ( eelem "textData"
- += txt (UTF8.decode $ L.unpack $ entityContent page)
- )
- )
- )) -<< ()
-
-
-parseXmlizedPage :: (ArrowXml a, ArrowChoice a) => a (PageName, XmlTree) Page
-parseXmlizedPage
- = proc (name, tree)
- -> do updateInfo <- maybeA parseUpdateInfo -< tree
- redirect <- maybeA (getXPathTreesInDoc "/page/@redirect/text()" >>> getText) -< tree
- isLocked <- (withDefault (getXPathTreesInDoc "/page/@isLocked/text()" >>> getText) "no"
- >>> parseYesOrNo) -< tree
- case redirect of
- Nothing -> parseEntity -< (name, tree)
- Just dest -> returnA -< (Redirection {
- redirName = name
- , redirDest = dest
- , redirIsLocked = isLocked
- , redirRevision = undefined
- , redirLastMod = undefined
- , redirUpdateInfo = updateInfo
- })
-
-
-parseEntity :: (ArrowXml a, ArrowChoice a) => a (PageName, XmlTree) Page
-parseEntity
- = proc (name, tree)
- -> do updateInfo <- maybeA parseUpdateInfo -< tree
-
- mimeTypeStr <- withDefault (getXPathTreesInDoc "/page/@type/text()" >>> getText) "" -< tree
-
- lang <- maybeA (getXPathTreesInDoc "/page/@lang/text()" >>> getText) -< tree
-
- isTheme <- (withDefault (getXPathTreesInDoc "/page/@isTheme/text()" >>> getText) "no"
- >>> parseYesOrNo) -< tree
- isFeed <- (withDefault (getXPathTreesInDoc "/page/@isFeed/text()" >>> getText) "no"
- >>> parseYesOrNo) -< tree
- isLocked <- (withDefault (getXPathTreesInDoc "/page/@isLocked/text()" >>> getText) "no"
- >>> parseYesOrNo) -< tree
-
- summary <- (maybeA (getXPathTreesInDoc "/page/summary/text()"
- >>> getText
- >>> deleteIfEmpty)) -< tree
-
- otherLang <- listA (getXPathTreesInDoc "/page/otherLang/link"
- >>>
- (getAttrValue0 "lang"
- &&&
- getAttrValue0 "page")) -< tree
-
- textData <- maybeA (getXPathTreesInDoc "/page/textData/text()" >>> getText) -< tree
- binaryData <- maybeA (getXPathTreesInDoc "/page/binaryData/text()" >>> getText) -< tree
-
- let (isBinary, content)
- = case (textData, binaryData) of
- (Just text, Nothing ) -> (False, L.pack $ UTF8.encode text)
- (Nothing , Just binary) -> (True , L8.pack $ decodeBase64 $ dropWhitespace binary)
- _ -> error "one of textData or binaryData is required"
- mimeType
- = if isBinary then
- if null mimeTypeStr then
- guessMIMEType content
- else
- read mimeTypeStr
- else
- read mimeTypeStr
-
- returnA -< Entity {
- entityName = name
- , entityType = mimeType
- , entityLanguage = lang
- , entityIsTheme = isTheme
- , entityIsFeed = isFeed
- , entityIsLocked = isLocked
- , entityIsBinary = isBinary
- , entityRevision = undefined
- , entityLastMod = undefined
- , entitySummary = summary
- , entityOtherLang = M.fromList otherLang
- , entityContent = content
- , entityUpdateInfo = updateInfo
- }
- where
- dropWhitespace :: String -> String
- dropWhitespace [] = []
- dropWhitespace (x:xs)
- | x == ' ' || x == '\t' || x == '\n'
- = dropWhitespace xs
- | otherwise
- = x : dropWhitespace xs
-
-
-parseUpdateInfo :: (ArrowXml a, ArrowChoice a) => a XmlTree UpdateInfo
-parseUpdateInfo
- = proc tree
- -> do uInfo <- getXPathTreesInDoc "/page/updateInfo" -< tree
- oldRev <- (getAttrValue0 "oldRevision" >>> arr read) -< uInfo
- oldName <- maybeA (getXPathTrees "/updateInfo/move/@from/text()" >>> getText) -< uInfo
- returnA -< UpdateInfo {
- uiOldRevision = oldRev
- , uiOldName = oldName
- }
-
-
rmfile ./Rakka/Page.hs
hunk ./Rakka/Resource/CheckAuth.hs 1
-module Rakka.Resource.CheckAuth
- ( resCheckAuth
- )
- where
-
-import Network.HTTP.Lucu
-import Rakka.Environment
-import Rakka.Resource
-
-
-resCheckAuth :: Environment -> ResourceDef
-resCheckAuth env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = False
- , resGet
- = Just $
- do userID <- getUserID env
- case userID of
- Just _ -> setStatus NoContent
- Nothing -> setStatus Forbidden
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Nothing
- , resDelete = Nothing
- }
rmfile ./Rakka/Resource/CheckAuth.hs
hunk ./Rakka/Resource/DumpRepos.hs 1
-module Rakka.Resource.DumpRepos
- ( resDumpRepos
- )
- where
-
-import Control.Monad.Trans
-import Network.HTTP.Lucu
-import Rakka.Environment
-import Subversion.Repository
-
-resDumpRepos :: Environment -> ResourceDef
-resDumpRepos env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = False
- , resGet = Just $ dumpRepos $ envRepository env
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Nothing
- , resDelete = Nothing
- }
-
-
-dumpRepos :: Repository -> Resource ()
-dumpRepos repos
- = do setContentType $ read "application/octet-stream"
- -- FIXME: 最終更新時刻が判るはず。
- dump <- liftIO $ dumpRepository repos Nothing Nothing False True
- outputLBS dump
rmfile ./Rakka/Resource/DumpRepos.hs
hunk ./Rakka/Resource/Index.hs 1
-module Rakka.Resource.Index
- ( resIndex
- )
- where
-
-import Network.HTTP.Lucu
-import Rakka.Environment
-import Rakka.Page
-import Rakka.SystemConfig
-
-
-resIndex :: Environment -> ResourceDef
-resIndex env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = False
- , resGet
- = Just $ do BaseURI baseURI <- getSysConf (envSysConf env)
- DefaultPage name <- getSysConf (envSysConf env)
- redirect Found (mkPageURI baseURI name)
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Nothing
- , resDelete = Nothing
- }
-
rmfile ./Rakka/Resource/Index.hs
hunk ./Rakka/Resource/Object.hs 1
--- -*- Coding: utf-8 -*-
-module Rakka.Resource.Object
- ( resObject
- )
- where
-
-import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Utils
-import Rakka.Environment
-import Rakka.Page
-import Rakka.Storage
-import Rakka.SystemConfig
-
-
-resObject :: Environment -> ResourceDef
-resObject env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = True
- , resGet = Just $ getPathInfo >>= handleGet env . toPageName
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Nothing
- , resDelete = Nothing
- }
- where
- toPageName :: [String] -> PageName
- toPageName = decodePageName . joinWith "/"
-
-
-handleGet :: Environment -> PageName -> Resource ()
-handleGet env name
- = do pageM <- getPage (envStorage env) name Nothing
- case pageM of
- Nothing -> foundNoEntity Nothing
- Just page -> if isEntity page then
- handleGetEntity page
- else
- handleRedirect env page
-
-
-{-
- HTTP/1.1 302 Found
- Location: http://example.org/object/Destination
--}
-handleRedirect :: Environment -> Page -> Resource ()
-handleRedirect env redir
- = do BaseURI baseURI <- getSysConf (envSysConf env)
- redirect Found (mkObjectURI baseURI $ redirName redir)
-
-
-{-
- HTTP/1.1 200 OK
- Content-Type: image/png
-
- ...
--}
-handleGetEntity :: Page -> Resource ()
-handleGetEntity page
- = do case entityRevision page of
- 0 -> foundTimeStamp (entityLastMod page) -- 0 はデフォルトページ
- rev -> foundEntity (strongETag $ show rev) (entityLastMod page)
-
- setContentType (entityType page)
- outputLBS (entityContent page)
rmfile ./Rakka/Resource/Object.hs
hunk ./Rakka/Resource/PageEntity.hs 1
-module Rakka.Resource.PageEntity
- ( fallbackPageEntity
- )
- where
-
-import qualified Codec.Binary.UTF8.String as UTF8
-import Control.Monad.Trans
-import qualified Data.ByteString.Lazy as L hiding (ByteString)
-import Data.Char
-import qualified Data.Map as M
-import Data.Maybe
-import Data.Time
-import Network.HTTP.Lucu
-import Network.URI hiding (path)
-import Rakka.Environment
-import Rakka.Page
-import Rakka.Resource
-import Rakka.Storage
-import Rakka.SystemConfig
-import Rakka.Utils
-import Rakka.W3CDateTime
-import Rakka.Wiki.Engine
-import System.FilePath.Posix
-import Text.HyperEstraier hiding (getText)
-import Text.XML.HXT.Arrow
-import Text.XML.HXT.XPath
-
-
-fallbackPageEntity :: Environment -> [String] -> IO (Maybe ResourceDef)
-fallbackPageEntity env path
- | null path = return Nothing
- | null $ head path = return Nothing
- | isLower $ head $ head path = return Nothing -- 先頭の文字が小文字であってはならない
- | otherwise
- = return $ Just $ ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = True
- , resGet = Just $ handleGet env (toPageName path)
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Just $ handlePut env (toPageName path)
- , resDelete = Just $ handleDelete env (toPageName path)
- }
- where
- toPageName :: [String] -> PageName
- toPageName = decodePageName . dropExtension . joinPath
-
-
-handleGet :: Environment -> PageName -> Resource ()
-handleGet env name
- = do BaseURI baseURI <- getSysConf (envSysConf env)
- runIdempotentA baseURI $ proc ()
- -> do pageM <- getPageA (envStorage env) -< (name, Nothing)
- case pageM of
- Nothing
- -> do items <- getDirContentsA (envStorage env) -< (name, Nothing)
- case items of
- [] -> handlePageNotFound env -< name
- _ -> handleGetPageListing env -< (name, items)
- Just page
- -> if isEntity page then
- handleGetEntity env -< page
- else
- handleRedirect env -< page
-
-
-{-
- HTTP/1.1 302 Found
- Location: http://example.org/Destination.html#Redirect:Source
--}
-handleRedirect :: (ArrowXml a, ArrowIO a) => Environment -> a Page (Resource ())
-handleRedirect env
- = proc redir
- -> returnA -< do mType <- getEntityType
- case mType of
- MIMEType "text" "xml" _
- -> do setContentType mType
- [resultStr] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- constA redir
- >>>
- xmlizePage
- >>>
- writeDocumentToString [ (a_indent , v_1 )
- , (a_output_encoding, utf8)
- , (a_no_xml_pi , v_0 ) ]
- )
- output resultStr
-
- _ -> do BaseURI baseURI <- getSysConf (envSysConf env)
- let uri = mkPageFragmentURI
- baseURI
- (redirDest redir)
- ("Redirect:" ++ redirName redir)
- redirect Found uri
-
-
-handleGetEntity :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a Page (Resource ())
-handleGetEntity env
- = proc page
- -> do tree <- xmlizePage -< page
- returnA -< outputXmlPage tree [ (MIMEType "application" "xhtml+xml" [], entityToXHTML env)
- , (MIMEType "application" "rss+xml" [], entityToRSS env)
- ]
-
-
-entityToXHTML :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a XmlTree XmlTree
-entityToXHTML env
- = proc page
- -> do SiteName siteName <- getSysConfA (envSysConf env) -< ()
- BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
- StyleSheet styleSheet <- getSysConfA (envSysConf env) -< ()
- GlobalLock isGLocked <- getSysConfA (envSysConf env) -< ()
-
- name <- (getXPathTreesInDoc "/page/@name/text()" >>> getText) -< page
- isLocked <- (getXPathTreesInDoc "/page/@isLocked/text()" >>> getText >>> parseYesOrNo) -< page
-
- let cssHref = [uriToString id (mkObjectURI baseURI styleSheet) ""]
- scriptSrc = [uriToString id (baseURI { uriPath = uriPath baseURI "js" }) ""]
-
- pageTitle <- listA (readSubPage env) -< (name, Just page, "PageTitle")
- leftSideBar <- listA (readSubPage env) -< (name, Just page, "SideBar/Left")
- rightSideBar <- listA (readSubPage env) -< (name, Just page, "SideBar/Right")
- pageBody <- listA (makeMainXHTML (envStorage env) (envSysConf env) (envInterpTable env)) -< page
-
- ( eelem "/"
- += ( eelem "html"
- += sattr "xmlns" "http://www.w3.org/1999/xhtml"
- += ( getXPathTreesInDoc "/page/@lang"
- `guards`
- qattr (mkQName "xml" "lang" "")
- ( getXPathTreesInDoc "/page/@lang/text()" )
- )
- += ( eelem "head"
- += ( eelem "title"
- += txt siteName
- += txt " - "
- += getXPathTreesInDoc "/page/@name/text()"
- )
- += ( constL cssHref
- >>>
- eelem "link"
- += sattr "rel" "stylesheet"
- += sattr "type" "text/css"
- += attr "href" (arr id >>> mkText)
- )
- += mkFeedList env
- += ( constL scriptSrc
- >>>
- eelem "script"
- += sattr "type" "text/javascript"
- += attr "src" (arr id >>> mkText)
- )
- += ( eelem "script"
- += sattr "type" "text/javascript"
- += txt ("Rakka.baseURI=\"" ++ uriToString id baseURI "" ++ "\";")
- += txt ("Rakka.isLocked=" ++ trueOrFalse isLocked ++ ";")
- += txt ("Rakka.isGlobalLocked=" ++ trueOrFalse isGLocked ++ ";")
- )
- += mkGlobalJSList env
- )
- += ( eelem "body"
- += ( eelem "div"
- += sattr "class" "header"
- )
- += ( eelem "div"
- += sattr "class" "center"
- += ( eelem "div"
- += sattr "class" "title"
- += constL pageTitle
- )
- += ( eelem "div"
- += sattr "class" "body"
- += constL pageBody
- )
- )
- += ( eelem "div"
- += sattr "class" "footer"
- )
- += ( eelem "div"
- += sattr "class" "left sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL leftSideBar
- )
- )
- += ( eelem "div"
- += sattr "class" "right sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL rightSideBar
- )
- )
- )
- >>>
- uniqueNamespacesFromDeclAndQNames
- ) ) -<< page
-
-
-entityToRSS :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a XmlTree XmlTree
-entityToRSS env
- = proc page
- -> do SiteName siteName <- getSysConfA (envSysConf env) -< ()
- BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
-
- name <- (getXPathTreesInDoc "/page/@name/text()" >>> getText) -< page
- summary <- maybeA (getXPathTreesInDoc "/page/summary/text()" >>> getText) -< page
- pages <- makePageLinkList (envStorage env) (envSysConf env) (envInterpTable env) -< page
-
- ( eelem "/"
- += ( eelem "rdf:RDF"
- += sattr "xmlns" "http://purl.org/rss/1.0/"
- += sattr "xmlns:rdf" "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
- += sattr "xmlns:dc" "http://purl.org/dc/elements/1.1/"
- += sattr "xmlns:trackback" "http://madskills.com/public/xml/rss/module/trackback/"
- += ( eelem "channel"
- += sattr "rdf:about" (uriToString id (mkFeedURI baseURI name) "")
- += ( eelem "title"
- += txt siteName
- += txt " - "
- += getXPathTreesInDoc "/page/@name/text()"
- )
- += ( eelem "link"
- += txt (uriToString id baseURI "")
- )
- += ( eelem "description"
- += txt (case summary of
- Nothing -> "RSS Feed for " ++ siteName
- Just s -> s)
- )
- += ( eelem "items"
- += ( eelem "rdf:Seq"
- += ( constL pages
- >>>
- eelem "rdf:li"
- += attr "resource" (arr (mkPageURIStr baseURI) >>> mkText)
- )
- )
- )
- )
- += ( constL pages
- >>>
- arr (\ n -> (n, Nothing))
- >>>
- getPageA (envStorage env)
- >>>
- arr fromJust
- >>>
- eelem "item"
- += attr "rdf:about" (arr (mkPageURIStr baseURI . entityName) >>> mkText)
- += ( eelem "title"
- += (arr entityName >>> mkText)
- )
- += ( eelem "link"
- += (arr (mkPageURIStr baseURI . entityName) >>> mkText)
- )
- += ( arrL (\ p -> case entitySummary p of
- Nothing -> []
- Just s -> [s])
- >>>
- eelem "description"
- += mkText
- )
- += ( eelem "dc:date"
- += ( arrIO (utcToLocalZonedTime . entityLastMod)
- >>>
- arr formatW3CDateTime
- >>>
- mkText
- )
- )
- += ( eelem "trackback:ping"
- += attr "rdf:resource" (arr (mkTrackbackURIStr baseURI . entityName) >>> mkText)
- )
- )
- >>>
- uniqueNamespacesFromDeclAndQNames
- ) ) -<< page
- where
- mkPageURIStr :: URI -> PageName -> String
- mkPageURIStr baseURI name
- = uriToString id (mkPageURI baseURI name) ""
-
- mkTrackbackURIStr :: URI -> PageName -> String
- mkTrackbackURIStr baseURI name
- = uriToString id (mkAuxiliaryURI baseURI ["trackback"] name) ""
-
-
-readSubPage :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Environment
- -> a (PageName, Maybe XmlTree, PageName) XmlTree
-readSubPage env
- = proc (mainPageName, mainPage, subPageName) ->
- do langM <- case mainPage of
- Nothing
- -> returnA -< Nothing
- Just p
- -> maybeA (getXPathTreesInDoc "/page/@lang/text()" >>> getText) -< p
- subPage <- getPageA (envStorage env) >>> arr fromJust -< (subPageName, Nothing)
- localSubPage <- case langM of
- Nothing
- -> returnA -< subPage
- Just l
- -> localize (envStorage env) -< (l, subPage)
- subPageXml <- xmlizePage -< localSubPage
- subXHTML <- makeSubXHTML (envStorage env) (envSysConf env) (envInterpTable env)
- -< (Just mainPageName, mainPage, subPageXml)
- returnA -< subXHTML
- where
- localize :: (ArrowChoice a, ArrowIO a) => Storage -> a (LanguageTag, Page) Page
- localize sto
- = proc (lang, origPage)
- -> do let otherLang = entityOtherLang origPage
- localName = M.lookup lang otherLang
- case localName of
- Nothing
- -> returnA -< origPage
- Just ln
- -> do localPage <- getPageA sto -< (ln, Nothing)
- returnA -< case localPage of
- Nothing -> origPage
- Just p -> p
-
-
-{-
-
-
-
-
--}
-handleGetPageListing :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a (PageName, [PageName]) (Resource ())
-handleGetPageListing env
- = proc (dir, items)
- -> do tree <- ( eelem "/"
- += ( eelem "pageListing"
- += attr "path" (arr fst >>> mkText)
- += ( arrL snd
- >>>
- ( eelem "page"
- += attr "name" (arr id >>> mkText)
- )
- )
- )
- ) -< (dir, items)
- returnA -< outputXmlPage' tree (pageListingToXHTML env) -- FIXME: rss 對應
-
-
-pageListingToXHTML :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a XmlTree XmlTree
-pageListingToXHTML env
- = proc pageListing
- -> do SiteName siteName <- getSysConfA (envSysConf env) -< ()
- BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
- StyleSheet styleSheet <- getSysConfA (envSysConf env) -< ()
- GlobalLock isGLocked <- getSysConfA (envSysConf env) -< ()
-
- name <- (getXPathTreesInDoc "/pageListing/@path/text()" >>> getText) -< pageListing
-
- let cssHref = [uriToString id (mkObjectURI baseURI styleSheet) ""]
- scriptSrc = [uriToString id (baseURI { uriPath = uriPath baseURI "js" }) ""]
-
- pageTitle <- listA (readSubPage env) -< (name, Nothing, "PageTitle")
- leftSideBar <- listA (readSubPage env) -< (name, Nothing, "SideBar/Left")
- rightSideBar <- listA (readSubPage env) -< (name, Nothing, "SideBar/Right")
-
- ( eelem "/"
- += ( eelem "html"
- += sattr "xmlns" "http://www.w3.org/1999/xhtml"
- += ( eelem "head"
- += ( eelem "title"
- += txt siteName
- += txt " - "
- += getXPathTreesInDoc "/pageListing/@path/text()"
- )
- += ( constL cssHref
- >>>
- eelem "link"
- += sattr "rel" "stylesheet"
- += sattr "type" "text/css"
- += attr "href" (arr id >>> mkText)
- )
- += mkFeedList env
- += ( constL scriptSrc
- >>>
- eelem "script"
- += sattr "type" "text/javascript"
- += attr "src" (arr id >>> mkText)
- )
- += ( eelem "script"
- += sattr "type" "text/javascript"
- += txt ("Rakka.baseURI = \"" ++ uriToString id baseURI "" ++ "\";")
- += txt ("Rakka.isGlobalLocked=" ++ trueOrFalse isGLocked ++ ";")
- )
- += mkGlobalJSList env
- )
- += ( eelem "body"
- += ( eelem "div"
- += sattr "class" "header"
- )
- += ( eelem "div"
- += sattr "class" "center"
- += ( eelem "div"
- += sattr "class" "title"
- += constL pageTitle
- )
- += ( eelem "div"
- += sattr "class" "body"
- += ( eelem "ul"
- += ( getXPathTreesInDoc "/pageListing/page/@name/text()"
- >>>
- eelem "li"
- += ( eelem "a"
- += attr "href" ( getText
- >>>
- arr (\ x -> uriToString id (mkPageURI baseURI x) "")
- >>>
- mkText
- )
- += this
- )
- )
- )
- )
- )
- += ( eelem "div"
- += sattr "class" "footer"
- )
- += ( eelem "div"
- += sattr "class" "left sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL leftSideBar
- )
- )
- += ( eelem "div"
- += sattr "class" "right sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL rightSideBar
- )
- )
- )
- >>>
- uniqueNamespacesFromDeclAndQNames
- ) ) -<< pageListing
-
-
-{-
-
--}
-handlePageNotFound :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a PageName (Resource ())
-handlePageNotFound env
- = proc name
- -> do tree <- ( eelem "/"
- += ( eelem "pageNotFound"
- += attr "name" (arr id >>> mkText)
- )
- ) -< name
- returnA -< do setStatus NotFound
- outputXmlPage' tree (notFoundToXHTML env)
-
-
-notFoundToXHTML :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a XmlTree XmlTree
-notFoundToXHTML env
- = proc pageNotFound
- -> do SiteName siteName <- getSysConfA (envSysConf env) -< ()
- BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
- StyleSheet styleSheet <- getSysConfA (envSysConf env) -< ()
- GlobalLock isGLocked <- getSysConfA (envSysConf env) -< ()
-
- name <- (getXPathTreesInDoc "/pageNotFound/@name/text()" >>> getText) -< pageNotFound
-
- let cssHref = [uriToString id (mkObjectURI baseURI styleSheet) ""]
- scriptSrc = [uriToString id (baseURI { uriPath = uriPath baseURI "js" }) ""]
-
- pageTitle <- listA (readSubPage env) -< (name, Nothing, "PageTitle")
- leftSideBar <- listA (readSubPage env) -< (name, Nothing, "SideBar/Left")
- rightSideBar <- listA (readSubPage env) -< (name, Nothing, "SideBar/Right")
-
- ( eelem "/"
- += ( eelem "html"
- += sattr "xmlns" "http://www.w3.org/1999/xhtml"
- += ( eelem "head"
- += ( eelem "title"
- += txt siteName
- += txt " - "
- += getXPathTreesInDoc "/pageNotFound/@name/text()"
- )
- += ( constL cssHref
- >>>
- eelem "link"
- += sattr "rel" "stylesheet"
- += sattr "type" "text/css"
- += attr "href" (arr id >>> mkText)
- )
- += mkFeedList env
- += ( constL scriptSrc
- >>>
- eelem "script"
- += sattr "type" "text/javascript"
- += attr "src" (arr id >>> mkText)
- )
- += ( eelem "script"
- += sattr "type" "text/javascript"
- += txt ("Rakka.baseURI = \"" ++ uriToString id baseURI "" ++ "\";")
- += txt ("Rakka.isGlobalLocked=" ++ trueOrFalse isGLocked ++ ";")
- )
- += mkGlobalJSList env
- )
- += ( eelem "body"
- += ( eelem "div"
- += sattr "class" "header"
- )
- += ( eelem "div"
- += sattr "class" "center"
- += ( eelem "div"
- += sattr "class" "title"
- += constL pageTitle
- )
- += ( eelem "div"
- += sattr "class" "body"
- += txt "404 Not Found (FIXME)" -- FIXME
- )
- )
- += ( eelem "div"
- += sattr "class" "footer"
- )
- += ( eelem "div"
- += sattr "class" "left sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL leftSideBar
- )
- )
- += ( eelem "div"
- += sattr "class" "right sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL rightSideBar
- )
- )
- )
- >>>
- uniqueNamespacesFromDeclAndQNames
- ) ) -<< pageNotFound
-
-
-handlePut :: Environment -> PageName -> Resource ()
-handlePut env name
- = do userID <- getUserID env
- runXmlA env "rakka-page-1.0.rng" $ proc tree
- -> do page <- parseXmlizedPage -< (name, tree)
- status <- putPageA (envStorage env) -< (userID, page)
- returnA -< setStatus status
-
-
-handleDelete :: Environment -> PageName -> Resource ()
-handleDelete env name
- = do userID <- getUserID env
- status <- deletePage (envStorage env) userID name
- setStatus status
-
-
-mkFeedList :: (ArrowIO a, ArrowXml a) => Environment -> a b XmlTree
-mkFeedList env
- = proc _ -> do SiteName siteName <- getSysConfA (envSysConf env) -< ()
- BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
-
- feed <- unlistA <<< arrIO0 (findFeeds $ envStorage env) -< ()
-
- ( eelem "link"
- += sattr "rel" "alternate"
- += sattr "type" "application/rss+xml"
- += attr "title" (txt siteName <+> txt " - " <+> mkText)
- += attr "href" (arr (mkFeedURIStr baseURI) >>> mkText) ) -<< feed
-
-
-findFeeds :: Storage -> IO [PageName]
-findFeeds sto
- = do cond <- newCondition
- setPhrase cond "[UVSET]"
- addAttrCond cond "rakka:isFeed STREQ yes"
- setOrder cond "@uri STRA"
- result <- searchPages sto cond
- return (map hpPageName $ srPages result)
-
-
-mkGlobalJSList :: (ArrowIO a, ArrowXml a, ArrowChoice a) => Environment -> a b XmlTree
-mkGlobalJSList env
- = proc _ -> do BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
-
- scriptName <- unlistA <<< arrIO0 (findJavaScripts $ envStorage env) -< ()
- pageM <- getPageA (envStorage env) -< (scriptName, Nothing)
-
- case pageM of
- Nothing -> none -< ()
- Just page
- | isEntity page
- -> ( if entityIsBinary page then
- ( eelem "script"
- += sattr "type" "text/javascript"
- += attr "src" (arr (mkObjectURIStr baseURI . pageName) >>> mkText) )
- else
- ( eelem "script"
- += sattr "type" "text/javascript"
- += (arr (UTF8.decode . L.unpack . entityContent) >>> mkText) )
- ) -<< page
- | otherwise
- -> none -< ()
-
-
-findJavaScripts :: Storage -> IO [PageName]
-findJavaScripts sto
- = do cond <- newCondition
- setPhrase cond "[UVSET]"
- addAttrCond cond "@title STRBW Global/"
- addAttrCond cond "@type STRBW text/javascript"
- setOrder cond "@uri STRA"
- result <- searchPages sto cond
- return (map hpPageName $ srPages result)
-
-
-mkFeedURIStr :: URI -> PageName -> String
-mkFeedURIStr baseURI name
- = uriToString id (mkFeedURI baseURI name) ""
-
-
-mkObjectURIStr :: URI -> PageName -> String
-mkObjectURIStr baseURI name
- = uriToString id (mkObjectURI baseURI name) ""
rmfile ./Rakka/Resource/PageEntity.hs
hunk ./Rakka/Resource/Render.hs 1
-module Rakka.Resource.Render
- ( resRender
- )
- where
-
-import Control.Arrow
-import Control.Arrow.ArrowIO
-import Control.Arrow.ArrowList
-import Control.Monad.Trans
-import qualified Data.ByteString.Lazy as Lazy
-import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Utils
-import OpenSSL.EVP.Base64
-import Rakka.Environment
-import Rakka.Page
-import Rakka.Utils
-import Rakka.Wiki.Engine
-import Text.XML.HXT.Arrow.Namespace
-import Text.XML.HXT.Arrow.WriteDocument
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.DOM.TypeDefs
-import Text.XML.HXT.DOM.XmlKeywords
-
-
-resRender :: Environment -> ResourceDef
-resRender env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = True
- , resGet = Nothing
- , resHead = Nothing
- , resPost = Just $ getPathInfo >>= handleRender env . toPageName
- , resPut = Nothing
- , resDelete = Nothing
- }
- where
- toPageName :: [String] -> PageName
- toPageName = decodePageName . joinWith "/"
-
-
-{-
- --- Request ---
- POST /render/Foo/Bar HTTP/1.0
- Content-Type: text/x-rakka
-
- = foo =
- blah blah...
-
- --- Response ---
- HTTP/1.1 200 OK
- Content-Type: text/xml
-
-
- foo
-
- blah blah...
-
-
--}
-handleRender :: Environment -> PageName -> Resource ()
-handleRender env name
- = do entity <- inputLBS defaultLimit
- cTypeM <- getContentType
-
- let (bin, cType) = case cTypeM of
- Just (MIMEType "application" "x-rakka-base64-stream" _)
- -> let b = decodeBase64LBS entity
- in
- (b, guessMIMEType b)
- Just t
- -> (entity, t)
- Nothing
- -> (entity, guessMIMEType entity)
-
- setContentType $ read "text/xml"
- [xmlStr] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- constA (name, cType, bin)
- >>>
- render env
- >>>
- writeDocumentToString [ (a_indent , v_1)
- , (a_output_encoding, utf8)
- , (a_no_xml_pi , v_0) ]
- )
- output xmlStr
-
-
-render :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Environment
- -> a (PageName, MIMEType, Lazy.ByteString) XmlTree
-render env
- = proc (pName, pType, pBin)
- -> do pageBody <- listA (makePreviewXHTML (envStorage env) (envSysConf env) (envInterpTable env))
- -< (pName, pType, pBin)
-
- ( eelem "/"
- += ( eelem "renderResult"
- += sattr "name" pName
- += constL pageBody
- >>>
- uniqueNamespacesFromDeclAndQNames
- ) ) -<< ()
-
rmfile ./Rakka/Resource/Render.hs
hunk ./Rakka/Resource/Search.hs 1
-module Rakka.Resource.Search
- ( resSearch
- )
- where
-
-import qualified Codec.Binary.UTF8.Generic as UTF8
-import Control.Monad.Trans
-import Data.List
-import Data.Maybe
-import Data.Time
-import Network.HTTP.Lucu
-import Network.HTTP.Lucu.RFC1123DateTime
-import Network.URI hiding (query, fragment)
-import Rakka.Environment
-import Rakka.Page
-import Rakka.Resource
-import Rakka.Storage
-import Rakka.SystemConfig
-import Rakka.Utils
-import Rakka.W3CDateTime
-import Rakka.Wiki.Engine
-import System.FilePath
-import Text.HyperEstraier hiding (getText)
-import Text.XML.HXT.Arrow
-import Text.XML.HXT.XPath
-
-
-resSearch :: Environment -> ResourceDef
-resSearch env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = False
- , resGet = Just $ handleSearch env
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Nothing
- , resDelete = Nothing
- }
-
-
-resultsPerSection :: Int
-resultsPerSection = 10
-
-
-maxSectionWindowSize :: Int
-maxSectionWindowSize = 10
-
-
-findQueryParam :: String -> [FormData] -> Maybe String
-findQueryParam name qps
- = do fd <- find (\ qp -> fdName qp == name) qps
- return $ UTF8.toString $ fdContent fd
-
-{-
-
-
-
- aaa foo bbb
-
-
- ...
-
--}
-handleSearch :: Environment -> Resource ()
-handleSearch env
- = do params <- getQueryForm
-
- let query = fromMaybe "" $ findQueryParam "q" params
- order = findQueryParam "order" params
- from = fromMaybe 0
- $ fmap read $ findQueryParam "from" params
- to = fromMaybe (from + resultsPerSection)
- $ fmap read $ findQueryParam "to" params
-
- cond <- liftIO $ mkCond query order from to
- result <- searchPages (envStorage env) cond
-
- let to' = min (from + length (srPages result)) to
-
- BaseURI baseURI <- getSysConf (envSysConf env)
- runIdempotentA baseURI $ proc ()
- -> do tree <- ( eelem "/"
- += ( eelem "searchResult"
- += sattr "query" query
- += ( case order of
- Just o -> sattr "order" o
- Nothing -> none
- )
- += sattr "from" (show from)
- += sattr "to" (show to')
- += sattr "total" (show $ srTotal result)
- += ( constL (srPages result)
- >>>
- mkPageElem
- )
- )
- ) -< ()
- returnA -< outputXmlPage' tree (searchResultToXHTML env)
- where
- mkCond :: String -> Maybe String -> Int -> Int -> IO Condition
- mkCond query order from to
- = do cond <- newCondition
- setPhrase cond query
- case order of
- Just o -> setOrder cond o
- Nothing -> return ()
- setSkip cond from
- setMax cond (to - from + 1)
- return cond
-
- mkPageElem :: (ArrowChoice a, ArrowXml a, ArrowIO a) => a HitPage XmlTree
- mkPageElem = ( eelem "page"
- += attr "name" (arr hpPageName >>> mkText)
- += attr "lastModified" ( arrIO (utcToLocalZonedTime . hpLastMod)
- >>>
- arr formatW3CDateTime
- >>>
- mkText
- )
- += ( arrL hpSnippet
- >>>
- mkSnippetTree
- )
- )
-
- mkSnippetTree :: (ArrowChoice a, ArrowXml a) => a SnippetFragment XmlTree
- mkSnippetTree = proc fragment
- -> case fragment of
- Boundary -> eelem "boundary" -< ()
- NormalText t -> mkText -< t
- HighlightedWord w -> ( eelem "hit"
- += mkText
- ) -< w
-
-
-searchResultToXHTML :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a XmlTree XmlTree
-searchResultToXHTML env
- = proc tree
- -> do SiteName siteName <- getSysConfA (envSysConf env) -< ()
- BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
- StyleSheet styleSheet <- getSysConfA (envSysConf env) -< ()
- GlobalLock isGLocked <- getSysConfA (envSysConf env) -< ()
-
- let cssHref = [uriToString id (mkObjectURI baseURI styleSheet) ""]
- scriptSrc = [uriToString id (baseURI { uriPath = uriPath baseURI "js" }) ""]
-
- pageTitle <- listA (readSubPage env) -< "PageTitle"
- leftSideBar <- listA (readSubPage env) -< "SideBar/Left"
- rightSideBar <- listA (readSubPage env) -< "SideBar/Right"
-
- ( eelem "/"
- += ( eelem "html"
- += sattr "xmlns" "http://www.w3.org/1999/xhtml"
- += ( eelem "head"
- += ( eelem "title"
- += txt siteName
- += txt " - "
- += getXPathTreesInDoc "/searchResult/@query/text()"
- )
- += ( constL cssHref
- >>>
- eelem "link"
- += sattr "rel" "stylesheet"
- += sattr "type" "text/css"
- += attr "href" (arr id >>> mkText)
- )
- += ( constL scriptSrc
- >>>
- eelem "script"
- += sattr "type" "text/javascript"
- += attr "src" (arr id >>> mkText)
- )
- += ( eelem "script"
- += sattr "type" "text/javascript"
- += txt ("Rakka.baseURI=\"" ++ uriToString id baseURI "" ++ "\";")
- += txt ("Rakka.isGlobalLocked=" ++ trueOrFalse isGLocked ++ ";")
- += txt "Rakka.isSpecialPage=true;"
- )
- )
- += ( eelem "body"
- += ( eelem "div"
- += sattr "class" "header"
- )
- += ( eelem "div"
- += sattr "class" "center"
- += ( eelem "div"
- += sattr "class" "title"
- += constL pageTitle
- )
- += ( eelem "div"
- += sattr "class" "body"
- += ( eelem "h1"
- += txt "Search Result"
- )
- += ( eelem "div"
- += sattr "class" "searchStat"
- += txt "Search result for "
- += ( eelem "span"
- += sattr "class" "queryString"
- += getXPathTreesInDoc "/searchResult/@query/text()"
- )
- += txt ": found "
- += getXPathTreesInDoc "/searchResult/@total/text()"
- += txt " pages."
- )
- += ( getXPathTreesInDoc "/searchResult/page"
- >>>
- formatItem baseURI
- )
- += ( ( ( getXPathTreesInDoc "/searchResult/@query/text()"
- >>>
- getText
- )
- &&&
- maybeA ( getXPathTreesInDoc "/searchResult/@order/text()"
- >>>
- getText
- )
- &&&
- ( getXPathTreesInDoc "/searchResult/@from/text()"
- >>>
- getText
- >>>
- arr ((`div` resultsPerSection) . read)
- )
- &&&
- ( getXPathTreesInDoc "/searchResult/@total/text()"
- >>>
- getText
- >>>
- arr ((+ 1) . (`div` resultsPerSection) . (\ x -> x - 1) . read)
- )
- )
- >>>
- ( ((> 1) . snd . snd . snd)
- `guardsP`
- formatPager baseURI
- )
- )
- )
- )
- += ( eelem "div"
- += sattr "class" "footer"
- )
- += ( eelem "div"
- += sattr "class" "left sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL leftSideBar
- )
- )
- += ( eelem "div"
- += sattr "class" "right sideBar"
- += ( eelem "div"
- += sattr "class" "content"
- += constL rightSideBar
- )
- )
- )
- >>>
- uniqueNamespacesFromDeclAndQNames
- ) ) -<< tree
- where
- formatItem :: (ArrowXml a, ArrowChoice a, ArrowIO a) => URI -> a XmlTree XmlTree
- formatItem baseURI
- = ( eelem "div"
- += sattr "class" "searchResult"
- += ( eelem "a"
- += attr "href" ( getAttrValue "name"
- >>>
- arr (\ x -> uriToString id (mkPageURI baseURI x) "")
- >>>
- mkText
- )
- += (getAttrValue "name" >>> mkText)
- )
- += ( eelem "div"
- += sattr "class" "date"
- += ( getAttrValue "lastModified"
- >>>
- arr (zonedTimeToUTC . fromJust . parseW3CDateTime)
- >>>
- arrIO utcToLocalZonedTime
- >>>
- arr formatRFC1123DateTime
- >>>
- mkText
- )
- )
- += ( eelem "p"
- += ( getChildren
- >>>
- choiceA [ isText :-> this
- , hasName "boundary" :-> txt " ... "
- , hasName "hit" :-> ( eelem "span"
- += sattr "class" "highlighted"
- += getChildren
- )
- ]
- )
- )
- )
-
- formatPager :: (ArrowChoice a, ArrowXml a) => URI -> a (String, (Maybe String, (Int, Int))) XmlTree
- formatPager baseURI
- = ( eelem "div"
- += sattr "class" "pager"
- += txt "Page."
- += ( ( arr fst
- &&&
- arr (fst . snd)
- &&&
- arr (fst . snd . snd)
- &&&
- ( arr (snd . snd)
- >>>
- mkSectionWindow
- )
- )
- >>>
- proc (query, (order, (currentSection, section)))
- -> if currentSection == section then
- ( txt " "
- <+>
- eelem "span"
- += sattr "class" "currentSection"
- += (arr show >>> mkText)
- ) -< section
- else
- ( txt " "
- <+>
- eelem "a"
- += attr "href" ( mkSectionURI baseURI
- >>>
- uriToText
- )
- += (arr (show . snd . snd) >>> mkText)
- ) -< (query, (order, section))
- )
- )
-
- mkSectionWindow :: ArrowList a => a (Int, Int) Int
- mkSectionWindow
- = proc (currentSection, totalSections)
- -> let windowWidth = min maxSectionWindowSize totalSections
- windowBegin = currentSection - (windowWidth `div` 2)
- (begin, end) = if windowBegin < 0 then
- -- 左に溢れた
- (0, windowWidth - 1)
- else
- if windowBegin + windowWidth >= totalSections then
- -- 右に溢れた
- (totalSections - windowWidth, totalSections - 1)
- else
- -- どちらにも溢れない
- (windowBegin, windowBegin + windowWidth - 1)
- in
- arrL id -< [begin .. end]
-
-
- mkSectionURI :: Arrow a => URI -> a (String, (Maybe String, Int)) URI
- mkSectionURI baseURI
- = arr $ \ (query, (order, section))
- -> baseURI {
- uriPath = uriPath baseURI "search.html"
- , uriQuery = '?' : mkQueryString ( [ ("q" , query)
- , ("from", show $ section * resultsPerSection)
- , ("to" , show $ (section + 1) * resultsPerSection - 1)
- ]
- ++
- case order of
- Just o -> [("order", o)]
- Nothing -> []
- )
- }
-
- uriToText :: ArrowXml a => a URI XmlTree
- uriToText = arr (\ uri -> uriToString id uri "") >>> mkText
-
-
--- FIXME: localize
-readSubPage :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Environment -> a PageName XmlTree
-readSubPage env
- = proc (subPageName) ->
- do subPage <- getPageA (envStorage env) >>> arr fromJust >>> xmlizePage -< (subPageName, Nothing)
- subXHTML <- makeSubXHTML (envStorage env) (envSysConf env) (envInterpTable env) -< (Nothing, Nothing, subPage)
- returnA -< subXHTML
rmfile ./Rakka/Resource/Search.hs
hunk ./Rakka/Resource/SystemConfig.hs 1
-module Rakka.Resource.SystemConfig
- ( resSystemConfig
- )
- where
-
-import Data.Maybe
-import Network.HTTP.Lucu
-import Rakka.Environment
-import Rakka.Resource
-import Rakka.SystemConfig
-import Text.XML.HXT.Arrow
-import Text.XML.HXT.XPath
-
-
--- FIXME:
--- GET /systemConfig ==> 全設定値を返す
--- GET /systemConfig/siteName ==> siteName を返す
--- PUT /systemConfig/siteName ==> siteName を設定
-resSystemConfig :: Environment -> ResourceDef
-resSystemConfig env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = False
- , resGet = Just $ handleGet env
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Just $ handlePut env
- , resDelete = Nothing
- }
-
-
-{-
-
- Rakka
- MainPage
-
--}
-handleGet :: Environment -> Resource ()
-handleGet env
- = runIdempotentA' $ proc ()
- -> do tree <- mkSystemConfigTree env -< ()
- returnA -< outputXml tree
-
-
-mkSystemConfigTree :: (ArrowXml a, ArrowIO a) => Environment -> a b XmlTree
-mkSystemConfigTree env
- = let sc = envSysConf env
- in
- proc _
- -> do siteName @ (SiteName _) <- getSysConfA sc -< ()
- baseURI @ (BaseURI _) <- getSysConfA sc -< ()
- defaultPage @ (DefaultPage _) <- getSysConfA sc -< ()
- styleSheet @ (StyleSheet _) <- getSysConfA sc -< ()
- languages @ (Languages _) <- getSysConfA sc -< ()
- globalLock @ (GlobalLock _) <- getSysConfA sc -< ()
-
- ( eelem "/"
- += ( eelem "systemConfig"
- += ( eelem "value"
- += sattr "path" (confPath siteName)
- += txt (serialize siteName)
- )
- += ( eelem "value"
- += sattr "path" (confPath baseURI)
- += txt (serialize baseURI)
- )
- += ( eelem "value"
- += sattr "path" (confPath defaultPage)
- += txt (serialize defaultPage)
- )
- += ( eelem "value"
- += sattr "path" (confPath styleSheet)
- += txt (serialize styleSheet)
- )
- += ( eelem "value"
- += sattr "path" (confPath languages)
- += txt (serialize languages)
- )
- += ( eelem "value"
- += sattr "path" (confPath globalLock)
- += txt (serialize globalLock)
- )
- ) ) -<< ()
-
-
-handlePut :: Environment -> Resource ()
-handlePut env
- = do let sc = envSysConf env
-
- userID <- getUserID env
- case userID of
- Nothing
- -> setStatus Forbidden
- Just uid
- -> runXmlA env "rakka-config-1.0.rng" $ proc tree
- -> do listA ( getXPathTreesInDoc "/systemConfig/value"
- >>>
- choiceA [ branch (undefined :: SiteName )
- , branch (undefined :: BaseURI )
- , branch (undefined :: DefaultPage)
- , branch (undefined :: StyleSheet )
- , branch (undefined :: Languages )
- , branch (undefined :: GlobalLock )
- ]
- ) -< tree
- returnA -< setStatus Ok
- where
- branch :: forall a c. (ArrowXml a, ArrowIO a, SysConfValue c) =>
- c
- -> IfThen (a XmlTree XmlTree) (a XmlTree StatusCode)
- branch c
- = hasAttrValue "path" (== confPath c)
- :->
- ( getChildren
- >>> getText
- >>> arr (fromJust . (deserialize :: String -> Maybe c))
- >>> setSysConfA sc uid )
+
rmfile ./Rakka/Resource/SystemConfig.hs
hunk ./Rakka/Resource/TrackBack.hs 1
-module Rakka.Resource.TrackBack
- ( resTrackBack
- )
- where
-
-import qualified Codec.Binary.UTF8.String as UTF8
-import Control.Arrow
-import Control.Arrow.ArrowList
-import Control.Monad.Trans
-import Data.List
-import Data.Maybe
-import Data.Time
-import Network.Browser
-import Network.HTTP
-import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Response
-import Network.HTTP.Lucu.Utils
-import Network.URI
-import Rakka.Environment
-import Rakka.Page
-import Rakka.Storage
-import Rakka.SystemConfig
-import Rakka.TrackBack
-import Text.XML.HXT.Arrow.WriteDocument
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.DOM.TypeDefs
-import Text.XML.HXT.DOM.XmlKeywords
-
-
-data TBResponse
- = NoError
- | Error !Int !String
- deriving (Show, Eq)
-
-
-resTrackBack :: Environment -> ResourceDef
-resTrackBack env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = True
- , resGet = Nothing
- , resHead = Nothing
- , resPost = Just $ getPathInfo >>= handlePost env . toPageName
- , resPut = Nothing
- , resDelete = Nothing
- }
- where
- toPageName :: [String] -> PageName
- toPageName = decodePageName . joinWith "/"
-
-
-handlePost :: Environment -> PageName -> Resource ()
-handlePost env name
- = do form <- inputForm defaultLimit
- tbParamM <- validateTrackBack form
- case tbParamM of
- Nothing
- -> return ()
- Just tbParam
- -> do cited <- liftIO $ checkCitation tbParam name
- if cited then
- do pageM <- getPage (envStorage env) name Nothing
- case pageM of
- Nothing -> setStatus NotFound
- Just page -> addTB tbParam page
- else
- outputResponse (Error 1 "Failed to confirm if your entry contains any citation to this page.")
- where
- addTB :: TrackBack -> Page -> Resource ()
- addTB tbParam page
- | isRedirect page
- = do BaseURI baseURI <- getSysConf (envSysConf env)
- redirect TemporaryRedirect (mkPageURI baseURI $ redirName page)
- | otherwise
- = do tbListM <- return . fromMaybe [] =<< getAttachment (envStorage env) (pageName page) "trackbacks" Nothing
- st <- putAttachment (envStorage env) Nothing Nothing (pageName page) "trackbacks" (tbParam : tbListM)
- if isSuccessful st then
- outputResponse NoError
- else
- setStatus st
-
-
-validateTrackBack :: [(String, String)] -> Resource (Maybe TrackBack)
-validateTrackBack form
- = do let title = get' "title"
- excerpt = get' "excerpt"
- blogName = get' "blog_name"
- case get' "url" of
- Nothing
- -> do outputResponse (Error 1 "Parameter `url' is missing.")
- return Nothing
- Just u
- -> case parseURI u of
- Nothing
- -> do outputResponse (Error 1 "Parameter `url' is malformed.")
- return Nothing
- Just url
- -> do time <- liftIO getCurrentTime
- return $ Just TrackBack {
- tbTitle = title
- , tbExcerpt = excerpt
- , tbURL = url
- , tbBlogName = blogName
- , tbTime = time
- }
- where
- get' :: String -> Maybe String
- get' = fmap UTF8.decodeString . flip lookup form
-
-
-outputResponse :: TBResponse -> Resource ()
-outputResponse res
- = do setContentType $ read "text/xml"
- [xmlStr] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- mkResponseTree
- >>>
- writeDocumentToString [ (a_indent , v_1 )
- , (a_output_encoding, utf8)
- , (a_no_xml_pi , v_0 ) ]
- )
- output xmlStr
- where
- mkResponseTree :: ArrowXml a => a b XmlTree
- mkResponseTree
- = proc _
- -> ( eelem "/"
- += ( eelem "response"
- += ( eelem "error"
- += txt (case res of
- NoError -> "0"
- Error code _ -> show code)
- )
- += ( case res of
- NoError -> none
- Error _ msg -> ( eelem "message"
- += txt msg
- )
- )
- )
- ) -< ()
-
-
-checkCitation :: TrackBack -> PageName -> IO Bool
-checkCitation param name
- = do (_, res) <- browse $
- do setAllowRedirects True
- setErrHandler (\ _ -> return ())
- setOutHandler (\ _ -> return ())
- request $ defaultGETRequest $ tbURL param
- case rspCode res of
- (2, 0, 0)
- -> return (encodePageName name `isInfixOf` rspBody res)
- _ -> return False
rmfile ./Rakka/Resource/TrackBack.hs
hunk ./Rakka/Resource/Users.hs 1
-module Rakka.Resource.Users
- ( resUsers
- )
- where
-
-import Control.Monad
-import Control.Monad.Trans
-import Data.Maybe
-import Network.HTTP.Lucu
-import Rakka.Authorization
-import Rakka.Environment
-import Rakka.Resource
-import Text.XML.HXT.Arrow hiding (when)
-
-
-resUsers :: Environment -> ResourceDef
-resUsers env
- = ResourceDef {
- resUsesNativeThread = False
- , resIsGreedy = True
- , resGet = Just $ handleGet env
- , resHead = Nothing
- , resPost = Nothing
- , resPut = Just $ handlePut env
- , resDelete = Just $ handleDelete env
- }
-
-
-{-
- [GET /users]
-
-
-
- ...
-
-
- [GET /users/foo]
- 204 No Content
-
- [GET /users/nonexistent]
- 404 Not Found
--}
-handleGet :: Environment -> Resource ()
-handleGet env
- = do userID <- getUserID env
- when (isNothing userID)
- $ abort Forbidden [] Nothing
-
- path <- getPathInfo
- case path of
- [] -> returnUserList
- [name] -> returnUser name
- _ -> foundNoEntity Nothing
- where
- returnUserList :: Resource ()
- returnUserList
- = do users <- liftIO $ getUserList $ envAuthDB env
- runIdempotentA' $ proc ()
- -> do tree <- ( eelem "/"
- += ( eelem "users"
- += ( constL users
- >>>
- ( eelem "user"
- += attr "id" mkText
- )
- )
- )
- ) -< ()
- returnA -< outputXml tree
-
- returnUser :: String -> Resource ()
- returnUser name
- = do users <- liftIO $ getUserList $ envAuthDB env
- if any (== name) users
- then setStatus NoContent
- else foundNoEntity Nothing
-
-
-{-
- > PUT /users/foo HTTP/1.1
- > Content-Type: text/plain
- >
- > password
-
- < HTTP/1.1 201 Created
--}
-handlePut :: Environment -> Resource ()
-handlePut env
- = do userID <- getUserID env
- when (isNothing userID)
- $ abort Forbidden [] Nothing
-
- path <- getPathInfo
- case path of
- [name] -> do mimeType <- getContentType
- case mimeType of
- Nothing
- -> abort BadRequest [] (Just "Missing Content-Type")
- Just (MIMEType "text" "plain" _)
- -> do pass <- input defaultLimit
- addUser (envAuthDB env) name pass
- Just t
- -> abort UnsupportedMediaType [] (Just $ "Unsupported media type: " ++ show t)
- setStatus Created
- _ -> abort BadRequest [] (Just "Invalid URI")
-
-
-handleDelete :: Environment -> Resource ()
-handleDelete env
- = do userID <- getUserID env
- when (isNothing userID)
- $ abort Forbidden [] Nothing
-
- path <- getPathInfo
- case path of
- [name] -> delUser (envAuthDB env) name
- _ -> abort BadRequest [] (Just "Invalid URI")
- setStatus NoContent
rmfile ./Rakka/Resource/Users.hs
rmdir ./Rakka/Resource
hunk ./Rakka/Resource.hs 1
-module Rakka.Resource
- ( runIdempotentA
- , runIdempotentA'
- , runXmlA
- , getEntityType
- , outputXmlPage
- , outputXmlPage'
- , outputXml
- , getUserID
- )
- where
-
-import qualified Codec.Binary.UTF8.String as UTF8
-import Control.Arrow
-import Control.Arrow.ArrowList
-import Control.Monad
-import Control.Monad.Trans
-import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Utils
-import Network.URI hiding (path)
-import Rakka.Authorization
-import Rakka.Environment
-import Rakka.Validation
-import System.FilePath.Posix
-import System.Log.Logger
-import Text.XML.HXT.Arrow.ReadDocument
-import Text.XML.HXT.Arrow.WriteDocument
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.DOM.TypeDefs
-import Text.XML.HXT.DOM.XmlKeywords
-
-
-logger :: String
-logger = "Rakka.Resource"
-
-
--- "/" ==> "/"
--- "/foo" ==> "/foo.html"
--- "/foo/" ==> "/foo.html"
--- "/foo.bar/" ==> "/foo.bar"
--- "/foo.bar" ==> "/foo.bar"
-canonicalizeURI :: URI -> Resource ()
-canonicalizeURI baseURI
- = do rPath <- return . uriPath =<< getRequestURI
- let newURI = baseURI { uriPath = uriPath baseURI newPath }
- newPath = foldl () "/" newPath'
- newPath' = case [x | x <- splitBy (== '/') rPath, x /= ""] of
- [] -> []
- path -> case break (== '.') $ last path of
- (_, "") -> let basePieces = reverse $ tail $ reverse path
- lastPiece = last path
- in
- basePieces ++ [lastPiece ++ ".html"]
- (_, _) -> path
- when (rPath /= newPath)
- $ abort MovedPermanently
- [("Location", uriToString id newURI $ "")]
- Nothing
-
-
-runIdempotentA :: URI -> IOSArrow () (Resource c) -> Resource c
-runIdempotentA baseURI a
- = do canonicalizeURI baseURI
- [rsrc] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- constA ()
- >>>
- a
- )
- rsrc
-
-
-runIdempotentA' :: IOSArrow () (Resource c) -> Resource c
-runIdempotentA' a
- = do [rsrc] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- constA ()
- >>>
- a
- )
- rsrc
-
-
-runXmlA :: Environment -> FilePath -> IOSArrow XmlTree (Resource c) -> Resource c
-runXmlA env schemaPath a
- = do inputA <- getInputXmlA env schemaPath
- [rsrc] <- liftIO $ runX ( inputA
- >>>
- setErrorMsgHandler False fail
- >>>
- a
- )
- rsrc
-
-
--- well-formed でない時は 400 Bad Request になり、valid でない時は 422
--- Unprocessable Entity になる。入力の型が XML でない時は 415
--- Unsupported Media Type を返す。
-getInputXmlA :: Environment -> FilePath -> Resource (IOSArrow b XmlTree)
-getInputXmlA env schemaPath
- = do reader <- getInputReader
- validator <- getValidator env schemaPath
- return ( setErrorMsgHandler False (abort BadRequest [] . Just)
- >>>
- reader
- >>>
- setErrorMsgHandler False (abort UnprocessableEntitiy [] . Just)
- >>>
- validator
- )
-
-
-getInputReader :: Resource (IOSArrow b XmlTree)
-getInputReader
- = do mimeType <- getContentType
- case mimeType of
- Nothing
- -> getFailingReader BadRequest [] (Just "Missing Content-Type")
- Just (MIMEType "text" "xml" _)
- -> getXmlReader
- Just (MIMEType "application" "xml" _)
- -> getXmlReader
- Just t
- -> getFailingReader UnsupportedMediaType [] (Just $ "Unsupported media type: " ++ show t)
- where
- getXmlReader
- = do req <- input defaultLimit
- liftIO $ debugM logger req
- return $ readString [ (a_validate , v_0)
- , (a_check_namespaces , v_1)
- , (a_remove_whitespace, v_0)
- ] (UTF8.decodeString req)
- getFailingReader code headers msg
- = return $ proc _ -> abortA -< (code, (headers, msg))
-
-
-getEntityType :: Resource MIMEType
-getEntityType
- = do uri <- getRequestURI
- let ext = reverse $ takeWhile (/= '.') $ reverse $ uriPath uri
- case lookup ext extMap of
- Just mType -> return mType
- Nothing -> abort NotFound [] (Just $ "Unsupported entity type: " ++ ext)
- where
- extMap :: [(String, MIMEType)]
- extMap = [ ("html", read "application/xhtml+xml")
- , ( "rdf", read "application/rss+xml" )
- , ( "xml", read "text/xml" )
- ]
-
-
-outputXmlPage :: XmlTree -> [(MIMEType, IOSArrow XmlTree XmlTree)] -> Resource ()
-outputXmlPage tree formatters
- = do mType <- getEntityType
- setContentType mType
- let formatter = case lookup mType formatters of
- Just f -> f
- Nothing -> this
- [resultStr] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- constA tree
- >>>
- formatter
- >>>
- writeDocumentToString [ (a_indent , v_1 )
- , (a_output_encoding, utf8)
- , (a_no_xml_pi , v_0 ) ]
- )
- output resultStr
-
-
-outputXmlPage' :: XmlTree -> IOSArrow XmlTree XmlTree -> Resource ()
-outputXmlPage' tree toXHTML
- = outputXmlPage tree [(MIMEType "application" "xhtml+xml" [], toXHTML)]
-
-
-outputXml :: XmlTree -> Resource ()
-outputXml tree
- = do setContentType (MIMEType "text" "xml" [])
- [xmlStr] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- constA tree
- >>>
- writeDocumentToString [ (a_indent , v_1 )
- , (a_output_encoding, utf8)
- , (a_no_xml_pi , v_0 ) ]
- )
- output xmlStr
-
-
-getUserID :: Environment -> Resource (Maybe String)
-getUserID env
- = do auth <- getAuthorization
- case auth of
- Just (BasicAuthCredential userID password)
- -> do valid <- isValidPair (envAuthDB env) userID password
- if valid then
- return (Just userID)
- else
- return Nothing
- _ -> return Nothing
rmfile ./Rakka/Resource.hs
hunk ./Rakka/Storage/DefaultPage.hs 1
-module Rakka.Storage.DefaultPage
- ( findAllDefaultPages
- , getDefaultDirContents
- , loadDefaultPage
- )
- where
-
-import Control.Arrow
-import Control.Arrow.ArrowIO
-import Control.Arrow.ArrowList
-import Data.Set (Set)
-import qualified Data.Set as S
-import Data.Time.Clock.POSIX
-import Paths_Rakka -- Cabal が用意する。
-import Rakka.Page
-import System.Directory
-import System.FilePath
-import System.FilePath.Find hiding (fileName, modificationTime)
-import System.Posix.Files
-import Text.XML.HXT.Arrow.ReadDocument
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.DOM.XmlKeywords
-
-
-doesLocalDirExist :: IO Bool
-doesLocalDirExist = doesDirectoryExist "defaultPages"
-
-
-findAllDefaultPages :: IO (Set PageName)
-findAllDefaultPages
- -- ./defaultPages が存在するなら、その中を探す。無ければ Cabal で
- -- defaultPages を探す。
- = do localDirExists <- doesLocalDirExist
- if localDirExists then
- findAllIn "defaultPages"
- else
- -- FIXME: この getDataFileName の使ひ方は undocumented
- findAllIn =<< getDataFileName "defaultPages"
- where
- findAllIn :: FilePath -> IO (Set PageName)
- findAllIn dirPath
- = find always (fileType ==? RegularFile) dirPath
- >>=
- return . S.fromList . map (decodePageName . makeRelative dirPath . dropExtension)
-
-
-getDefaultDirContents :: PageName -> IO (Set PageName)
-getDefaultDirContents dir
- -- ./defaultPages が存在するなら、その中を探す。無ければ Cabal で
- -- defaultPages を探す。
- = do localDirExists <- doesLocalDirExist
- if localDirExists then
- getDir' "defaultPages"
- else
- -- FIXME: この getDataFileName の使ひ方は undocumented
- getDir' =<< getDataFileName "defaultPages"
- where
- getDir' :: FilePath -> IO (Set PageName)
- getDir' basePath
- = do let childDirPath = basePath encodePageName dir
- exists <- doesDirectoryExist childDirPath
- if exists then
- getDirectoryContents childDirPath
- >>=
- return . S.fromList . map (m basePath) . filter f
- else
- return S.empty
-
- m :: FilePath -> FilePath -> PageName
- m basePath = (dir ) . decodePageName . makeRelative basePath . dropExtension
-
- f :: FilePath -> Bool
- f "." = False
- f ".." = False
- f _ = True
-
-
-loadDefaultPage :: PageName -> IO (Maybe Page)
-loadDefaultPage name
- -- ./defaultPages が存在するなら、./defaultPages/Foo.xml を探す。無
- -- ければ Cabal で defaultPages/Foo.xml を探す。
- = do let pagePath = "defaultPages" encodePageName name <.> "xml"
-
- localDirExists <- doesLocalDirExist
- if localDirExists then
- tryLoad pagePath
- else
- tryLoad =<< getDataFileName pagePath
- where
- tryLoad :: FilePath -> IO (Maybe Page)
- tryLoad fpath
- = do exists <- doesFileExist fpath
- if exists then
- return . Just =<< loadPageFile name fpath
- else
- return Nothing
-
-
-loadPageFile :: PageName -> FilePath -> IO Page
-loadPageFile name path
- = do [page] <- runX ( setErrorMsgHandler False fail
- >>>
- constA (name, path)
- >>>
- loadPageFileA
- )
- return page
-
-
-loadPageFileA :: IOStateArrow s (PageName, FilePath) Page
-loadPageFileA
- = proc (name, fpath) ->
- do tree <- readFromDocument [ (a_validate , v_0)
- , (a_check_namespaces , v_1)
- , (a_remove_whitespace, v_1)
- ] -< fpath
- lastMod <- arrIO (\ x -> getFileStatus x
- >>=
- return . posixSecondsToUTCTime . fromRational . toRational . modificationTime)
- -< fpath
- page <- parseXmlizedPage -< (name, tree)
-
- if isEntity page then
- returnA -< page {
- entityRevision = 0
- , entityLastMod = lastMod
- }
- else
- returnA -< page {
- redirRevision = 0
- , redirLastMod = lastMod
- }
rmfile ./Rakka/Storage/DefaultPage.hs
hunk ./Rakka/Storage/Impl.hs 1
-module Rakka.Storage.Impl
- ( getPage'
- , putPage'
- , deletePage'
- , getDirContents'
- , startIndexManager
-
- , getAttachment'
- , putAttachment'
- )
- where
-
-import Control.Concurrent
-import Control.Concurrent.STM
-import Control.Monad
-import Data.Maybe
-import Data.Set (Set)
-import qualified Data.Set as S
-import Data.Time
-import Network.HTTP.Lucu
-import Network.HTTP.Lucu.Utils
-import Network.URI
-import Prelude hiding (words)
-import Rakka.Attachment
-import Rakka.Page
-import Rakka.Storage.DefaultPage
-import Rakka.Storage.Repos
-import Rakka.Storage.Types
-import Rakka.W3CDateTime
-import Subversion.Types
-import Subversion.FileSystem
-import Subversion.Repository
-import System.Directory
-import System.FilePath
-import System.IO
-import System.IO.Unsafe
-import System.Log.Logger
-import Text.HyperEstraier hiding (WriteLock)
-
-
-logger :: String
-logger = "Rakka.Storage"
-
-
-getPage' :: Repository -> PageName -> Maybe RevNum -> IO (Maybe Page)
-getPage' repos name rev
- = do page <- loadPageInRepository repos name rev
- case page of
- Nothing -> loadDefaultPage name
- p -> return p
-
-
-putPage' :: Repository -> Maybe String -> Page -> IO StatusCode
-putPage' = putPageIntoRepository
-
-
-deletePage' :: Repository -> Maybe String -> PageName -> IO StatusCode
-deletePage' = deletePageFromRepository
-
-
-findAllPages :: Repository -> RevNum -> IO (Set PageName)
-findAllPages _ 0 = findAllDefaultPages
-findAllPages repos rev = do reposPages <- findAllPagesInRevision repos rev
- defaultPages <- findAllDefaultPages
- return (reposPages `S.union` defaultPages)
-
-
-findChangedPages :: Repository -> RevNum -> RevNum -> IO (Set PageName)
-findChangedPages repos 0 newRev = findAllPages repos newRev
-findChangedPages repos oldRev newRev
- = liftM S.unions (mapM (findChangedPagesAtRevision repos) [oldRev + 1 .. newRev])
-
-
-getDirContents' :: Repository -> PageName -> Maybe RevNum -> IO [PageName]
-getDirContents' repos name rev
- = do reposPages <- getDirContentsInRevision repos name rev
- defaultPages <- getDefaultDirContents name
- return $ S.toList (reposPages `S.union` defaultPages)
-
-
-getCurrentRevNum :: Repository -> IO RevNum
-getCurrentRevNum repos
- = getRepositoryFS repos >>= getYoungestRev
-
-
-getAttachment' :: Attachment a =>
- Repository
- -> PageName
- -> String
- -> Maybe RevNum
- -> IO (Maybe a)
-getAttachment' = loadAttachmentInRepository
-
-
-putAttachment' :: Attachment a =>
- Repository
- -> Maybe String
- -> Maybe RevNum
- -> PageName
- -> String
- -> a
- -> IO StatusCode
-putAttachment' = putAttachmentIntoRepository
-
-
-startIndexManager :: FilePath -> Repository -> (Page -> IO Document) -> IO (TChan IndexReq)
-startIndexManager lsdir repos mkDraft
- = do chan <- newTChanIO
- index <- openIndex indexDir revFile
- _ <- forkIO (loop chan index)
- return chan
- where
- indexDir = lsdir "index"
- revFile = lsdir "indexRev"
-
- loop :: TChan IndexReq -> Database -> IO ()
- loop chan index
- = do req <- atomically $ readTChan chan
- case req of
- RebuildIndex
- -> do noticeM logger "Rebuilding the H.E. index..."
- closeDatabase index
- removeDirectoryRecursive indexDir
- index' <- openIndex indexDir revFile
- syncIndex' index' revFile repos mkDraft
- loop chan index'
-
- SyncIndex
- -> do syncIndex' index revFile repos mkDraft
- loop chan index
-
- SearchIndex cond var
- -> do result <- searchIndex index cond
- atomically $ putTMVar var result
- loop chan index
-
-
--- casket を R/W モードで開く。成功したらそのまま返し、失敗したら
--- indexDir と revFile を削除してから casket を R/W モードで開く。
-openIndex :: FilePath -> FilePath -> IO Database
-openIndex indexDir revFile
- = do ret <- openDatabase indexDir (Writer [])
- case ret of
- Right index
- -> do debugM logger ("Opened an H.E. index on " ++ indexDir)
- return index
-
- Left err
- -> do noticeM logger ("Failed to open an H.E. index on "
- ++ indexDir ++ ": " ++ show err)
-
- indexExists <- doesDirectoryExist indexDir
- when indexExists
- $ removeDirectoryRecursive indexDir
-
- revFileExists <- doesFileExist revFile
- when revFileExists
- $ removeFile revFile
-
- Right index <- openDatabase indexDir (Writer [Create []])
- addAttrIndex index "@mdate" SeqIndex
- addAttrIndex index "@type" StrIndex
- addAttrIndex index "@uri" SeqIndex
- addAttrIndex index "rakka:revision" SeqIndex
- addAttrIndex index "rakka:isTheme" StrIndex
- addAttrIndex index "rakka:isFeed" StrIndex
- noticeM logger ("Created an H.E. index on " ++ indexDir)
-
- return index
-
-
-syncIndex' :: Database -> FilePath -> Repository -> (Page -> IO Document) -> IO ()
-syncIndex' index revFile repos mkDraft
- = updateIndexRev revFile $ \ oldRev ->
- do debugM logger ("The index revision is currently " ++ show oldRev)
-
- newRev <- getCurrentRevNum repos
- debugM logger ("The repository revision is currently " ++ show newRev)
-
- when (oldRev == 0 || newRev /= oldRev)
- $ syncIndex'' oldRev newRev
- return newRev
- where
- syncIndex'' :: RevNum -> RevNum -> IO ()
- syncIndex'' oldRev newRev
- = do pages <- findChangedPages repos oldRev newRev
- mapM_ (updateIndex index repos mkDraft newRev) (S.toList pages)
-
-
-searchIndex :: Database -> Condition -> IO SearchResult
-searchIndex index cond
- = do (ids, hint) <- searchDatabase' index cond
- let (total, words) = parseHint hint
- pages <- mapM (fromId words) ids
- return SearchResult {
- srTotal = total
- , srPages = pages
- }
- where
- parseHint :: [(String, Int)] -> (Int, [String])
- parseHint xs
- = let total = fromJust $ lookup "" xs
- words = filter (/= "") $ map fst xs
- in
- (total, words)
-
- fromId :: [String] -> DocumentID -> IO HitPage
- fromId words docId
- = do uri <- getDocURI index docId
- rev <- unsafeInterleaveIO $
- liftM (read . fromJust)
- (getDocAttr index docId "rakka:revision")
- lastMod <- unsafeInterleaveIO $
- liftM (zonedTimeToUTC . fromJust . parseW3CDateTime . fromJust)
- (getDocAttr index docId "@mdate")
- summary <- unsafeInterleaveIO $
- getDocAttr index docId "rakka:summary"
- snippet <- unsafeInterleaveIO $
- do doc <- getDocument index docId [NoAttributes, NoKeywords]
- sn <- makeSnippet doc words 300 80 80
- return (trim (== Boundary) $ map toFragment sn)
- return HitPage {
- hpPageName = decodePageName $ uriPath uri
- , hpPageRev = rev
- , hpLastMod = lastMod
- , hpSummary = summary
- , hpSnippet = snippet
- }
-
- toFragment :: Either String (String, String) -> SnippetFragment
- toFragment (Left "") = Boundary
- toFragment (Left t) = NormalText t
- toFragment (Right (w, _)) = HighlightedWord w
-
-
-updateIndex :: Database
- -> Repository
- -> (Page -> IO Document)
- -> RevNum
- -> PageName
- -> IO ()
-updateIndex index repos mkDraft rev name
- = do pageM <- getPage' repos name (Just rev)
- case pageM of
- -- ページが削除された
- Nothing
- -> do docIdM <- getDocIdByURI index (mkRakkaURI name)
- case docIdM of
- Nothing -> return ()
- Just docId -> do removeDocument index docId [CleaningRemove]
- infoM logger ("Removed page " ++ name ++ " from the index")
- Just page
- -> do draft <- mkDraft page
- putDocument index draft [CleaningPut]
- infoM logger ("Indexed page " ++ name ++ " of revision " ++ show (pageRevision page))
-
-
-updateIndexRev :: FilePath -> (RevNum -> IO RevNum) -> IO ()
-updateIndexRev revFile f = withFile revFile ReadWriteMode update
- where
- update :: Handle -> IO ()
- update h = do eof <- hIsEOF h
- rev <- if eof then
- return 0
- else
- liftM read (hGetLine h)
- rev' <- f rev
- hSeek h AbsoluteSeek 0
- hSetFileSize h 0
- hPutStrLn h (show rev')
rmfile ./Rakka/Storage/Impl.hs
hunk ./Rakka/Storage/Repos.hs 1
--- -*- coding: utf-8 -*-
-module Rakka.Storage.Repos
- ( findAllPagesInRevision
- , getDirContentsInRevision
- , findChangedPagesAtRevision
- , loadPageInRepository
- , putPageIntoRepository
- , deletePageFromRepository
- , loadAttachmentInRepository
- , putAttachmentIntoRepository
- )
- where
-
-import Codec.Binary.UTF8.String
-import Control.Monad
-import Data.List
-import qualified Data.Map as M
-import Data.Maybe
-import Data.Set (Set)
-import qualified Data.Set as S hiding (Set)
-import Data.Time
-import Network.HTTP.Lucu hiding (redirect)
-import Rakka.Attachment
-import Rakka.Page
-import Rakka.SystemConfig
-import Rakka.Utils
-import Rakka.W3CDateTime
-import Subversion.FileSystem
-import Subversion.FileSystem.DirEntry
-import Subversion.FileSystem.Revision
-import Subversion.FileSystem.Root
-import Subversion.FileSystem.Transaction
-import Subversion.Repository
-import Subversion.Types
-import System.FilePath.Posix
-
-
-mkPagePath :: PageName -> FilePath
-mkPagePath name
- = "/pages" encodePageName name <.> "page"
-
-
-mkDirPath :: PageName -> FilePath
-mkDirPath dir
- = "/pages" encodePageName dir
-
-
-mkAttachmentPath :: PageName -> String -> FilePath
-mkAttachmentPath pName aName
- = "/attachments" encodePageName pName <.> "page" aName
-
-
-mkAttachmentDirPath :: PageName -> FilePath
-mkAttachmentDirPath pName
- = "/attachments" encodePageName pName <.> "page"
-
-
-findAllPagesInRevision :: Repository -> RevNum -> IO (Set PageName)
-findAllPagesInRevision repos rev
- = do fs <- getRepositoryFS repos
- withRevision fs rev
- $ do exists <- isDirectory root
- if exists then
- traverse root
- else
- return S.empty
- where
- root :: FilePath
- root = "/pages"
-
- traverse :: FilePath -> Rev (Set PageName)
- traverse dir
- = liftM S.unions (getDirEntries dir >>= mapM (traverse' dir))
-
- traverse' :: FilePath -> DirEntry -> Rev (Set PageName)
- traverse' dir entry
- = let path = dir entName entry
- in
- do kind <- checkPath path
- case kind of
- NoNode -> return S.empty
- FileNode -> return $ S.singleton (decodePath path)
- DirNode -> traverse path
-
- decodePath :: FilePath -> PageName
- decodePath = decodePageName . makeRelative root . dropExtension
-
-
-getDirContentsInRevision :: Repository -> PageName -> Maybe RevNum -> IO (Set PageName)
-getDirContentsInRevision repos dir rev
- = do fs <- getRepositoryFS repos
- rev' <- case rev of
- Nothing -> getYoungestRev fs
- Just r -> return r
- withRevision fs rev'
- $ do exists <- isDirectory path
- if exists then
- return . S.fromList =<< getDir'
- else
- return S.empty
- where
- path :: FilePath
- path = mkDirPath dir
-
- getDir' :: Rev [PageName]
- getDir' = liftM (map entToName) (getDirEntries path)
-
- entToName :: DirEntry -> PageName
- entToName = (dir ) . decodePageName . dropExtension . entName
-
-
-findChangedPagesAtRevision :: Repository -> RevNum -> IO (Set PageName)
-findChangedPagesAtRevision repos rev
- = do fs <- getRepositoryFS repos
- withRevision fs rev
- $ liftM (foldl accumulatePages S.empty . map fst) getPathsChanged
- where
- accumulatePages :: Set PageName -> FilePath -> Set PageName
- accumulatePages s path
- | "/pages/" `isPrefixOf` path && ".page" `isSuffixOf` path
- = let encoded = makeRelative "/pages" $ dropExtension path
- name = decodePageName encoded
- in
- S.insert name s
- | otherwise
- = s
-
-
-loadPageInRepository :: Repository -> PageName -> Maybe RevNum -> IO (Maybe Page)
-loadPageInRepository repos name rev
- = do fs <- getRepositoryFS repos
- rev' <- case rev of
- Nothing -> getYoungestRev fs
- Just r -> return r
- withRevision fs rev'
- $ do exists <- isFile path
- if exists then
- return . Just =<< loadPage' fs
- else
- return Nothing
- where
- path :: FilePath
- path = mkPagePath name
-
- loadPage' :: FileSystem -> Rev Page
- loadPage' fs
- = do mType <- liftM (fmap (read . chomp)) (getNodeProp path "svn:mime-type")
- case mType of
- Just (MIMEType "application" "x-rakka-redirection" _)
- -> loadPageRedirect fs
- _
- -> loadPageEntity fs
-
- loadPageEntity :: FileSystem -> Rev Page
- loadPageEntity fs
- = do props <- getNodePropList path
- hist <- getNodeHistory True path
- content <- getFileContentsLBS path
-
- let pageRev = fst $ head hist
- mimeType = read
- $ fromMaybe "text/x-rakka"
- $ fmap chomp (lookup "svn:mime-type" props)
-
- lastMod <- unsafeIOToFS $
- liftM (fromJust . parseW3CDateTime . chomp . fromJust)
- (getRevisionProp' fs pageRev "svn:date")
-
- return Entity {
- entityName = name
- , entityType = mimeType
- , entityLanguage = fmap chomp (lookup "rakka:lang" props)
- , entityIsTheme = any ((== "rakka:isTheme") . fst) props
- , entityIsFeed = any ((== "rakka:isFeed") . fst) props
- , entityIsLocked = any ((== "rakka:isLocked") . fst) props
- , entityIsBinary = case mimeType of
- MIMEType "text" _ _
- -> any ((== "rakka:isBinary") . fst) props
- _
- -> True
- , entityRevision = pageRev
- , entityLastMod = zonedTimeToUTC lastMod
- , entitySummary = fmap decodeString (lookup "rakka:summary" props)
- , entityOtherLang = fromMaybe M.empty
- $ fmap
- (M.fromList . fromJust . deserializeStringPairs . decodeString)
- (lookup "rakka:otherLang" props)
- , entityContent = content
- , entityUpdateInfo = undefined
- }
-
- loadPageRedirect :: FileSystem -> Rev Page
- loadPageRedirect fs
- = do hist <- getNodeHistory True path
- content <- getFileContents path
-
- let pageRev = fst $ head hist
- dest = chomp $ decodeString content
-
- lastMod <- unsafeIOToFS $
- liftM (fromJust . parseW3CDateTime . chomp . fromJust)
- (getRevisionProp' fs pageRev "svn:date")
-
- isLocked <- liftM isJust (getNodeProp path "rakka:isLocked")
-
- return Redirection {
- redirName = name
- , redirDest = dest
- , redirIsLocked = isLocked
- , redirRevision = pageRev
- , redirLastMod = zonedTimeToUTC lastMod
- , redirUpdateInfo = undefined
- }
-
-
-putPageIntoRepository :: Repository -> Maybe String -> Page -> IO StatusCode
-putPageIntoRepository repos userID page
- = do let name = pageName page
- author = fromMaybe "[Rakka]" userID
- case pageUpdateInfo page of
- Just ui
- -> do let oldRev = uiOldRevision ui
- denied <- case uiOldName ui of
- Nothing -> checkDenial oldRev name
- Just oldName -> checkDenial oldRev oldName
- if denied then
- return Forbidden
- else
- do rev <- if oldRev == 0 then
- getRepositoryFS repos >>= getYoungestRev
- else
- return oldRev
- ret <- doReposTxn
- repos
- rev
- author
- (Just "Automatic commit by Rakka for page update")
- $ do
- case uiOldName ui of
- Nothing -> return ()
- Just oldName -> do exists <- isFile (mkPagePath oldName)
- when exists
- $ do movePage (uiOldRevision ui) oldName name
- moveAttachments (uiOldRevision ui) oldName name
- exists <- isFile (mkPagePath name)
- unless exists
- $ createPage name
- updatePage name
- case ret of
- Left _ -> return Conflict
- Right _ -> return Created
- Nothing
- -> do fs <- getRepositoryFS repos
- rev <- getYoungestRev fs
- ret <- doReposTxn
- repos
- rev
- author
- (Just "Automatic commit by Rakka for page creation")
- $ do createPage name
- updatePage name
- case ret of
- Left _ -> return Conflict
- Right _ -> return Created
- where
- checkDenial :: RevNum -> PageName -> IO Bool
- checkDenial rev name
- = do fs <- getRepositoryFS repos
- withRevision fs rev
- $ do exists <- isFile (mkPagePath name)
- if exists then
- do prop <- getNodeProp (mkPagePath name) "rakka:isLocked"
- case prop of
- Just _ -> return (isNothing userID) -- 施錠されてゐるので匿名では駄目
- Nothing -> return False
- else
- return False -- FIXME: 本當は defaultPage の locked 屬性をどうのこうの…
-
- movePage :: RevNum -> PageName -> PageName -> Txn ()
- movePage oldRev oldName newName
- = do let oldPath = mkPagePath oldName
- newPath = mkPagePath newName
- createParentDirectories newPath
- copyEntry oldRev oldPath newPath
- deleteEntry oldPath
- deleteEmptyParentDirectories oldPath
-
- moveAttachments :: RevNum -> PageName -> PageName -> Txn ()
- moveAttachments oldRev oldName newName
- = do let oldPath = mkAttachmentDirPath oldName
- newPath = mkAttachmentDirPath newName
- createParentDirectories newPath
- copyEntry oldRev oldPath newPath
- deleteEntry oldPath
- deleteEmptyParentDirectories oldPath
-
- createPage :: PageName -> Txn ()
- createPage name
- = do let path = mkPagePath name
- createParentDirectories path
- makeFile path
-
- updatePage :: PageName -> Txn ()
- updatePage name
- | isRedirect page = updatePageRedirect name
- | isEntity page = updatePageEntity name
- | otherwise = fail "neither redirection nor page"
-
- updatePageRedirect :: PageName -> Txn ()
- updatePageRedirect name
- = do let path = mkPagePath name
- setNodeProp path "svn:mime-type" (Just "application/x-rakka-redirection")
- setNodeProp path "rakka:lang" Nothing
- setNodeProp path "rakka:isTheme" Nothing
- setNodeProp path "rakka:isFeed" Nothing
- setNodeProp path "rakka:isLocked" (encodeFlag $ redirIsLocked page)
- setNodeProp path "rakka:isBinary" Nothing
- setNodeProp path "rakka:summary" Nothing
- setNodeProp path "rakka:otherLang" Nothing
- applyText path Nothing (encodeString (redirDest page) ++ "\n")
-
- updatePageEntity :: PageName -> Txn ()
- updatePageEntity name
- = do let path = mkPagePath name
- setNodeProp path "svn:mime-type" ((Just . show . entityType) page)
- setNodeProp path "rakka:lang" (entityLanguage page)
- setNodeProp path "rakka:isTheme" (encodeFlag $ entityIsTheme page)
- setNodeProp path "rakka:isFeed" (encodeFlag $ entityIsFeed page)
- setNodeProp path "rakka:isLocked" (encodeFlag $ entityIsLocked page)
- setNodeProp path "rakka:isBinary" (encodeFlag $ entityIsBinary page)
- setNodeProp path "rakka:summary" (fmap encodeString $ entitySummary page)
- setNodeProp path "rakka:otherLang" (let otherLang = entityOtherLang page
- in
- if M.null otherLang then
- Nothing
- else
- Just (encodeString $ serializeStringPairs $ M.toList otherLang))
- applyTextLBS path Nothing (entityContent page)
-
- encodeFlag :: Bool -> Maybe String
- encodeFlag True = Just "*"
- encodeFlag False = Nothing
-
-
-createParentDirectories :: FilePath -> Txn ()
-createParentDirectories path
- = do let parentPath = takeDirectory path
- kind <- checkPath parentPath
- case kind of
- NoNode -> do createParentDirectories parentPath
- makeDirectory parentPath
- FileNode -> fail ("createParentDirectories: already exists a file: " ++ parentPath)
- DirNode -> return ()
-
-
-deletePageFromRepository :: Repository -> Maybe String -> PageName -> IO StatusCode
-deletePageFromRepository repos userID name
- = do let pagePath = mkPagePath name
- attachmentPath = mkAttachmentDirPath name
- fs <- getRepositoryFS repos
- rev <- getYoungestRev fs
- status <- withRevision fs rev
- $ do exists <- isFile pagePath
- if exists then
- do prop <- getNodeProp pagePath "rakka:isLocked"
- return $ case prop of
- Just _
- -> if isNothing userID then
- -- 施錠されてゐるので匿名では駄目
- Forbidden
- else
- NoContent
- Nothing
- -> NoContent
- else
- return NotFound
- when (status == NoContent)
- $ ( (doReposTxn repos
- rev
- "[Rakka]"
- (Just "Automatic commit by Rakka for page deleting")
- $ do deleteEntry pagePath
- deleteEmptyParentDirectories pagePath
-
- attachmentExists <- isDirectory attachmentPath
- when attachmentExists
- $ do deleteEntry attachmentPath
- deleteEmptyParentDirectories attachmentPath)
- >> return () )
- return status
-
-
-deleteEmptyParentDirectories :: FilePath -> Txn ()
-deleteEmptyParentDirectories path
- = do let parentPath = takeDirectory path
- contents <- getDirEntries parentPath
- when (null contents)
- $ do deleteEntry parentPath
- deleteEmptyParentDirectories parentPath
-
-
-loadAttachmentInRepository :: forall a. Attachment a =>
- Repository
- -> PageName
- -> String
- -> Maybe RevNum
- -> IO (Maybe a)
-loadAttachmentInRepository repos pName aName rev
- = do fs <- getRepositoryFS repos
- rev' <- case rev of
- Nothing -> getYoungestRev fs
- Just r -> return r
- withRevision fs rev'
- $ do exists <- isFile path
- if exists then
- return . Just =<< loadAttachment'
- else
- return Nothing
- where
- path :: FilePath
- path = mkAttachmentPath pName aName
-
- loadAttachment' :: Rev a
- loadAttachment' = liftM (deserializeFromString . decodeString) (getFileContents path)
-
-
-putAttachmentIntoRepository :: Attachment a =>
- Repository
- -> Maybe String
- -> Maybe RevNum
- -> PageName
- -> String
- -> a
- -> IO StatusCode
-putAttachmentIntoRepository repos userID oldRev pName aName attachment
- = do let author = fromMaybe "[Rakka]" userID
- path = mkAttachmentPath pName aName
- fs <- getRepositoryFS repos
- oldRev' <- case oldRev of
- Nothing -> getYoungestRev fs
- Just r -> return r
- ret <- doReposTxn
- repos
- oldRev'
- author
- (Just "Automatic commit by Rakka for putting attachment")
- $ do exists <- isFile path
- unless exists
- $ do createParentDirectories path
- makeFile path
- applyText path Nothing (encodeString $ serializeToString attachment)
- case ret of
- Left _ -> return Conflict
- Right _ -> return NoContent
rmfile ./Rakka/Storage/Repos.hs
hunk ./Rakka/Storage/Types.hs 1
-module Rakka.Storage.Types
- ( Storage(..)
- , IndexReq(..)
- , SearchResult(..)
- , HitPage(..)
- , SnippetFragment(..)
- )
- where
-
-import Control.Concurrent.STM
-import Data.Time
-import Rakka.Page
-import Subversion.Repository
-import Subversion.Types
-import Text.HyperEstraier hiding (WriteLock)
-
-
-data Storage
- = Storage {
- stoRepository :: !Repository
- , stoIndexChan :: !(TChan IndexReq)
- }
-
-
-data IndexReq
- = RebuildIndex
- | SyncIndex
- | SearchIndex !Condition !(TMVar SearchResult)
-
-
-data SearchResult
- = SearchResult {
- srTotal :: !Int
- , srPages :: ![HitPage]
- }
- deriving (Show, Eq)
-
-
-data HitPage
- = HitPage {
- hpPageName :: !PageName
- , hpPageRev :: RevNum
- , hpLastMod :: UTCTime
- , hpSummary :: Maybe String
- , hpSnippet :: [SnippetFragment]
- }
- deriving (Show, Eq)
-
-
-data SnippetFragment
- = Boundary
- | NormalText !String
- | HighlightedWord !String
- deriving (Show, Eq)
+
rmfile ./Rakka/Storage/Types.hs
rmdir ./Rakka/Storage
hunk ./Rakka/Storage.hs 1
-module Rakka.Storage
- ( Storage
-
- -- re-export from Rakka.Storage.Types
- , SearchResult(..)
- , HitPage(..)
- , SnippetFragment(..)
-
- , mkStorage -- private
-
- , getPage
- , putPage
- , deletePage
-
- , getPageA
- , putPageA
- , deletePageA
-
- , getAttachment
- , putAttachment
-
- , getDirContents
- , getDirContentsA
-
- , searchPages
-
- , rebuildIndex
- )
- where
-
-import Control.Arrow.ArrowIO
-import Control.Concurrent.STM
-import Control.Monad.Trans
-import Network.HTTP.Lucu
-import Rakka.Attachment
-import Rakka.Page
-import Rakka.Storage.Impl
-import Rakka.Storage.Types
-import Subversion.Types
-import Subversion.Repository
-import Text.HyperEstraier hiding (WriteLock)
-
-
-mkStorage :: FilePath -> Repository -> (Page -> IO Document) -> IO Storage
-mkStorage lsdir repos mkDraft
- = do chan <- startIndexManager lsdir repos mkDraft
- let sto = Storage {
- stoRepository = repos
- , stoIndexChan = chan
- }
- syncIndex sto
- return sto
-
-
-getPage :: MonadIO m => Storage -> PageName -> Maybe RevNum -> m (Maybe Page)
-getPage = ((liftIO .) .) . getPage' . stoRepository
-
-
-putPage :: MonadIO m => Storage -> Maybe String -> Page -> m StatusCode
-putPage sto userID page
- = liftIO $ do st <- putPage' (stoRepository sto) userID page
- syncIndex sto
- return st
-
-
-deletePage :: MonadIO m => Storage -> Maybe String -> PageName -> m StatusCode
-deletePage sto userID name
- = liftIO $ do st <- deletePage' (stoRepository sto) userID name
- syncIndex sto
- return st
-
-
-getPageA :: ArrowIO a => Storage -> a (PageName, Maybe RevNum) (Maybe Page)
-getPageA = arrIO2 . getPage
-
-
-putPageA :: ArrowIO a => Storage -> a (Maybe String, Page) StatusCode
-putPageA = arrIO2 . putPage
-
-
-deletePageA :: ArrowIO a => Storage -> a (Maybe String, PageName) StatusCode
-deletePageA = arrIO2 . deletePage
-
-
-getDirContents :: MonadIO m => Storage -> PageName -> Maybe RevNum -> m [PageName]
-getDirContents = ((liftIO .) .) . getDirContents' . stoRepository
-
-
-getDirContentsA :: ArrowIO a => Storage -> a (PageName, Maybe RevNum) [PageName]
-getDirContentsA = arrIO2 . getDirContents
-
-
-searchPages :: MonadIO m => Storage -> Condition -> m SearchResult
-searchPages sto cond
- = liftIO $
- do var <- newEmptyTMVarIO
- atomically $ writeTChan (stoIndexChan sto) (SearchIndex cond var)
- atomically $ takeTMVar var
-
-
-rebuildIndex :: MonadIO m => Storage -> m ()
-rebuildIndex sto
- = liftIO $ atomically $ writeTChan (stoIndexChan sto) RebuildIndex
-
-
-syncIndex :: Storage -> IO ()
-syncIndex sto
- = atomically $ writeTChan (stoIndexChan sto) SyncIndex
-
-
-getAttachment :: (Attachment a, MonadIO m) =>
- Storage
- -> PageName
- -> String
- -> Maybe RevNum
- -> m (Maybe a)
-getAttachment = (((liftIO .) .) .) . getAttachment' . stoRepository
-
-
-putAttachment :: (Attachment a, MonadIO m) =>
- Storage
- -> Maybe String
- -> Maybe RevNum
- -> PageName
- -> String
- -> a
- -> m StatusCode
-putAttachment = (((((liftIO .) .) .) .) .) . putAttachment' . stoRepository
rmfile ./Rakka/Storage.hs
hunk ./Rakka/SystemConfig.hs 1
-module Rakka.SystemConfig
- ( SystemConfig
- , SysConfValue(..)
-
- , mkSystemConfig -- private
-
- , getSysConf
- , getSysConfA
-
- , setSysConf
- , setSysConfA
-
- , SiteName(..)
- , BaseURI(..)
- , DefaultPage(..)
- , StyleSheet(..)
- , Languages(..)
- , GlobalLock(..)
-
- , serializeStringPairs
- , deserializeStringPairs
- )
- where
-
-import Codec.Binary.UTF8.String
-import Control.Arrow.ArrowIO
-import Control.Concurrent.STM
-import Control.Monad
-import Control.Monad.Trans
-import qualified Data.ByteString.Char8 as C8
-import qualified Data.ByteString.Lazy as L
-import Data.Dynamic
-import Data.Map (Map)
-import qualified Data.Map as M
-import Data.Maybe
-import GHC.Conc (unsafeIOToSTM)
-import Network
-import qualified Network.HTTP.Lucu.Config as LC
-import Network.HTTP.Lucu.Utils
-import Network.HTTP.Lucu hiding (Config)
-import Network.URI hiding (path)
-import Rakka.Page
-import Rakka.Utils
-import Subversion.FileSystem
-import Subversion.FileSystem.Revision
-import Subversion.FileSystem.Root
-import Subversion.FileSystem.Transaction
-import Subversion.Repository
-import Subversion.Types
-import System.FilePath.Posix
-import System.Log.Logger
-
-
-logger :: String
-logger = "Rakka.SystemConfig"
-
-
-data SystemConfig = SystemConfig {
- scLucuConf :: !LC.Config
- , scRepository :: !Repository
- , scCache :: !(TVar (Map FilePath Dynamic))
- }
-
-
-class (Typeable a, Show a, Eq a) => SysConfValue a where
- confPath :: a -> FilePath
- serialize :: a -> String
- deserialize :: String -> Maybe a
- defaultValue :: SystemConfig -> a
-
-
-mkSystemConfig :: LC.Config -> Repository -> IO SystemConfig
-mkSystemConfig lc repos
- = do cache <- newTVarIO M.empty
- return SystemConfig {
- scLucuConf = lc
- , scRepository = repos
- , scCache = cache
- }
-
-getSysConf :: forall m a. (MonadIO m, SysConfValue a) => SystemConfig -> m a
-getSysConf sc
- = liftIO $
- atomically $
- do let path = confPath (undefined :: a)
-
- cache <- readTVar (scCache sc)
-
- case M.lookup path cache of
- Just val -> return $ fromJust $ fromDynamic val
- Nothing -> do val <- unsafeIOToSTM (getSysConf' sc)
- writeTVar (scCache sc) (M.insert path (toDyn val) cache)
- return val
-
-
-getSysConf' :: forall a. SysConfValue a => SystemConfig -> IO a
-getSysConf' sc
- = do let path = fromConfPath $ confPath (undefined :: a)
-
- fs <- getRepositoryFS (scRepository sc)
- rev <- getYoungestRev fs
- value <- withRevision fs rev
- $ do exists <- isFile path
- case exists of
- True
- -> do str <- getFileContentsLBS path
- return $ Just $ chomp $ decode $ L.unpack str
- False
- -> return Nothing
-
- case value of
- Just str
- -> case deserialize str of
- Just val
- -> do debugM logger ("Got a config value at `" ++ path ++ "': " ++ show val)
- return val
- Nothing
- -> fail ("Got an invalid config value at `" ++ path ++ "': " ++ str)
- Nothing
- -> do let val = defaultValue sc
- debugM logger ("Got no config value at `" ++ path ++ "'. Defaulting to " ++ show val)
- return val
-
-
-setSysConf :: forall m a. (MonadIO m, SysConfValue a) => SystemConfig -> String -> a -> m StatusCode
-setSysConf sc userID value
- = liftIO $
- do let path = confPath (undefined :: a)
-
- current <- getSysConf sc
- if current == value
- then return NotModified
- else do atomically $ do cache <- readTVar (scCache sc)
- writeTVar (scCache sc) (M.delete path cache)
- setSysConf' sc userID value
-
-
-setSysConf' :: forall a. SysConfValue a => SystemConfig -> String -> a -> IO StatusCode
-setSysConf' sc userID value
- = do let path = fromConfPath $ confPath (undefined :: a)
- str = L.pack $ encode $ serialize value ++ "\n"
- repos = scRepository sc
- fs <- getRepositoryFS repos
- rev <- getYoungestRev fs
- ret <- doReposTxn
- repos
- rev
- userID
- (Just "Automatic commit by Rakka for systemConfig update")
- $ do exists <- isFile path
- unless exists
- $ createValueEntry path
- applyTextLBS path Nothing str
- case ret of
- Left _ -> return Conflict
- Right _ -> do debugM logger ("Set a config value at `" ++ path ++ "': " ++ show value)
- return Created
- where
- createValueEntry :: FilePath -> Txn ()
- createValueEntry path
- = do createParentDirectories path
- makeFile path
-
- createParentDirectories :: FilePath -> Txn ()
- createParentDirectories path
- = do let parentPath = takeDirectory path
- kind <- checkPath parentPath
- case kind of
- NoNode -> do createParentDirectories parentPath
- makeDirectory parentPath
- FileNode -> fail ("createParentDirectories: already exists a file: " ++ parentPath)
- DirNode -> return ()
-
-
-getSysConfA :: (ArrowIO a, SysConfValue c) => SystemConfig -> a b c
-getSysConfA = arrIO0 . getSysConf
-
-
-setSysConfA :: (ArrowIO a, SysConfValue c) => SystemConfig -> String -> a c StatusCode
-setSysConfA = (arrIO .) . setSysConf
-
-
-fromConfPath :: FilePath -> FilePath
-fromConfPath = ("/config" )
-
-
-serializeStringPairs :: [(String, String)] -> String
-serializeStringPairs = joinWith "\n" . map serializePair'
- where
- serializePair' :: (String, String) -> String
- serializePair' (a, b) = a ++ " " ++ b
-
-
-deserializeStringPairs :: String -> Maybe [(String, String)]
-deserializeStringPairs = mapM deserializePair' . lines
- where
- deserializePair' :: String -> Maybe (String, String)
- deserializePair' s = case break (== ' ') s of
- (a, ' ':b) -> Just (a, b)
- _ -> Nothing
-
-
-
-{- config values -}
-
-newtype SiteName = SiteName String deriving (Show, Typeable, Eq)
-instance SysConfValue SiteName where
- confPath _ = "siteName"
- serialize (SiteName name) = name
- deserialize = Just . SiteName
- defaultValue _ = SiteName "Rakka"
-
-
-newtype BaseURI = BaseURI URI deriving (Show, Typeable, Eq)
-instance SysConfValue BaseURI where
- confPath _ = "baseURI"
- serialize (BaseURI uri) = uriToString id uri ""
- deserialize uri = fmap BaseURI
- $ do parsed <- parseURI uri
- when (uriPath parsed == "" ) (fail undefined)
- when (last (uriPath parsed) /= '/') (fail undefined)
- when (uriQuery parsed /= "" ) (fail undefined)
- when (uriFragment parsed /= "" ) (fail undefined)
- return parsed
- defaultValue sc
- = let conf = scLucuConf sc
- host = C8.unpack $ LC.cnfServerHost conf
- port = case LC.cnfServerPort conf of
- PortNumber num -> fromIntegral num :: Int
- _ -> undefined
- defaultURI
- = "http://" ++ host ++ -- FIXME: consider IPv6 address
- (if port == 80
- then ""
- else ':' : show port) ++ "/"
- in
- BaseURI $ fromJust $ parseURI defaultURI
-
-
-newtype DefaultPage = DefaultPage String deriving (Show, Typeable, Eq)
-instance SysConfValue DefaultPage where
- confPath _ = "defaultPage"
- serialize (DefaultPage name) = name
- deserialize = Just . DefaultPage
- defaultValue _ = DefaultPage "MainPage"
-
-
-newtype StyleSheet = StyleSheet String deriving (Show, Typeable, Eq)
-instance SysConfValue StyleSheet where
- confPath _ = "styleSheet"
- serialize (StyleSheet name) = name
- deserialize = Just . StyleSheet
- defaultValue _ = StyleSheet "StyleSheet/Default"
-
-
-newtype Languages = Languages (Map LanguageTag LanguageName) deriving (Show, Typeable, Eq)
-instance SysConfValue Languages where
- confPath _ = "languages"
- serialize (Languages langs) = serializeStringPairs (M.toList langs)
- deserialize = fmap (Languages . M.fromList) . deserializeStringPairs
- defaultValue _
- = Languages $ M.fromList [ ("en", "English" )
- , ("es", "Español" )
- , ("de", "Deutsch" )
- , ("fi", "Suomi" )
- , ("fr", "Français" )
- , ("ga", "Gaeilge" )
- , ("gd", "Gàidhlig" )
- , ("ja", "日本語" )
- , ("pt", "Português")
- , ("sv", "Svenska" )
- ]
-
-
-newtype GlobalLock = GlobalLock Bool deriving (Show, Typeable, Eq)
-instance SysConfValue GlobalLock where
- confPath _ = "globalLock"
- serialize (GlobalLock isLocked)
- | isLocked = "*"
- | otherwise = ""
- deserialize "*" = Just (GlobalLock True)
- deserialize "" = Just (GlobalLock False)
- deserialize _ = Nothing
- defaultValue _ = GlobalLock False
rmfile ./Rakka/SystemConfig.hs
hunk ./Rakka/TrackBack.hs 1
-module Rakka.TrackBack
- ( TrackBack(..)
- )
- where
-
-import Data.Maybe
-import Data.Time
-import Network.URI
-import Rakka.Attachment
-import Rakka.Utils
-import Rakka.W3CDateTime
-import Text.XML.HXT.Arrow
-import Text.XML.HXT.DOM.TypeDefs
-
-
-data TrackBack
- = TrackBack {
- tbTitle :: !(Maybe String)
- , tbExcerpt :: !(Maybe String)
- , tbURL :: !URI
- , tbBlogName :: !(Maybe String)
- , tbTime :: !UTCTime
- }
- deriving (Show, Eq)
-
-
-{-
-
-
- excerpt...
-
- ...
-
--}
-instance Attachment [TrackBack] where
- serializeToXmlTree
- = proc trackbacks
- -> ( eelem "/"
- += ( eelem "trackbacks"
- += ( arrL id
- >>>
- tbToTree
- )
- )
- ) -< trackbacks
- where
- tbToTree :: ArrowXml a => a TrackBack XmlTree
- tbToTree
- = proc tb
- -> let title = case tbTitle tb of
- Nothing -> none
- Just t -> sattr "title" t
- excerpt = case tbExcerpt tb of
- Nothing -> none
- Just e -> txt e
- url = sattr "url" (uriToString id (tbURL tb) "")
- blogName = case tbBlogName tb of
- Nothing -> none
- Just n -> sattr "blogName" n
- time = sattr "time" (formatW3CDateTime $ utcToZonedTime utc (tbTime tb))
- in
- ( eelem "trackback"
- += title
- += url
- += blogName
- += time
- += excerpt
- ) -<< ()
-
- deserializeFromXmlTree
- = proc doc -> listA (getXPathTreesInDoc "/trackbacks/trackback" >>> treeToTb) -< doc
- where
- treeToTb :: (ArrowChoice a, ArrowXml a) => a XmlTree TrackBack
- treeToTb
- = proc tree
- -> do title <- maybeA (getAttrValue0 "title") -< tree
- url <- ( getAttrValue0 "url"
- >>>
- arr (fromJust . parseURI)
- ) -< tree
- time <- ( getAttrValue0 "time"
- >>>
- arr (zonedTimeToUTC . fromJust . parseW3CDateTime)
- ) -< tree
- blogName <- maybeA (getAttrValue0 "blogName") -< tree
- excerpt <- maybeA ( getChildren
- >>>
- getText
- ) -< tree
- returnA -< TrackBack {
- tbTitle = title
- , tbExcerpt = excerpt
- , tbURL = url
- , tbBlogName = blogName
- , tbTime = time
- }
rmfile ./Rakka/TrackBack.hs
hunk ./Rakka/Utils.hs 1
-module Rakka.Utils
- ( yesOrNo
- , trueOrFalse
- , parseYesOrNo
- , maybeA
- , deleteIfEmpty
- , chomp
- , guessMIMEType
- , isSafeChar
- , mkQueryString
- )
- where
-
-import qualified Codec.Binary.UTF8.String as UTF8
-import Control.Arrow
-import Control.Arrow.ArrowList
-import qualified Data.ByteString.Lazy as Lazy (ByteString)
-import qualified Data.ByteString.Lazy.Char8 as L8 hiding (ByteString)
-import Magic
-import Network.HTTP.Lucu
-import Network.URI
-import System.IO.Unsafe
-
-
-yesOrNo :: Bool -> String
-yesOrNo True = "yes"
-yesOrNo False = "no"
-
-
-trueOrFalse :: Bool -> String
-trueOrFalse True = "true"
-trueOrFalse False = "false"
-
-
-parseYesOrNo :: ArrowChoice a => a String Bool
-parseYesOrNo
- = proc str -> do case str of
- "yes" -> returnA -< True
- "no" -> returnA -< False
- _ -> returnA -< error ("Expected yes or no: " ++ str)
-
-
-maybeA :: (ArrowList a, ArrowChoice a) => a b c -> a b (Maybe c)
-maybeA a = listA a
- >>>
- proc xs -> case xs of
- [] -> returnA -< Nothing
- (x:_) -> returnA -< Just x
-
-
-deleteIfEmpty :: (ArrowList a, ArrowChoice a) => a String String
-deleteIfEmpty
- = proc str -> do case str of
- "" -> none -< ()
- _ -> returnA -< str
-
-
-chomp :: String -> String
-chomp = reverse . snd . break (/= '\n') . reverse
-
-
-guessMIMEType :: Lazy.ByteString -> MIMEType
-guessMIMEType = read . unsafePerformIO . magicString magic . L8.unpack
- where
- magic :: Magic
- magic = unsafePerformIO
- $ do m <- magicOpen [MagicMime]
- magicLoadDefault m
- return m
-
-
-isSafeChar :: Char -> Bool
-isSafeChar c
- | c == '/' = True
- | isReserved c = False
- | c > ' ' && c <= '~' = True
- | otherwise = False
-
-
-mkQueryString :: [(String, String)] -> String
-mkQueryString [] = ""
-mkQueryString ((k, v) : xs) = encode k ++ "=" ++ encode v ++
- if xs == [] then
- ""
- else
- ';' : mkQueryString(xs)
- where
- encode :: String -> String
- encode = escapeURIString isSafeChar . UTF8.encodeString
+
rmfile ./Rakka/Utils.hs
hunk ./Rakka/Validation.hs 1
-module Rakka.Validation
- ( getValidator
- )
- where
-
-import Control.Arrow
-import Control.Arrow.ArrowList
-import Control.Arrow.ArrowTree
-import Control.Monad.Reader
-import Paths_Rakka -- Cabal が用意する。
-import Rakka.Environment
-import System.Directory
-import System.FilePath
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.DOM.TypeDefs
-import qualified Text.XML.HXT.RelaxNG.Schema as S
-import Text.XML.HXT.RelaxNG.Validator
-
-
-loadSchema :: FilePath -> IO (IOSArrow XmlTree XmlTree)
-loadSchema fpath
- = do [schema] <- runX ( setErrorMsgHandler False fail
- >>>
- readForRelax [] fpath
- >>>
- perform (validateWithRelaxAndHandleErrors S.relaxSchemaArrow)
- >>>
- createSimpleForm [] True True True
- >>>
- perform ( getErrors
- >>>
- getChildren >>> getAttrValue "desc"
- >>>
- arr ("Relax NG validation: " ++ )
- >>>
- mkError c_err
- >>>
- filterErrorMsg
- )
- )
- return $ validateDocumentWithRelax schema
-
-
-doesLocalDirExist :: IO Bool
-doesLocalDirExist = doesDirectoryExist "schemas"
-
-
-getValidator :: MonadIO m => Environment -> FilePath -> m (IOSArrow XmlTree XmlTree)
-getValidator _ fname
- = liftIO $
- do let schemaPath = "schemas" fname
-
- localDirExists <- doesLocalDirExist
- if localDirExists then
- loadSchema schemaPath
- else
- getDataFileName ("schemas" fname) >>= loadSchema
rmfile ./Rakka/Validation.hs
hunk ./Rakka/W3CDateTime.hs 1
-module Rakka.W3CDateTime
- ( formatW3CDateTime
- , parseW3CDateTime
- )
- where
-
-import Control.Monad
-import Data.Time
-import Prelude hiding (min)
-import Text.ParserCombinators.Parsec
-import Text.Printf
-
-
-formatW3CDateTime :: ZonedTime -> String
-formatW3CDateTime zonedTime
- = formatLocalTime (zonedTimeToLocalTime zonedTime)
- ++
- formatTimeZone (zonedTimeZone zonedTime)
- where
- formatLocalTime :: LocalTime -> String
- formatLocalTime localTime
- = let (year, month, day) = toGregorian (localDay localTime)
- timeOfDay = localTimeOfDay localTime
- (secInt, secFrac) = properFraction (todSec timeOfDay)
- in
- printf "%04d-%02d-%02dT%02d:%02d:%02d"
- year
- month
- day
- (todHour timeOfDay)
- (todMin timeOfDay)
- (secInt :: Int)
- ++
- (if secFrac == 0
- then ""
- else tail (show secFrac))
-
- formatTimeZone :: TimeZone -> String
- formatTimeZone tz
- = case timeZoneMinutes tz of
- offset | offset < 0 -> '-' : (showTZ $ negate offset)
- | offset == 0 -> "Z"
- | otherwise -> '+' : showTZ offset
-
- showTZ :: Int -> String
- showTZ offset
- = let hour = offset `div` 60
- minute = offset - hour * 60
- in
- show2 hour ++ ":" ++ show2 minute
-
- show2 :: Int -> String
- show2 n | n < 10 = '0' : show n
- | otherwise = show n
-
-
-parseW3CDateTime :: String -> Maybe ZonedTime
-parseW3CDateTime src
- = case parse w3cDateTime "" src of
- Right zt -> Just zt
- Left _ -> Nothing
-
-w3cDateTime :: Parser ZonedTime
-w3cDateTime = do year <- liftM read (count 4 digit)
- mon <- option 1 (char '-' >> liftM read (count 2 digit))
- day <- option 1 (char '-' >> liftM read (count 2 digit))
- (hour, min, sec, offMin)
- <- option (0, 0, 0, 0) time
- eof
-
- let julianDay = fromGregorian year mon day
- timeOfDay = TimeOfDay hour min (fromRational $ toRational sec)
- localTime = LocalTime julianDay timeOfDay
- timeZone = minutesToTimeZone offMin
- zonedTime = ZonedTime localTime timeZone
-
- return zonedTime
- where
- time :: Parser (Int, Int, Double, Int)
- time = do _ <- char 'T'
- hour <- liftM read (count 2 digit)
- _ <- char ':'
- min <- liftM read (count 2 digit)
- sec <- option 0 $ do _ <- char ':'
- secInt <- count 2 digit
- secFrac <- option "" $ do c <- char '.'
- cs <- many1 digit
- return (c:cs)
- return $ read (secInt ++ secFrac)
- offMin <- (char 'Z' >> return 0)
- <|>
- (do sign <- (char '+' >> return 1)
- <|>
- (char '-' >> return (-1))
- h <- liftM read (count 2 digit)
- _ <- char ':'
- m <- liftM read (count 2 digit)
- return $ sign * h * 60 + m)
- return (hour, min, sec, offMin)
+
rmfile ./Rakka/W3CDateTime.hs
hunk ./Rakka/Wiki/Engine.hs 1
-module Rakka.Wiki.Engine
- ( InterpTable
- , makeMainXHTML
- , makeSubXHTML
- , makePreviewXHTML
- , makePageLinkList
- , makeDraft
- )
- where
-
-import qualified Codec.Binary.UTF8.String as UTF8
-import qualified Data.ByteString.Lazy as Lazy
-import qualified Data.ByteString.Lazy.Char8 as L8 hiding (ByteString)
-import Data.Map (Map)
-import qualified Data.Map as M
-import Data.Maybe
-import Network.HTTP.Lucu
-import Network.URI
-import OpenSSL.EVP.Base64
-import Rakka.Page
-import Rakka.Storage
-import Rakka.SystemConfig
-import Rakka.Utils
-import Rakka.Wiki
-import Rakka.Wiki.Parser
-import Rakka.Wiki.Formatter
-import Rakka.Wiki.Interpreter
-import Text.HyperEstraier hiding (getText)
-import Text.ParserCombinators.Parsec
-import Text.XML.HXT.Arrow hiding (err)
-import Text.XML.HXT.XPath
-
-
-type InterpTable = Map String Interpreter
-
-
-wikifyPage :: (ArrowXml a, ArrowChoice a) => InterpTable -> a XmlTree WikiPage
-wikifyPage interpTable
- = proc tree
- -> do pType <- getXPathTreesInDoc "/page/@type/text()" >>> getText >>> arr read -< tree
- textData <- maybeA (getXPathTreesInDoc "/page/textData/text()" >>> getText) -< tree
- base64Data <- maybeA (getXPathTreesInDoc "/page/binaryData/text()" >>> getText) -< tree
-
- let dataURI = fmap (binToURI pType) base64Data
-
- case pType of
- MIMEType "text" "x-rakka" _
- -> case parse (wikiPage $ cmdTypeOf interpTable) "" (fromJust textData) of
- Left err -> wikifyParseError -< err
- Right xs -> returnA -< xs
-
- MIMEType "image" _ _
- -- 
- -> returnA -< [ Paragraph [Image (Left $ fromJust dataURI) Nothing] ]
-
- _ -> if isJust dataURI then
- --
- -- application/zip
- --
- returnA -< [ Paragraph [ Anchor
- [("href", show dataURI)]
- [Text (show pType)]
- ]
- ]
- else
- -- pre
- returnA -< [ Preformatted [Text $ fromJust textData] ]
- where
- binToURI :: MIMEType -> String -> URI
- binToURI pType base64Data
- = nullURI {
- uriScheme = "data:"
- , uriPath = show pType ++ ";base64," ++ (stripWhiteSpace base64Data)
- }
-
- stripWhiteSpace :: String -> String
- stripWhiteSpace [] = []
- stripWhiteSpace (x:xs)
- | x `elem` " \t\n" = stripWhiteSpace xs
- | otherwise = x : stripWhiteSpace xs
-
-
-wikifyBin :: (ArrowXml a, ArrowChoice a) => InterpTable -> a (MIMEType, Lazy.ByteString) WikiPage
-wikifyBin interpTable
- = proc (pType, pBin)
- -> do let text = UTF8.decode $ Lazy.unpack pBin
- dataURI = binToURI pType pBin
-
- case pType of
- MIMEType "text" "x-rakka" _
- -> case parse (wikiPage $ cmdTypeOf interpTable) "" text of
- Left err -> wikifyParseError -< err
- Right xs -> returnA -< xs
-
- MIMEType "image" _ _
- --
- -> returnA -< [ Paragraph [Image (Left dataURI) Nothing] ]
-
-
- _
- --
- -- application/zip (19372 bytes)
- --
- -> returnA -< [ Paragraph [ Anchor
- [("href", show dataURI)]
- [Text (show pType ++
- " (" ++
- show (Lazy.length pBin) ++
- " bytes)")]
- ]
- ]
- where
- binToURI :: MIMEType -> Lazy.ByteString -> URI
- binToURI m b
- = nullURI {
- uriScheme = "data:"
- , uriPath = show m ++ ";base64," ++ (L8.unpack $ encodeBase64LBS b)
- }
-
-
-cmdTypeOf :: InterpTable -> String -> Maybe CommandType
-cmdTypeOf interpTable name
- = fmap commandType (M.lookup name interpTable)
-
-
-makeMainXHTML :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Storage
- -> SystemConfig
- -> InterpTable
- -> a XmlTree XmlTree
-makeMainXHTML sto sysConf interpTable
- = proc tree
- -> do BaseURI baseURI <- getSysConfA sysConf -< ()
- wiki <- wikifyPage interpTable -< tree
- pName <- getXPathTreesInDoc "/page/@name/text()" >>> getText -< tree
- interpreted <- interpretCommands sto sysConf interpTable
- -< (Just pName, Just tree, Just wiki, wiki)
- formatWikiBlocks -< (baseURI, interpreted)
-
-
-makeSubXHTML :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Storage
- -> SystemConfig
- -> InterpTable
- -> a (Maybe PageName, Maybe XmlTree, XmlTree) XmlTree
-makeSubXHTML sto sysConf interpTable
- = proc (mainPageName, mainPage, subPage)
- -> do BaseURI baseURI <- getSysConfA sysConf -< ()
- mainWiki <- case mainPage of
- Just page
- -> do wiki <- wikifyPage interpTable -< page
- returnA -< Just (page, wiki)
- Nothing
- -> returnA -< Nothing
- subWiki <- wikifyPage interpTable -< subPage
- interpreted <- interpretCommands sto sysConf interpTable
- -< (mainPageName, fmap fst mainWiki, fmap snd mainWiki, subWiki)
- formatWikiBlocks -< (baseURI, interpreted)
-
-
-makePreviewXHTML :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Storage
- -> SystemConfig
- -> InterpTable
- -> a (PageName, MIMEType, Lazy.ByteString) XmlTree
-makePreviewXHTML sto sysConf interpTable
- = proc (name, pageType, pageBin)
- -> do BaseURI baseURI <- getSysConfA sysConf -< ()
- wiki <- wikifyBin interpTable -< (pageType, pageBin)
- interpreted <- interpretCommands sto sysConf interpTable
- -< (Just name, Nothing, Just wiki, wiki)
- formatWikiBlocks -< (baseURI, interpreted)
-
-
-interpretCommands :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Storage
- -> SystemConfig
- -> InterpTable
- -> a (Maybe PageName, Maybe XmlTree, Maybe WikiPage, WikiPage) WikiPage
-interpretCommands sto sysConf interpTable
- = proc (name, mainPage, mainWiki, targetWiki)
- -> let ctx = InterpreterContext {
- ctxPageName = name
- , ctxMainPage = mainPage
- , ctxMainWiki = mainWiki
- , ctxTargetWiki = targetWiki
- , ctxStorage = sto
- , ctxSysConf = sysConf
- }
- in
- arrIO2 (mapM . interpBlock) -< (ctx, targetWiki)
- where
- interpElem :: InterpreterContext -> Element -> IO Element
- interpElem ctx (Block b) = interpBlock ctx b >>= return . Block
- interpElem ctx (Inline i) = interpInline ctx i >>= return . Inline
-
- interpBlock :: InterpreterContext -> BlockElement -> IO BlockElement
- interpBlock ctx (List lType lItems) = mapM (interpListItem ctx) lItems >>= return . List lType
- interpBlock ctx (DefinitionList defs) = mapM (interpDefinition ctx) defs >>= return . DefinitionList
- interpBlock ctx (Preformatted inlines) = mapM (interpInline ctx) inlines >>= return . Preformatted
- interpBlock ctx (Paragraph inlines) = mapM (interpInline ctx) inlines >>= return . Paragraph
- interpBlock ctx (Div attrs elems) = mapM (interpElem ctx) elems >>= return . Div attrs
- interpBlock ctx (BlockCmd bcmd) = interpBlockCommand ctx bcmd
- interpBlock _ x = return x
-
- interpInline :: InterpreterContext -> InlineElement -> IO InlineElement
- interpInline ctx (Italic inlines) = mapM (interpInline ctx) inlines >>= return . Italic
- interpInline ctx (Bold inlines) = mapM (interpInline ctx) inlines >>= return . Bold
- interpInline ctx (Span attrs inlines) = mapM (interpInline ctx) inlines >>= return . Span attrs
- interpInline ctx (Anchor attrs inlines) = mapM (interpInline ctx) inlines >>= return . Anchor attrs
- interpInline ctx (InlineCmd icmd) = interpInlineCommand ctx icmd
- interpInline _ x = return x
-
- interpListItem :: InterpreterContext -> ListItem -> IO ListItem
- interpListItem = mapM . interpElem
-
- interpDefinition :: InterpreterContext -> Definition -> IO Definition
- interpDefinition ctx (Definition term desc)
- = do term' <- mapM (interpInline ctx) term
- desc' <- mapM (interpInline ctx) desc
- return (Definition term' desc')
-
- interpBlockCommand :: InterpreterContext -> BlockCommand -> IO BlockElement
- interpBlockCommand ctx cmd
- = case M.lookup (bCmdName cmd) interpTable of
- Nothing
- -> fail ("no such interpreter: " ++ bCmdName cmd)
-
- Just interp
- -> bciInterpret interp ctx cmd
- >>=
- interpBlock ctx
-
- interpInlineCommand :: InterpreterContext -> InlineCommand -> IO InlineElement
- interpInlineCommand ctx cmd
- = case M.lookup (iCmdName cmd) interpTable of
- Nothing
- -> fail ("no such interpreter: " ++ iCmdName cmd)
-
- Just interp
- -> iciInterpret interp ctx cmd
- >>=
- interpInline ctx
-
-
-makeDraft :: (ArrowXml a, ArrowChoice a, ArrowIO a) => InterpTable -> a XmlTree Document
-makeDraft interpTable
- = proc tree ->
- do redir <- maybeA (getXPathTreesInDoc "/page/@redirect") -< tree
- case redir of
- Nothing -> makeEntityDraft -< tree
- Just _ -> makeRedirectDraft -< tree
- where
- makeEntityDraft :: (ArrowXml a, ArrowChoice a, ArrowIO a) => a XmlTree Document
- makeEntityDraft
- = proc tree ->
- do doc <- arrIO0 newDocument -< ()
-
- pName <- getXPathTreesInDoc "/page/@name/text()" >>> getText -< tree
- pType <- getXPathTreesInDoc "/page/@type/text()" >>> getText -< tree
- pLastMod <- getXPathTreesInDoc "/page/@lastModified/text()" >>> getText -< tree
- pIsLocked <- getXPathTreesInDoc "/page/@isLocked/text()" >>> getText -< tree
- pIsBinary <- getXPathTreesInDoc "/page/@isBinary/text()" >>> getText -< tree
- pRevision <- getXPathTreesInDoc "/page/@revision/text()" >>> getText -< tree
- pLang <- maybeA (getXPathTreesInDoc "/page/@lang/text()" >>> getText) -< tree
- pIsTheme <- maybeA (getXPathTreesInDoc "/page/@isTheme/text()" >>> getText) -< tree
- pIsFeed <- maybeA (getXPathTreesInDoc "/page/@isFeed/text()" >>> getText) -< tree
- pSummary <- maybeA (getXPathTreesInDoc "/page/summary/text()" >>> getText) -< tree
-
- arrIO2 setURI -< (doc, Just $ mkRakkaURI pName)
- arrIO2 (flip setAttribute "@title" ) -< (doc, Just pName)
- arrIO2 (flip setAttribute "@type" ) -< (doc, Just pType)
- arrIO2 (flip setAttribute "@mdate" ) -< (doc, Just pLastMod)
- arrIO2 (flip setAttribute "@lang" ) -< (doc, pLang)
- arrIO2 (flip setAttribute "rakka:isLocked") -< (doc, Just pIsLocked)
- arrIO2 (flip setAttribute "rakka:isBinary") -< (doc, Just pIsBinary)
- arrIO2 (flip setAttribute "rakka:revision") -< (doc, Just pRevision)
- arrIO2 (flip setAttribute "rakka:summary" ) -< (doc, pSummary)
-
- arrIO2 addHiddenText -< (doc, pName)
-
- case pSummary of
- Just s -> arrIO2 addHiddenText -< (doc, s)
- Nothing -> returnA -< ()
-
- -- otherLang はリンク先ページ名を hidden text で入れる。
- otherLangs <- listA (getXPathTreesInDoc "/page/otherLang/link/@page/text()" >>> getText) -< tree
- listA ( (arr fst &&& arrL snd)
- >>>
- arrIO2 addHiddenText
- >>>
- none
- ) -< (doc, otherLangs)
-
- case read pType of
- MIMEType "text" "css" _
- -> arrIO2 (flip setAttribute "rakka:isTheme") -< (doc, pIsTheme)
-
- MIMEType "text" "x-rakka" _
- -- wikify して興味のある部分を addText する。
- -> do arrIO2 (flip setAttribute "rakka:isFeed") -< (doc, pIsFeed)
- wiki <- wikifyPage interpTable -< tree
- arrIO2 (mapM_ . addBlockText) -< (doc, wiki)
-
- MIMEType _ _ _
- -> returnA -< ()
-
- returnA -< doc
-
- makeRedirectDraft :: (ArrowXml a, ArrowChoice a, ArrowIO a) => a XmlTree Document
- makeRedirectDraft
- = proc tree ->
- do doc <- arrIO0 newDocument -< ()
-
- pName <- getXPathTreesInDoc "/page/@name/text()" >>> getText -< tree
- pRedir <- getXPathTreesInDoc "/page/@redirect/text()" >>> getText -< tree
- pIsLocked <- getXPathTreesInDoc "/page/@isLocked/text()" >>> getText -< tree
- pRevision <- getXPathTreesInDoc "/page/@revision/text()" >>> getText -< tree
- pLastMod <- getXPathTreesInDoc "/page/@lastModified/text()" >>> getText -< tree
-
- arrIO2 setURI -< (doc, Just $ mkRakkaURI pName)
- arrIO2 (flip setAttribute "@title" ) -< (doc, Just pName)
- arrIO2 (flip setAttribute "@type" ) -< (doc, Just "application/x-rakka-redirection")
- arrIO2 (flip setAttribute "@mdate" ) -< (doc, Just pLastMod)
- arrIO2 (flip setAttribute "rakka:isLocked") -< (doc, Just pIsLocked)
- arrIO2 (flip setAttribute "rakka:revision") -< (doc, Just pRevision)
-
- -- リダイレクト先ページ名はテキストとして入れる
- arrIO2 addText -< (doc, pRedir)
-
- returnA -< doc
-
- addElemText :: Document -> Element -> IO ()
- addElemText doc (Block b) = addBlockText doc b
- addElemText doc (Inline i) = addInlineText doc i
-
- addBlockText :: Document -> BlockElement -> IO ()
- addBlockText doc (Heading _ text) = addText doc text
- addBlockText _ HorizontalLine = return ()
- addBlockText doc (List _ items) = mapM_ (addListItemText doc) items
- addBlockText doc (DefinitionList defs) = mapM_ (addDefinitionText doc) defs
- addBlockText doc (Preformatted inlines) = mapM_ (addInlineText doc) inlines
- addBlockText doc (Paragraph inlines) = mapM_ (addInlineText doc) inlines
- addBlockText doc (Div _ elems) = mapM_ (addElemText doc) elems
- addBlockText _ EmptyBlock = return ()
- addBlockText doc (BlockCmd bcmd) = addBlockCmdText doc bcmd
-
- addInlineText :: Document -> InlineElement -> IO ()
- addInlineText doc (Text text) = addText doc text
- addInlineText doc (Italic inlines) = mapM_ (addInlineText doc) inlines
- addInlineText doc (Bold inlines) = mapM_ (addInlineText doc) inlines
- addInlineText doc (ObjectLink page Nothing) = addText doc page
- addInlineText doc (ObjectLink page (Just text)) = addHiddenText doc page
- >> addText doc text
- addInlineText doc (PageLink page fragm Nothing) = addText doc (fromMaybe "" page ++ fromMaybe "" fragm)
- addInlineText doc (PageLink page fragm (Just text)) = addHiddenText doc (fromMaybe "" page ++ fromMaybe "" fragm)
- >> addText doc text
- addInlineText doc (ExternalLink uri Nothing) = addText doc (uriToString id uri "")
- addInlineText doc (ExternalLink uri (Just text)) = addHiddenText doc (uriToString id uri "")
- >> addText doc text
- addInlineText _ (LineBreak _) = return ()
- addInlineText doc (Span _ inlines) = mapM_ (addInlineText doc) inlines
- addInlineText doc (Image src alt) = do case src of
- Left uri -> addHiddenText doc (uriToString id uri "")
- Right page -> addHiddenText doc page
- case alt of
- Just text -> addHiddenText doc text
- Nothing -> return ()
- addInlineText doc (Anchor _ inlines) = mapM_ (addInlineText doc) inlines
- addInlineText _ (Input _) = return ()
- addInlineText _ EmptyInline = return ()
- addInlineText doc (InlineCmd icmd) = addInlineCmdText doc icmd
-
- addListItemText :: Document -> ListItem -> IO ()
- addListItemText = mapM_ . addElemText
-
- addDefinitionText :: Document -> Definition -> IO ()
- addDefinitionText doc (Definition term desc)
- = do mapM_ (addInlineText doc) term
- mapM_ (addInlineText doc) desc
-
- addBlockCmdText :: Document -> BlockCommand -> IO ()
- addBlockCmdText doc (BlockCommand _ _ blocks) = mapM_ (addBlockText doc) blocks
-
- addInlineCmdText :: Document -> InlineCommand -> IO ()
- addInlineCmdText doc (InlineCommand _ _ inlines) = mapM_ (addInlineText doc) inlines
-
-
-makePageLinkList :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
- Storage
- -> SystemConfig
- -> InterpTable
- -> a XmlTree [PageName]
-makePageLinkList sto sysConf interpTable
- = proc tree
- -> do wiki <- wikifyPage interpTable -< tree
- pName <- getXPathTreesInDoc "/page/@name/text()" >>> getText -< tree
- interpreted <- interpretCommands sto sysConf interpTable
- -< (Just pName, Just tree, Just wiki, wiki)
- returnA -< concatMap extractFromBlock interpreted
- where
- extractFromElem :: Element -> [PageName]
- extractFromElem (Block b) = extractFromBlock b
- extractFromElem (Inline i) = extractFromInline i
-
- extractFromBlock :: BlockElement -> [PageName]
- extractFromBlock (List _ items) = concatMap extractFromListItem items
- extractFromBlock (DefinitionList defs) = concatMap extractFromDefinition defs
- extractFromBlock (Preformatted inlines) = concatMap extractFromInline inlines
- extractFromBlock (Paragraph inlines) = concatMap extractFromInline inlines
- extractFromBlock (Div _ elems) = concatMap extractFromElem elems
- extractFromBlock _ = []
-
- extractFromInline :: InlineElement -> [PageName]
- extractFromInline (Italic inlines) = concatMap extractFromInline inlines
- extractFromInline (Bold inlines) = concatMap extractFromInline inlines
- extractFromInline (Span _ inlines) = concatMap extractFromInline inlines
- extractFromInline (PageLink (Just name) _ _) = [name]
- extractFromInline _ = []
-
- extractFromListItem :: ListItem -> [PageName]
- extractFromListItem = concatMap extractFromElem
-
- extractFromDefinition :: Definition -> [PageName]
- extractFromDefinition (Definition term desc)
- = concatMap extractFromInline term
- ++
- concatMap extractFromInline desc
-
-
-wikifyParseError :: Arrow a => a ParseError WikiPage
-wikifyParseError = proc err
- -> returnA -< [Div [("class", "error")]
- [ Block (Preformatted [Text (show err)]) ]]
rmfile ./Rakka/Wiki/Engine.hs
hunk ./Rakka/Wiki/Formatter.hs 1
-module Rakka.Wiki.Formatter
- ( formatWikiBlocks
- )
- where
-
-import Control.Arrow
-import Control.Arrow.ArrowIf
-import Control.Arrow.ArrowList
-import Control.Arrow.ArrowTree
-import Data.Maybe
-import Network.URI hiding (fragment)
-import Rakka.Page
-import Rakka.Wiki
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.DOM.TypeDefs
-
-
-formatWikiBlocks :: (ArrowXml a, ArrowChoice a) => a (URI, [BlockElement]) XmlTree
-formatWikiBlocks
- = proc (baseURI, blocks)
- -> do block <- arrL id -< blocks
- tree <- formatBlock -< (baseURI, block)
- attachXHtmlNS -< tree
-
-
-formatElement :: (ArrowXml a, ArrowChoice a) => a (URI, Element) XmlTree
-formatElement
- = proc (baseURI, e)
- -> case e of
- Block b -> formatBlock -< (baseURI, b)
- Inline i -> formatInline -< (baseURI, i)
-
-
-formatBlock :: (ArrowXml a, ArrowChoice a) => a (URI, BlockElement) XmlTree
-formatBlock
- = proc (baseURI, block)
- -> case block of
- Heading level text
- -> formatHeading -< (level, text)
-
- HorizontalLine
- -> eelem "hr" -< ()
-
- list@(List _ _)
- -> formatListElement -< (baseURI, list)
-
- DefinitionList list
- -> formatDefinitionList -< (baseURI, list)
-
- Preformatted inlines
- -> formatPreformatted -< (baseURI, inlines)
-
- Paragraph inlines
- -> formatParagraph -< (baseURI, inlines)
-
- Div attrs contents
- -> formatElem "div" -< (baseURI, attrs, contents)
-
- EmptyBlock
- -> none -< ()
-
- _ -> arr (error . ("formatBlock: unsupported BlockElement: " ++) . show) -< block
- where
- formatElem :: (ArrowXml a, ArrowChoice a) =>
- String
- -> a (URI, [Attribute], [Element]) XmlTree
- formatElem name
- = proc (baseURI, attrs, contents)
- -> ( eelem name
- += ( arrL (fst . snd)
- >>>
- attrFromPair
- )
- += ( (arr fst &&& arrL (snd . snd))
- >>>
- formatElement
- )
- ) -< (baseURI, (attrs, contents))
-
-
-formatHeading :: ArrowXml a => a (Int, String) XmlTree
-formatHeading
- = proc (level, text)
- -> mkelem ("h" ++ show level)
- [ sattr "id" text ]
- [ txt text ] -<< ()
-
-
-formatListElement :: (ArrowXml a, ArrowChoice a) => a (URI, BlockElement) XmlTree
-formatListElement
- = proc (baseURI, list)
- -> let tag = case listType list of
- Bullet -> "ul"
- Numbered -> "ol"
- in
- ( eelem tag
- += ( (constA baseURI &&& constL (listItems list))
- >>>
- formatListItem
- )
- ) -<< ()
- where
- formatListItem :: (ArrowXml a, ArrowChoice a) => a (URI, ListItem) XmlTree
- formatListItem
- = proc (baseURI, item)
- -> eelem "li"
- += ( (arr fst &&& arrL snd)
- >>>
- formatElement
- ) -< (baseURI, item)
-
-
-formatDefinitionList :: (ArrowXml a, ArrowChoice a) => a (URI, [Definition]) XmlTree
-formatDefinitionList
- = proc (baseURI, list)
- -> ( eelem "dl"
- += ( (arr fst &&& arrL snd)
- >>>
- formatDefinition
- )
- ) -< (baseURI, list)
- where
- formatDefinition :: (ArrowXml a, ArrowChoice a) => a (URI, Definition) XmlTree
- formatDefinition
- = proc (baseURI, def)
- -> ( eelem "dt"
- += ( (arr fst &&& arrL (defTerm . snd))
- >>>
- formatInline
- )
- <+>
- eelem "dd"
- += ( (arr fst &&& arrL (defDesc . snd))
- >>>
- formatInline
- )
- ) -< (baseURI, def)
-
-
-formatPreformatted :: (ArrowXml a, ArrowChoice a) => a (URI, [InlineElement]) XmlTree
-formatPreformatted
- = eelem "pre"
- += ( (arr fst &&& arrL snd)
- >>>
- formatInline
- )
-
-
-formatParagraph :: (ArrowXml a, ArrowChoice a) => a (URI, [InlineElement]) XmlTree
-formatParagraph
- = eelem "p"
- += ( (arr fst &&& arrL snd)
- >>>
- formatInline
- )
-
-
-formatInline :: (ArrowXml a, ArrowChoice a) => a (URI, InlineElement) XmlTree
-formatInline
- = proc (baseURI, i)
- -> case i of
- Text text
- -> mkText -< text
-
- Italic contents
- -> formatElem "i" -< (baseURI, [], contents)
-
- Bold contents
- -> formatElem "b" -< (baseURI, [], contents)
-
- link@(ObjectLink _ _)
- -> formatObjectLink -< (baseURI, link)
-
- link@(PageLink _ _ _)
- -> formatPageLink -< (baseURI, link)
-
- link@(ExternalLink _ _)
- -> formatExternalLink -< link
-
- LineBreak attrs
- -> formatElem "br" -< (baseURI, attrs, [])
-
- Span attrs contents
- -> formatElem "span" -< (baseURI, attrs, contents)
-
- img@(Image _ _)
- -> formatImage -< (baseURI, img)
-
- Anchor attrs contents
- -> formatElem "a" -< (baseURI, attrs, contents)
-
- Input attrs
- -> formatElem "input" -< (baseURI, attrs, [])
-
- EmptyInline
- -> none -< ()
-
- _ -> arr (error . ("formatInline: unsupported InlineElement: " ++) . show) -< i
- where
- formatElem :: (ArrowXml a, ArrowChoice a) =>
- String
- -> a (URI, [Attribute], [InlineElement]) XmlTree
- formatElem name
- = proc (baseURI, attrs, contents)
- -> ( eelem name
- += ( arrL (fst . snd)
- >>>
- attrFromPair
- )
- += ( (arr fst &&& arrL (snd . snd))
- >>>
- formatInline
- )
- ) -< (baseURI, (attrs, contents))
-
-
-attrFromPair :: (ArrowXml a) => a (String, String) XmlTree
-attrFromPair = proc (name, value)
- -> attr name (txt value) -<< ()
-
-
-formatObjectLink :: (ArrowXml a) => a (URI, InlineElement) XmlTree
-formatObjectLink
- = proc (baseURI, ObjectLink page text)
- -> let uri = mkObjectURI baseURI page
- href = uriToString id uri ""
- label = fromMaybe ("{" ++ page ++ "}") text
- in
- mkAnchor -< (href, label)
-
-
-formatPageLink :: (ArrowXml a) => a (URI, InlineElement) XmlTree
-formatPageLink
- = proc (baseURI, PageLink page fragment text)
- -> let uri = case (page, fragment) of
- (Just x, Just y) -> mkPageFragmentURI baseURI x y
- (Just x, Nothing) -> mkPageURI baseURI x
- (Nothing, Just y) -> mkFragmentURI y
- _ -> undefined
- href = uriToString id uri ""
- dLabel = fromMaybe "" page ++ fromMaybe "" (fmap ('#':) fragment)
- label = fromMaybe dLabel text
- in
- mkAnchor -< (href, label)
-
-
-formatImage :: (ArrowXml a) => a (URI, InlineElement) XmlTree
-formatImage = proc (baseURI, Image src alt)
- -> let uri = case src of
- Left u -> u
- Right name -> mkObjectURI baseURI name
- href = uriToString id uri ""
- in
- ( eelem "img"
- += sattr "src" href
- += ( case alt of
- Just x -> sattr "alt" x
- Nothing -> none
- )
- ) -<< ()
-
-
-formatExternalLink :: (ArrowXml a) => a InlineElement XmlTree
-formatExternalLink
- = proc (ExternalLink uri text)
- -> let href = uriToString id uri ""
- label = fromMaybe href text
- in
- mkAnchor -< (href, label)
-
-
-mkAnchor :: (ArrowXml a) => a (String, String) XmlTree
-mkAnchor = eelem "a"
- += attr "href" (arr fst >>> mkText)
- += (arr snd >>> mkText)
-
-
-attachXHtmlNS :: (ArrowXml a) => a XmlTree XmlTree
-attachXHtmlNS = processTopDown (changeQName attach `when` isElem)
- where
- attach :: QName -> QName
- attach = setNamePrefix' (newXName "xhtml") .
- setNamespaceUri' (newXName "http://www.w3.org/1999/xhtml")
rmfile ./Rakka/Wiki/Formatter.hs
hunk ./Rakka/Wiki/Interpreter/Base.hs 1
-module Rakka.Wiki.Interpreter.Base
- ( interpreters
- )
- where
-
-import Data.Map (Map)
-import qualified Data.Map as M
-import Data.Maybe
-import Rakka.Page
-import Rakka.SystemConfig
-import Rakka.Wiki
-import Rakka.Wiki.Interpreter
-import Text.XML.HXT.Arrow
-import Text.XML.HXT.XPath
-
-
-interpreters :: [Interpreter]
-interpreters = [ lineBreakInterp
- , spanInterp
- , divInterp
- , pageNameInterp
- , otherLangsInterp
- , newPageInterp
- , editPageInterp
- , loginInterp
- , searchFieldInterp
- , configurationInterp
- ]
-
-
-lineBreakInterp :: Interpreter
-lineBreakInterp = InlineCommandInterpreter {
- iciName = "br"
- , iciInterpret
- = \ _ (InlineCommand _ attrs _) -> return $ LineBreak attrs
- }
-
-
-spanInterp :: Interpreter
-spanInterp = InlineCommandInterpreter {
- iciName = "span"
- , iciInterpret
- = \ _ (InlineCommand _ attrs contents) -> return $ Span attrs contents
- }
-
-
-divInterp :: Interpreter
-divInterp = BlockCommandInterpreter {
- bciName = "div"
- , bciInterpret
- = \ _ (BlockCommand _ attrs contents)
- -> return $ Div attrs (map Block contents)
- }
-
-
-pageNameInterp :: Interpreter
-pageNameInterp = InlineCommandInterpreter {
- iciName = "pageName"
- , iciInterpret
- = \ ctx _ -> return $ Text (fromMaybe "" $ ctxPageName ctx)
- }
-
-
-otherLangsInterp :: Interpreter
-otherLangsInterp
- = BlockCommandInterpreter {
- bciName = "inOtherLanguages"
- , bciInterpret
- = \ ctx _ ->
- let linkTable = case ctxMainPage ctx of
- Just page -> runLA ( getXPathTreesInDoc "/page/otherLang/link"
- >>>
- ( getAttrValue0 "lang"
- &&&
- getAttrValue0 "page"
- )
- ) page
- Nothing -> []
- in
- case linkTable of
- [] -> return EmptyBlock
- _ -> do Languages langTable <- getSysConf (ctxSysConf ctx)
- let merged = mergeTables langTable linkTable
- return $ mkLangList merged
- }
- where
- mergeTables :: Map LanguageTag LanguageName
- -> [(LanguageTag, PageName)]
- -> [(LanguageName, PageName)]
- mergeTables _ [] = []
- mergeTables m (x:xs) = let (langTag, name) = x
- langName = fromMaybe langTag (M.lookup langTag m)
- in
- (langName, name) : mergeTables m xs
-
- mkLangList :: [(LanguageName, PageName)] -> BlockElement
- mkLangList = List Bullet . map mkLangLink
-
- mkLangLink :: (LanguageName, PageName) -> ListItem
- mkLangLink (langName, name)
- = [Inline (PageLink (Just name) Nothing (Just langName))]
-
-
---
-newPageInterp :: Interpreter
-newPageInterp
- = InlineCommandInterpreter {
- iciName = "newPage"
- , iciInterpret
- = \ _ (InlineCommand _ args _) ->
- let label = fromMaybe "Create new page" (lookup "label" args)
- attrs = [ ("type" , "button")
- , ("value" , label)
- , ("onclick", "Rakka.newPage()")
- , ("class" , "newButton controls")
- ]
- in
- return (Input attrs)
- }
-
-
---
-editPageInterp :: Interpreter
-editPageInterp
- = InlineCommandInterpreter {
- iciName = "editPage"
- , iciInterpret
- = \ ctx (InlineCommand _ args _) ->
- let name = fromMaybe (fromMaybe "" $ ctxPageName ctx) (lookup "page" args)
- label = fromMaybe "Edit this page" (lookup "label" args)
- attrs = [ ("type" , "button")
- , ("value" , label)
- , ("onclick", "Rakka.editPage(\"" ++ name ++ "\")")
- , ("class" , "editButton controls")
- ]
- in
- return (Input attrs)
- }
-
-
---
-loginInterp :: Interpreter
-loginInterp
- = InlineCommandInterpreter {
- iciName = "login"
- , iciInterpret
- = \ _ _ ->
- let attrs = [ ("type" , "button")
- , ("value", "Login")
- , ("class", "loginButton controls")
- ]
- in
- return (Input attrs)
- }
-
-
---
-searchFieldInterp :: Interpreter
-searchFieldInterp
- = InlineCommandInterpreter {
- iciName = "searchField"
- , iciInterpret
- = \ _ _ ->
- let attrs = [ ("type" , "text")
- , ("class", "searchField")
- ]
- in
- return (Input attrs)
- }
-
---
-configurationInterp :: Interpreter
-configurationInterp
- = InlineCommandInterpreter {
- iciName = "configuration"
- , iciInterpret
- = \ _ _ ->
- let attrs = [ ("type" , "button")
- , ("value", "Configuration")
- , ("class", "configButton controls")
- ]
- in
- return (Input attrs)
- }
rmfile ./Rakka/Wiki/Interpreter/Base.hs
hunk ./Rakka/Wiki/Interpreter/Image.hs 1
-module Rakka.Wiki.Interpreter.Image
- ( interpreters
- )
- where
-
-import Network.URI
-import Rakka.Page
-import Rakka.SystemConfig
-import Rakka.Wiki.Interpreter
-import Rakka.Wiki
-
-
-interpreters :: [Interpreter]
-interpreters = [ imageInterp
- , imgFrameInterp
- ]
-
-
--- ![[Alternative]]([PageName])
-- 空文字列の場合はリンク無し
-
---
--- 
---
-imageInterp :: Interpreter
-imageInterp
- = InlineCommandInterpreter {
- iciName = "img"
- , iciInterpret
- = \ ctx (InlineCommand _ attrs _) ->
- do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
-
- let name = case lookup "src" attrs of
- Just x -> x
- Nothing -> error "\"src\" attribute is missing"
- link = case lookup "link" attrs of
- Just "" -> Nothing
- Just x -> if isURI x then
- Just x
- else
- Just (uriToString id (mkPageURI baseURI x) "")
- Nothing -> Just (uriToString id (mkPageURI baseURI name) "")
- alt = lookup "alt" attrs
- classAttr = case lookup "float" attrs of
- Nothing -> "inlineImage"
- Just "left" -> "inlineImage leftFloat"
- Just "right" -> "inlineImage rightFloat"
- Just others -> error ("unknown \"float\" attribute: " ++ others)
- result = case link of
- Nothing -> Span [("class", classAttr)] [Image (Right name) alt]
- Just x -> Anchor [ ("class", classAttr)
- , ("href" , x ) ] [Image (Right name) alt]
- return result
- }
-
-
---
-imgFrameInterp :: Interpreter
-imgFrameInterp
- = BlockCommandInterpreter {
- bciName = "imgframe"
- , bciInterpret
- = \ ctx (BlockCommand _ attrs inside) ->
- do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
-
- let name = case lookup "src" attrs of
- Just x -> x
- Nothing -> error "\"src\" attribute is missing"
- link = case lookup "link" attrs of
- Just "" -> Nothing
- Just x -> if isURI x then
- Just x
- else
- Just (uriToString id (mkPageURI baseURI x) "")
- Nothing -> Just (uriToString id (mkPageURI baseURI name) "")
- classAttr = case lookup "float" attrs of
- Nothing -> ("class", "imageFrame")
- Just "left" -> ("class", "imageFrame leftFloat")
- Just "right" -> ("class", "imageFrame rightFloat")
- Just others -> error ("unknown \"float\" attribute: " ++ others)
- image = case link of
- Nothing -> Image (Right name) Nothing
- Just x -> Anchor [("href" , x)] [Image (Right name) Nothing]
-
- return (Div [classAttr]
- [ Block (Div [("class", "imageData")]
- [ Inline image ])
- , Block (Div [("class", "imageCaption")]
- [ Block x | x <- inside ])
- ]
- )
- }
rmfile ./Rakka/Wiki/Interpreter/Image.hs
hunk ./Rakka/Wiki/Interpreter/Outline.hs 1
-module Rakka.Wiki.Interpreter.Outline
- ( interpreters
- )
- where
-
-import Data.Maybe
-import Rakka.Wiki
-import Rakka.Wiki.Interpreter
-
-
-interpreters :: [Interpreter]
-interpreters = [ outlineInterp ]
-
-
-outlineInterp :: Interpreter
-outlineInterp = BlockCommandInterpreter {
- bciName = "outline"
- , bciInterpret
- = \ ctx _ ->
- case ctxMainWiki ctx of
- Just tree -> return $ Div [("class", "outline")] [Block $ mkOutline tree]
- Nothing -> return EmptyBlock
- }
-
-
-mkOutline :: WikiPage -> BlockElement
-mkOutline tree = fst (mkOutline' emptyOutline 1 headings)
- where
- headings :: [BlockElement]
- headings = concatMap collectInBlock tree
-
- collectInBlock :: BlockElement -> [BlockElement]
- collectInBlock hd@(Heading _ _)
- = [hd]
- collectInBlock (Div _ xs)
- = concatMap collectInBlock $ catMaybes (map castToBlock xs)
- collectInBlock (BlockCmd (BlockCommand _ _ xs))
- = concatMap collectInBlock xs
- collectInBlock _
- = []
-
- castToBlock :: Element -> Maybe BlockElement
- castToBlock (Block e) = Just e
- castToBlock _ = Nothing
-
-
-emptyOutline :: BlockElement
-emptyOutline = List Bullet []
-
-
-mkOutline' :: BlockElement -> Int -> [BlockElement] -> (BlockElement, [BlockElement])
-mkOutline' soFar _ [] = (soFar, [])
-mkOutline' soFar level (x:xs)
- = case x of
- Heading n text
- | n == level
- -- 同じレベルなので soFar に單獨の ListItem を追加して
- -- 續行。
- -> let link = PageLink {
- linkPage = Nothing
- , linkFragment = Just text
- , linkText = Just text
- }
- item = [Inline link]
- in
- mkOutline' (soFar { listItems = listItems soFar ++ [item] }) n xs
-
- | n < level
- -- 低いレベルなのでここで終了。
- -> (soFar, x:xs)
-
- | n > level
- -- 高いレベルなので再帰して ListElement を作り、
- -- それを soFar の最後の ListItem に追加する。
- -> let (nested, ys) = mkOutline' emptyOutline (level + 1) (x:xs)
- itemsSoFar = listItems soFar
-
- nonLastItems, lastItem :: [ListItem]
- (nonLastItems, lastItem) = splitAt (length itemsSoFar - 1) itemsSoFar
-
- lastItem' :: ListItem
- lastItem' = case lastItem of
- [] -> [Block nested]
- i:[] -> i ++ [Block nested]
- _ -> undefined
-
- soFar' = soFar { listItems = nonLastItems ++ [lastItem'] }
- in
- mkOutline' soFar' level ys
- _ -> undefined
+
rmfile ./Rakka/Wiki/Interpreter/Outline.hs
hunk ./Rakka/Wiki/Interpreter/PageList.hs 1
-module Rakka.Wiki.Interpreter.PageList
- ( interpreters
- )
- where
-
-import Control.Monad
-import Data.Maybe
-import Data.Time
-import Network.HTTP.Lucu.RFC1123DateTime
-import Network.URI
-import Rakka.Storage
-import Rakka.SystemConfig
-import Rakka.Utils
-import Rakka.Wiki
-import Rakka.Wiki.Interpreter
-import System.FilePath
-import Text.HyperEstraier
-
-
-interpreters :: [Interpreter]
-interpreters = [ recentUpdatesURLInterp
- , recentUpdatesInterp
- ]
-
-
-recentUpdatesURLInterp :: Interpreter
-recentUpdatesURLInterp
- = InlineCommandInterpreter {
- iciName = "recentUpdatesURL"
- , iciInterpret
- = \ ctx _ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
- let uri = baseURI {
- uriPath = uriPath baseURI "search.html"
- , uriQuery = '?' : mkQueryString [ ("q" , "[UVSET]")
- , ("order", "@mdate NUMD")
- ]
- }
- return $ ExternalLink uri (Just "List all pages")
- }
-
-
---
---
--- -
--- ...
---
...
---
--- blah blah...
---
---
--- ...
---
---
example
-]]>
-
-
rmfile ./defaultPages/Help/Syntax.xml
rmdir ./defaultPages/Help
hunk ./defaultPages/MainPage.xml 1
-
-
-
-
-
-
-
- foo
-
-
-Another paragraph...
-
-別の段落...
次の行...
-red blue red
-
-== Subsection ==
-
-* [[Help/Syntax]]
-* [http://cielonegro.org/]
-* [http://cielonegro.org/ CieloNegro]
-]]>
-
rmfile ./defaultPages/MainPage.xml
hunk ./defaultPages/PageTitle.xml 1
-
-
-
-]]>
-
rmfile ./defaultPages/PageTitle.xml
hunk ./defaultPages/SideBar/Left.xml 1
-
-
-
-
-= Menu =
-* [[MainPage|Main]]
-* [[Help/Syntax|Syntax Help]]
-
-]]>
-
rmfile ./defaultPages/SideBar/Left.xml
hunk ./defaultPages/SideBar/Right.xml 1
-
-
-
-*
-*
-*
-*
-
-= In other languages =
-
-
-= Recent updates =
-
-
-
-]]>
-
rmfile ./defaultPages/SideBar/Right.xml
rmdir ./defaultPages/SideBar
hunk ./defaultPages/StyleSheet/CieloNegro/Logo.xml 1
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAAT0AAAA4CAYAAACPIS+aAAAABHNCSVQICAgIfAhkiAAAABF0
- RVh0U29mdHdhcmUAU29kaXBvZGmU4xfQAAAeNklEQVR4nO2dd/gdRbnHv29CCyACoTcT8EpV
- QECKdAVpgnQVVBBFKV5URFG8CoKocG2I4FUIRZQrigSQLoQiIEWlSwkEQlFIDAmQhASSz/3j
- nc2ZM7/Zc/aUX4p3v89znnPO7uzMuzuz77zztpFq1KhRo0aNGjVq1KhRo0aNGjVq1KixIMF6
- uRhYS9KukraWNETSTElTJT0m6UFJN5vZG70SOS8BLCJpfUnLSVpW0mxJ/5L0vKTHzYx5SJ4k
- CVhP0grh73Qzu6vP9Zuk1SQNDYf+YWYz+tlGjRrzLYC3AF8CHqc9/gl8F3jbvKa7EwALAccC
- NwHTWtzfROAy4APzkNavALMSug7vcxu3JfVPBU7vZxs1asx3AJYHTgFeLmEA44A/A2PDSxHj
- TeB0YMi8vo8qAFYCXm3B7FI8CSw0D+h8W4bhvQ5sGJVZAvgo8NUe2tkOeC1pZxbwH/25kxo1
- 5jMAn2agxPMKcAGwK7BMUn5x4EhgfHLNH4C3tGlrZeAYYM/BvavWAD5bkeHNBnaYRzQemdAy
- CfhQdP7DwISov7pmzMCGwH1Je8f0505q1JhPAAwFfpgM9OeAI4BhFa4fAbyUXP8A8NaS8osA
- z0Rlf9z/u6oO4PsVmN6R85C+YyI6bgRWC8cN+J8MrVv32N7Q0PeF1Pf5/txJjRrzAcKLc2n0
- wswAvggs2mE9u2Vevt+WlN0vKTelP3fTHcIzuKAFw/v6PKbvPwMdz+HGhuL4j0roPalP7f6t
- Zno1/u0QGFyByXS5hMOlt+mZF/CgTNldkjL3934nvSHQf0uG/jHzAW0F0xsXHduzlEXDHX1q
- t2Z6Nf69AGyCS3YFw3tnj/XdkHkBb8qUGwLcG85PB47opd1+Adg0Q/+u8wFdn4uZHm51frYF
- 03uTEtVCh+3WTK/GAosya+oPJC0Sfn/NzB7ssZ1fZI5tlh4ws9mS3itpW0krmtnZPbbbLzyZ
- OfbMXKeiDczsTUnHSirzjRwqace5R1GNGgsAgM0iyeBO+uRmAhwAPBbVPZZ54ObRLRjoqtPS
- Cj2XaDo6lvSi4x9goNtQgbP60G4t6dVYYJFjaF+Mfp8SpK+eYWaXmNnakkbKpbyNg2SyoOCp
- 6PcUM3t1nlHSBmZ2naT3S3o5c3rnuUxOjRrzFZokLWCoPKxMkl6RdEPZhUGndYCkEZKekIee
- /aBdWJaZPS3p6Ux9wyStJ2lVScPlIXIPSnrYzKZVuZmonk0lbRTqK8Lj/i7pKjPrdlk6TtK7
- w+/nuqyjCbjF9a2Shkma2EXIXumzNrM7gW0lXS9p5ejUWsBIMxtXcmlfEe5xQ3l/vEvSW+T9
- 8aKk6yTd06+JtR8ANpL0KUlLdHjp1WaW9Upo0dbC8rE+w8xyE9SgAw+zXLZXGoDdJe2jcpVZ
- DrMlnWVmf+m23W6QLi83lr+EknSlmc1sce3xct2bJG0v6VYz+36nBISX4ipJO2XokaTZwKOS
- TjOzC1rU8w5Jn5V0iKRlSor9FHhY0tXyh/10B6TGkt6zVS/CfeN2lLSSpOXlMbzLhd/DFd0z
- MFnSBEkvJd9PSPqNmb3eAb0ys4dC+9dLWis6tZOkn3dSV6cIBpNDJR0pqSxy4yRJE4BrJF1o
- Zjd22IZJ2k7SXvIJbqT8RZoh768HJP1F0nXtYoWDqmWUpI91QkOEHSU1MT1gaUl7SnqnGn0e
- 9/9SUdk3JE3UwL5/SdINZnZPN0QFGvZWI348paMqDdeb2b2Z+peXdLmkLbuhT9LSkvZtcw+r
- SzpIzp/WlQsJM+QrmQfC5/quJnKanV0/0absxxNd0Wc6brBR1xkl+qcYWe9/YBngXDwyIsXL
- wD/Ix8++Cny2AxqPiK5tyzBwS+rlFe6rKv4J7JO0cVQ417Kz8bC6+6O6fldSbm0qxEnTQqeH
- W+CPBqZk7mE68Hw4l+uvUcBSuTYz7exEtfhv8HFwNrBFi/pOrlDPbOBf+Jgaj4cfPoo73J+S
- 1LcVAx3ze8EtwApl9Jfc09Z9puEGEus/A+Oyc5iJx6m/gAcfjAX+jo+jUj6Dh75eysBQyxxm
- A2OAQ4AlO3lIP4kq2ahN2UVouKL8lt5CnBbGjSZlOLHkur3xAVhgCnAW8H6SlwdYJTyQa5K6
- rwdWrEDjAdE136tQ/ijyKF6ch/GEBhcDZ+IRFBcCvwOuCh34Z5oH7Xh8SVS0UYShtZ3hgKWB
- 20P5SSQGKjyuusDX2tSVZXrABsBdyb1egcf+rpiUXQJ3XD+b5klpPLBdm/a/QT7meCzwIOXx
- 4eDGtK/h0kNc5+SS8pPwMbUvMLzdc47qe6ykvpm4W9G9eFjmuXj/n4uPhdH4mLwNf87xfZ7Y
- QftD8Qkmhxn4c74buBL4RaBhVAkN8QR1fNTGRiX1g8fifw83qi1ele6o7s1xp/sUzwGP4H2d
- mzjBBZrzgO2JnPbLGvpDuOgNKkRe4DG236APVlg8eH5S5gYeyhEOrI/7nRU4lwrMK1y7CfCn
- pI3l2lyza1T+mxXauCkq/wSwO7AqEdOqSOswfFIpsG90rjLTC+UXp8H03xMdX4LmBAst/fnI
- MD184noqquNeWkhWSX0r4y9egWmUOMMDJyXj4zJgG6LxikfSrBvqfIM8ZhGFEJaUeRpYp8o9
- JDSOTOoZBbwTWJZ2L+HAutan4dxfWZcMbJzQ8HNgPZI4+Yp1bULjXXs2Or59yXO7pZt2ono3
- onkSehL4DAMnzqWBw2gOXU1xK63eOVz6AHi8W4J7AXBchuhTSspeFc6/SRdOzPjy8/SonTtp
- MSDxF6vAcRXqHxeV379T+pK6YoYbM5piyV1Zl4Ezp4uJQuiANWieNWfhupqyOnJML05+cCmw
- WBf3uS+Nwf4a8Pbk/CeiNt4APlmhzrcDF5FfIk3DjXc5pvcAsHK7+kva3C6q51k6ZHSZ+opw
- 0NlUdCED9uozDTemNJBnev+LG0e6bWd54MWovitpIykCiwKfp3wp/9G4fCqhjQjf/8hUvIik
- TsTUmZ1YXQNuyRzLKU83lLRb+PvtbpyYg7vMccBIuSJ1i/Cd1XdJil1UplZoYtno9/Wd0pfg
- 6eh31zOoJJnZG3gI4AHRsfHAlXKluyTdaGYTOqy6mAjulbR/NxZZM7sUt77/Um49PVHSwZKE
- 62litcI3zGxUOPffcqNQjJvN7AIzGyvpYOBFNbtjSdK1ZjarhJzDzWzAe1ARcd//sQ+JZgvn
- +MLaX8XKOhg07NiGhomSPtXGANoOX1UjIe6j8rH0Op51ae+k7ExJnw1Gqh8BN8qNGjFekXRr
- tiVgxZhbZ87F3LcKXqfi8iZqZ2EGGh3WyJQ7PpybjFunugau6yt0QLe1KLdWRNMhFe5jznPo
- hb5Q39ui+n4cHS/SX/XsfoLPlgfis3dLaYJE0gPWieh7Xx9ouS7UNUfiBL4VtfFQTCMDjRCz
- iZbvocx7kzKziCS55Nw1JXQtAqxZ4fl8Kqrru709jQH3PrLiNV/qMw1npDQwUNI7vuTaJcm8
- x5lyq+F8o8BO0bk1GOhwf2amjieSMgPySMadF0cYpFx8CzW4b1UsKg8pq4zgp3Z3dGiimY3P
- FC0yFf/MzCZ3SFfa5guSiizAG7Qo+lr0u50EG8+y/8oVwJnoKFxh/Cd8eV1m9o/b60nSK4OZ
- zTCz35jZzV1IaUV/PNCp20kJvhy+h8hdUSTpsOj8TxIaT1WzNHyemcXjSJLulPTP6P89LSS5
- b6UHwos+Ti7x3E+L5b+apc4B/Y/rHA/Gdeg34QariwhL7QziibNq/1eh4bCEhlEt6mtHwyRJ
- OSa0g9wn8xlcJdVK/3+wnG9I0v1mNsdPOPCBWNU1UdJ/Zeq4LPn/x7RAzPTGSypE/ZQrPywX
- EzvBm5Ie6vAaSYozgfy1pMwWbc53ikLfMaxFp8TLg3ZMIWZ6EwdUBAfKn+nOcn+jcZLGyH3K
- cihjepWWLLhi+CZcQts7OdePMMOtwvfDfahLkmKXg6WAdSWtEv5PlnRRXNjMpkv6Qvg7Rb5E
- UlJmttyfrEAZw3vVzO7MHP9MRMMG8hjnMpT2P64mula+hF9OLmA8JOnXLZba3TC9VjQsJle5
- nCP3k5sUaPhNi/ra0XCXmb2WOf4VNdRiu0nar0UbcRKPH2TOf19SYW84ocSZ+vfJ/wFqmjkv
- uJnNBMbLHTybnEnNbCzuI9Q2cWiEbnR6kkdOFBgQ6I+7DRRK8hPwxJm/79DRuKhrQ0mfllT4
- Ct3RIjQuloTb6TZLZ1lgM0kXyJncgWZWZTKZHv3uZjn/YzUcyS/CIzJeCv+/AJzR4wZOxZJr
- Z1y/dqmkP3eqRwJWkTs0Fz6fsyX9SUGvF3CZmQ3QqZrZaOBSuT7ypfR8cW1Udxn+XnJ83eT/
- Si3qaCVlnSUPETzIzH7dhpYCMcOp2v+taLhQHlCwl5ld0Scanii5Ln1uWeMQ7mJWTJ6vK8OA
- A486Si7hnVPS3l3yCa3UCJXO8mPD98hU4gnLn8kdfLpheFJz9pLc0nDV6Pe75Nx/HO4i8VXc
- vye7FMddM9YHDgfulnSfpKPkksU0NYvPKWK/v3YhSvGASyW978g93D9iZq/geqLVWlUWpJRi
- 0HUk6eGWrzhj8uJqHohLSvodHSaHTVAwveFyCegOSc/ifp874xm0B0jQuAV9Tdzf8nL5auMU
- SYUP3WlhNt88uuz2MiLMbL82Rq0q+QQfKTl+YfL/8mwpR7b/gbUlfVLSqQXDw62V7ZJX9Lq8
- jWnYTNL+8rj6K8KxFYF2Y7odDWUeH/Fzmykpqy+V9B41hLB7yyJozOyPZrZdmQomTLQ5SX0O
- 0oE4Vo1wsJEq595zACzWaXhUG8Q6vBzTK+v0TcKnoGu6nIGOl1ubRqpcLzlZ0u5m1uqliAdm
- uwGS1ekBm0p6n3zQTwbWlHSbpFWAhyTtHayNRflFIkvYNLmE25GkZ2bTgJvVSCk1Vc1606vl
- VtIrgA+FpWKnWDZzbFVJR4ePJM0Cnpfr3mbJ+2N1NbaVTHGCmZ0afq8SHe8lEeprcumx1ZI+
- p0MuLMsHSHqHpMvNrJXqpkyne4x8ojpTkoBj5frkGcA5Zva5omDS991IemU0fEH+/H8a2jle
- PhFPB35uZrEb0qIR82lHwwsldHxLvsRcSNJvzawshLNffSy1UcWlTC9mcu9VG6aHx3VeBOxi
- Zo92R98AxA9vUuZ87G/0Dfkg3kYe+xdLY8MkrRM+OTwhN2XfKo9tbOee0A9Jr8ghWEgJR6pZ
- T7S/fAAWL8Qykgp/umnygdyxTk8uzZ4q17OenzC2e+WDcmdJ1wB7lOhmWmGmnCH/QR5HvY1c
- uox1w0PD/zIr3r/kE8CtksaY2X3RuXipUjnuOYWZAUxV8wSWolUSh6oJBcr6f0u57utF3GH2
- a/LxvJikI4CTzewl3DH8JuCDwdAWSz09SXpyweAWM5sYVgGF/nOYpCOBb5rZlLBaugl4n5m9
- WIGG7HMLapMzKtDblz4OaJkBKWV68ez1AUnnl12IRzCMlj/cMcBmZtaP7CMxQ8n5+8QP9wUz
- OzfQM0Qe2D1CHlBdfJaQM88ieHqC3MrYqQ9WJ0wvfq6xsnUVeYcWweNrJtetJ81Rdn9d0s+i
- c4VXecfRL2FC2qfkHMC18kD77SRdD+xqZp3sT1IwPZnZzwq6cTeF9dXcH8vKB+WE6POkpEda
- 6ABjqaUXHzCFtgc7F2JZ/68p6eTw+61qlpiGSlpbPk73kWf0KQwbcURB1f4vo2FVuUpISpIe
- hHbWkGc3OkjedzOjc53S0AliRtqPPi5FSvwY+aywnKSdgCEt3BcOVmM2WUme3aSVTqwq4gGe
- 03XFkuAc/V6g8/7wGQzEtLQLd4sl1Hgp9Tu5pFW83L9Us8Pl6PD9fvkL8XR0rggLiwdwrw6n
- Ba5RI7vIlvIZfmczy7rbZPCcGmnB5iC4GWSXix3iJTVUE11HFgS9Zctwwz4h7f/iHfqEpCsk
- KUhaN6uhdhirhtphL7nxqjDIxCGBVdM/TVJjnMY0fLTQ5ZnZM8Ctahi57ldDp7mXpAmRhbQb
- GjpB/F73FD2i1kamZt1GsFxeEv4OV8P/Koc0O8KH21ECDMeDvU/EY3Zz4Sox08sthZ5SQ78w
- gCnijqFnkjjJ4g6SJwPnkDhNB0X64bSOv42V/2uVlnLEzCK2kN9vZk9G/y+TtLt86bmbmV0a
- Tn1Urn+6NNC3sBoW6578EktwnRpSheRSxhgqxjKr4aqS649tccfWo1P3GDxTz4UkmTbwuNFj
- gquK1Jy/cO2KNOWwqRrbIAwmyvp/dCJE7CvpS3Jr5DZmNiMsbXeWdHE0OcbSWNX+L6Mhtdbu
- JfeL/LqkncyscNreWj4pF+iGhk4QO9j30seSG0Wqg2bP9VIrSLDIHYLHXG5Pa2dNAe/DU8vE
- 2CVT7sDofOpoWJQpIgLuT44fFl07C9gqOhfvAzsDt6QJj0MtUGq+x503C/yzrFwoG3uqd7RN
- ZHhOs4FTo2PDc30S3W8/IjJuZyAeBVbNlE0jMk6MrhkZlfsPmmNevxOdi+OJwV0RhE8+RZKA
- GcBieLB8gUN6uMcvR/VclpwrcGK39Ud1nR/VVz3NkV/723D/a0fH4oiTAyvWM7obGvDUYNfh
- kRGrRsd/ktJA8zj/UHmtldpdP6rr5h7qWYLmRCQj0jI5K9YdavjHbUGGMUmeAdnMzjezs4IX
- f2msJu4M+SsN9J3J6QbiDYM2JR8oXYjg76SZ2X48+j1EwRESlzAOiM4tImkbXJEb67ryMXqO
- 2CCyYpuBlJ1lc8Bz3b0b2BH4inz5c5vcolognmUHK8NuzpVgbUm35gZOgtgpOZawD1bzGNsj
- +v2RpI7CMfVgNZ7Z3cEzIM7gfbS6xx7ti/QFlfofT/+0LrAlnoXnOvmY/bSZPRYV7ab/u6JB
- HsGwk6RDzez5HmnoBH9XQ6Lflu53YNxN5R4BkjJML4jU8cA6nS4yZiTYWwP1YC/Il1UpYtF0
- NWV2TZMrWiVf+8e7e6WOpX+T5uj70nN/Db6EsXR3c6Yt4eJ+mmopNULEiHU6rQbc2nJdzl8k
- 3Shf5l4kaU9rDtqO246XFv3S6UnuupLDmnLGV5b9WGr0h9TM9NJnHkvmqctHEV1zfnTs5vB9
- hRr3vUnZRNwKuC/k1m0L9geV+l+eQOERuaDxB7ledD8zOz8p183SsioNZyQ0jJS0r5ld3Aca
- KiO8o0WkjUk6ocuqPt6uQNZfycyulUcNSO5K8d9dElBgvcyxn6RRAHjs4buTcjmr4yVqvPAn
- 0MiXdYak5+WuGTeoYRiQ/CE+L++wX5hZ8ZIVltQpCkwyg9wet61eoHiWbZU/73FJO8gZ+waS
- VjOzz2Qsp3ND0vubmmNTY6yuTFxlgWAdLhjaPnjqfsldcwrp+RFJ/xNdNkrSn+WWuuvUGG+x
- 8/Etof4ZavbQz8VctsNB6l1BXhVV+/97ctewjeVS9TsivW6MbowIVWk4KaFhnaBr7gcNnSJ2
- ZN4/XuJXAR7R0/GEGFewDM1Zibtes+PZgGNcTSa4GtiPgXg6J2niySMLXIKnJCp0EqUuCXG7
- eND/K6GOK0vK70Jj4/MYr0Yvd+66IiNEx/uGZOraM2r3lOj4oeFYXzb5wbPN5jAdWD8ql8un
- d0hU/iFgrehcq4SkcX8MpZF+fAZRHjU8AWucZLZyNhfgw5k+HEyd3v5Rfau3v6JtfXFC2krW
- Z+DTfabhrykN9FGnF7VzblTnL9tfMee61WjkA40xolMCdqChFJxMkoyvYh0L0ZwF9T4yTAkP
- RypL8z0gNQ6uC4uTBt5Dkk6oDV1vCdcUGLAhDJ4MMre/RoEnSBJdRteOD2VG5853AuCnUZvH
- Rsf7zfTilPgxjkrK5Zie0dg+AJxBfYzqSS8N+G50/SWZMjEzeYX2Kb6G4Gnwc2nFB5Pp7RjV
- t32PdS1F8xiMN5JaDvg1/k4dn1y3T3RNT8t6POPzGykNDA7TWwoXdApcDOQifuJrtqVZQIsx
- ohsiTkgquRaPp2y7VMBn7thqejcZKy9uobu3hOgC38lctwW+30SMy/E9MrLKTPzlOhTfaKfA
- mPh+Qpljac7tVYaJwAB3HRrW3uk0XC86Ap6X70CaJ42PR+cL6ep14Ot0aCnMtLc0zYN7NlE+
- MjxG8zQa6cvTPTJWoHkiAd+z4mBaS9+bAXdE10wAsr5WNFsRwSX+TTPlNqd5v44CRVr8wWR6
- 60b1/YYu45rxNPoXRnVNSs5/O7m3PaJzW0bHz6PLbMbA6sCvcjQwCEwv1Ls1njm7wAv4WB+W
- lFsK+AHN1tq4jyHD9KowLpN0rtwvL561n5E7Uz4kt949LPehGyb38dtZrlQscsRdJc8q0pQh
- I9zINfJogHb4kZl9IT6AM5TzNdA35yV5Cp9n5bqqJeV6i/eokSFacgX6TmY2KdS3uFwXuJM6
- wx8lHRYccoVvrvPtcG6WPFvIFLn/3dTwXfweIne+XUlu8Fkx/F5GzX00RdIaRWYWXNI5Lzo/
- QdJ35c+pq71kcWfVbeS6z8PM7Pfh+B5yXWo88D5vZj9Orl9crls9VM3jpbDCPibPgvGmPIJm
- I3loVHGfr0h6v7XY8hA4WY3wvAIPyDPtzpL3cepLOV3SD+XP9ZOSRpvZHMdwoNARn2RmJ5a1
- XQXhnXleDW+F5+XvSa7vp8p1tkXfx2MgzWr0QzObk/0ZuEvN434O7YHJvahG1MdzgYai/ZiO
- aaFc3H7xnTLsOTTgUuyYcHxvM+t5VRPd27vlPCOe/F6W63mnyqObtsrQN0Y+/opJbaR1kYGp
- IOLtuNNvmr20HV7Gffmyy5wwW5Rt3pLidTI7UuGS2UfwJIVVpDPwpfE5JKIzsAcNSaYTvEm0
- dwa+Cc+YLuppVf+XElrfU1L2U111sub4sp1NpDvCs0tPyLRTqjTG3XDOoXrG7Rm4rrfqZkK7
- 03oHvQKT8F25VgjXFT5/gybphfr2wFcB/cJzJNl4wn3F2DE5/yEGroT6RgODJOlF9a+Cq3ba
- vY9v4htevTdcF+/SNiKtt2NrFs4k9pJLTRvLd6+Ply6vy0PZxkn6X7lneUtrD+4Ssq98j4b1
- 5dx9tlyafCp8HpcnWmznGLyk3Nq6mxqbAy8inyUelaedGS3p9jJpCJdW1pNbVDeQR4YMl0eL
- LCmfHSfL3QIelAft3xMCs9O6tpRLFiuH64t6llHen2h6qHdSoHmSPDnCgM3J8YnkEQ30YL/W
- zHIW57YALI2BxZnt6dGhafK8cF9uES8b07iVfMxsLk8H9lb5OHlCbvW9UtI1ZtYyZrKk/i3k
- ueE2V0OqeVrugnGHkphe4Gz5pvCppPdL+Qrgq2b2p07pKKFtcXnfbyvv8/iTW+4jl+YnJZ9r
- 5O9R6u2wnFyqWUtuKT/NknyQ4X04XL7iSmnIqUNmRzQU4y9LQ2CAv5K/78eZ2VMVHkvHwFUd
- u8n7uDAevirPnXeH3J9zalR+IzU8MbqX9FoQZPiWdyPoUacU1bkQ5amzu6mr8n6lcwvhuS2N
- G3DWw/U33ewgNjTUE3/67pqBh/ENo8MtLEvqWp7+ZGzupu0zgwSQjfaZi3QsjOtI18FXUcvO
- 7WeC53JcCddBrjUvaBgMtJP0atRYoIBbZLOTGO7a03KfWhob3MxTplejNQIDziWeHQ4cnLsm
- KtOS6S3wXL3G/x8AJ8iNIBOJ4qrDuVXlS61z20i6vUYX1RhE4Fb3v8idq8/KFDld0nlEfqMZ
- dLJVbY0a8yfCzD8zzN4zSJx08UD9Aoe0qOfuWtKbf0FjY3OA/0zObU3D53JMizrijedHDDrR
- NWoMBoCtooF8ZXLuAzTjRTL7IQcdVhGZce7co75GVQCPh/6Zs+dxOL4Q8EDSz2nSiqLseVEd
- A+wM9fK2xoKC2NKebmNwWvJ/BXmeuhSHqpFPr1/bVdboL4p+npJkbjpM7tcZ43upKgO39H4w
- /H2si60PatSYPxBm+ilhBn8JeFuH129AI5xrKh6cXmM+A3BWJMkd0cX110TXH9f+iho15mPg
- WbcL3EebmMzouh2Ap6JrvznYtNboDsDaNMLI3qBiGjE8QcqoqI/Hk4St1aixwAH3bbw6GtiT
- gM9T4juI+47GcaPgWTxqtc58DDwrTmGwmI0nVcjuoofH7X+S5uQj42md/7FGjQUHwKI0p48H
- D48ahWd12QUPQn8kKfMmcGrN8BYMAB+kOZXYdHzpehwuuX8RT36SZkG6nQ5VHzVqLBAAPgGM
- oxr+CmzSvtYa8xNwSf0qmvdZKcMrwOeqTGpzK5NsjRp9B265206e+TfODrKCPMPII5IuMbNS
- n64a8z/wGN+95Rm8V4w+Q+Tx9GMk/aqb2O0aNWrUqFGjRo0a/074P2hKKUqYaL3pAAAAAElF
- TkSuQmCC
-
-
+
rmfile ./defaultPages/StyleSheet/CieloNegro/Logo.xml
hunk ./defaultPages/StyleSheet/CieloNegro/Moon.xml 1
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAANMAAACICAIAAADyLEm6AAAACXBIWXMAAC4jAAAuIwF4pT92
- AAAAB3RJTUUH1wcUDzUQGm4PAAAAIABJREFUeNrsveuzpel1H7TWem7vZV/OOX2Z7taMLjMj
- yRpLHik4lqM4KAqOLZuYOHYSiAXGTgUbghKSmAS7nIIq+CsoqvgGVD4ECgymKMfgBMm2LGPF
- lmPral1mem59rnvv9/JcFx/W3s8ciwqEwsy01L0/TE13n7P3u99nvevyW7/1W7i6+z54/Nq/
- mLkQkfyhlELKlFIQibkgICAwAwAjIAMzIAMhAgAiApdCkBCRmeWvmPHxPf3nvfTjW3D9RUSl
- FDEdpRRkTwhQQBEyQymFABFRjBSVyjkREjMzs0ICwFIKETFzKQVRPb6ljy3vX/SllNJat217
- cnx0c90ul8t7d++1XXu0PrLOcuEYI3PZ7YZUSi682213u912uz0/v7raTZvtdhzHnLMY6OPX
- I2t5yMgAhQEAGIAAEBkRABkRATijAq3g5ObRM29/23Pvfva59zz35FNP3rxxc9H3ikApAmZA
- FMdGRIhISKSImVPKDJxiYmA/h5h5t9u9+tprn//c577wxS9+6WsvfP3r96cppFgQFCJxYSBg
- hMIFoBAwMCEgMgJAJn50LA+/5fM8RgBAkAwNEIGRGbkoohvHx+959zvf/4HveP/73/vUW+8d
- rRe9c9baUgoiImIpRTI2vGZ5YnyllFJKSkmis/yRGUspOWciyqWMIVxdDl/96gu/+enPfPaz
- v/fVr31tOwzMDEh5fy1ck8fDpT62vG8dswMshKAAgCER8mLhvvuDf+zDH/6e55/79ts3bra9
- U4qMIaXoGw5fDA4RjTHGmGqROecYY845hJBzFqNExJRKSomZlVJKqcIFAUuBlNjP4fTi7Lc/
- +9lPfer/+PXf+K3NdixMLFULZEBmAHqUTO9b2vIQCiACq4JYSuPcO5556vs++q986Lv/+Fuf
- utd3TiOWzEiAAClFBrDWiQMjIq119XZaa2NMLXtjjCGEUkqMMcbIe6eFOZeUktQfSikERiKt
- 9Ot+EzDEcv/l1z79m//0k5/8tV//1KfnEAoCIxZgxeqx5X1LODxAIEWQbx4t/+U/+cEf+P4/
- +9z73r1cLhrnnFY5JR98ypkZmEHqBqPUdZtTSgFASkn+UkJtzjmlFGOsoVbqiVI4xiS/KD85
- h0iE6vCeThEDK6WVsSnnaRw//7kv/NIv/8ov/8onX3jpNUbiRyjN+xaxPLxeUQADAiAgIt+7
- d/uj3/e9P/jR733qLXfaxliniQiRSspcOKSUSs5pn6hppQghpYSIWmuJtjlncYESQK21pWTv
- g1geM4uT01rnnEsRaAYlF5xDEDhQG2Wtcdpyzkqrru+UUX6eko8+5FceXPzC//S//A+/8Isv
- nV5wYclJEaQQOjxEjy3vIUzjAACYJGUHzghMCG9/21M/8sM/9H0f+dDt27eMMeK9AAoippTE
- nsRLSXEgLi2lJB5OCgWttRQZWmullCR8OeeUcggBgIlUSpGIrLXM7H0QQ5RfYc4A+6JEKYFr
- jFKq6zqtdQghpcAMIaQY0gv3X/5v/ttf+Ef/6H/bbnfAyEAHy+PHlvfQgiZ7r4AMxHznzo2/
- 9Jf+tX/1B77v1s0Tpy2XopSS4qCUHGP03ouvyrmUwpKWEZE2RgJoznkYBmZ2zmmtgVkbI35x
- b8HMWRzhATQW4/beiyOUSE0E4iblAoioaVqttdaamUPwiFAKx5iZIYY0TtPnvvDl/+of/MNP
- /9Zn55AIq83hY8t76OwOAQAKY0HkRdf94Ee//0d/5IeefvpJZ4FzAnaCgEj5GWPy3ssfvffM
- wAVKKYVLTqkw+5xySmKIKSUk6tpWG10KxxByKYiotdJaE5IzNqeUU2YuSGS0RoLr4AtzESdH
- hKUwEWqtnXNiplqrlGLOpRTIuUQfuIRU4MHl8Ilf/c3/7r//H7/y9T8ABmZEJGb6FnN+39yW
- R0wAjFCQyrPvfMff/Pi/9/x739s11hoizDFGBp1zFuAj5yyoR845xRRjZAbvQwghpcRc5hhR
- K3FI4ggldIoz894bY6y11tqmaYwxThssLIFb0julsbYuiAgYU06KFCIiIXMRq+26rm1brZUx
- mhliTDlxjBEhxlSmOUw+f/2F+7/4y7/0v/7KP9ltJwQFoL7FLE+55RPftKUrExAyWKd/9C/8
- +Z/523/zHW97qnFaa6WQciwx5pRzCMF7n0uJIQQffQgxRGaQ7qz3IeWcc045AWABTinHmBAp
- pcxcSuFSyjzPzMAApDQzzN7P3pecc8rMzADzPI/TmFIEgBDiZrMLIc7TPI3TOE3TNA/DOM+T
- hOa8D/OMAIi0L4URCxcA1Epp4uPV4pl3Pvvce96jlH711ddyFrcNB8PGb/YQ/E3m84iRkQsX
- ufNU4N6dOz/9137iwx/6oFasNWlnpD4QyC0zxBjHcZQ/cs6lFGuthLyU8zTP4hTn2RNJJcsM
- rJWyzilSzlkimqbJe58YkZS4QwBQyFYrImqahpnHccqZtTaCuUiqF0KQtC/nzFyU0k3TLBa9
- MXa56LrWWmuNMVrrnEtKcbPZaK3bpo0x5phmH6aQf+f3v/Cf/xf/5QsvvQKgxOtJt40xP/Z5
- b5if0wBEAAigEP/4d77/Z3/2Z77jfd8WwsQciRCQQojTNE3T7EMYxnG32+12OzGdknOMEQAk
- YuacGUDty07Vti0zK0VN0xwdHa3X67ZtJLy2bdt1Xdt1fdcZrUpOpWRCFI6UICwAwCwWxkJX
- ETy5xnrJNr338zyXUhAZQTofr6Mz8gPWWWMMQdFGocK79+68/wPf8crLL7/68ivILK4S8Jsb
- bfnmsjwEUAgInBurfvjP/9Df+PhP3by53m4uco6Ns0DKxzzO0+T92cXFME6lZAHnBPjou+7o
- 6Ojo6GixWCDioWLQYivL5VIMbrFYCD4npa70Z+UdlsuFVhR8SDEYra21B4BGUj0lBif1bC1y
- xfJqz1feqmkcITjnxElL3YOI1lpBnlMMuSRjNCL3rfvA888rRV/68pdyKgDIAN/UbJhvtjwP
- ETjePFn9nb/17//FH/lzxtDl+VmM0RiLqMbZn11cbLa7afbz7EnRerVs2xYA2rZdLpfL5VKa
- YGJVgAiI8v/OOYmhzjmJkufn56+++up2u5V6QilljW6bprEWuBBC13aklPfeWrtaraTSMMZ0
- Xdf3vXNO7E8QaTEm8bXyJPRdY62Rf6rJn/i/A0wNMSSttNUGSrFWv/OZZ97x9Ds+9/ufH+cJ
- kB77vDcSOs7vePuTP/ezP/MnPvgBSPOwG7yPiBRCGsb51ddOzy8v/RxCTKR00zTOCn6hu64z
- xiCAYMWVhCJpnVJqmqbz84vz83MxRKXUdru9utoYo/u+R0SltCZCAK1V0zRGa6UVIIo7FGtG
- pLZtF4tF27bGaKFhpZSVUtYapdRi0TdNAwCllL7vjFFSBdcGcfWRIYR5ilrpUkAhGq0JwBhz
- 99695977vs9/4UuXV1ePa9v/f3ETRhZuEyI898xT/+l//PPveubp7Xa7G6YQM6LKueScp3Hc
- bjYpppKzUbprmq5p1suua1tEUESEEMIeRhZcF0jNPo3jfLXZXl5trq42MRdEPfswTUEp3bbd
- arW21gEQIhGCuC7hJ+97u0QxxnmauGSjyWilFSFwTiHFAFyMVo0zbeP2YE+OIXhrtThX6dVK
- ES3EAoGaAWCephADCKkeyTqrNBmjTtbdd/1L73vwyksv3H8NARQgFUCgA6j+2PL+iMBiAEAo
- CPzsM2//z/6Tv/+We3fPzs52uyGlXBv2h5wsW2PaplkuF4vFYrVaWmOYmQsLUWSa5nmagUEb
- E3wcRv/g9DSEAIBK6ZQyEa3XawDIOedcgg/TNHsfxMj6rpGIHGOUvgUCCO7CzE3TSI1SSha8
- WikyRkvexlwAIOUkpk9EXdsiQAgBAJTStUcsbq/rupT3XT6pioR8wKUooq5tnn/+/V974aWX
- 799nZpTGIT72eX/EITYTlufe/ezP/9zfe+LmjfPz83EcKytTXtJyWK9XN24cr9er1Wp5dHRE
- hMqYXMo4TReXl2fn55vtbrPdxZK1sSGmV159dRgGYTqFEIRyBwCLxUK4dyVnwZD3xh39oQtX
- 6qTPN6RxYkBSLwNA13WSxnnvh3HMOVe2lTUmpRRCkF+/TvWTNp0UvPJ0zfMsLWC5mKZpmqZ5
- 3/u+4ytf+YOXX3kFESV7eGx5f3RWx4WA3/H2J3/+5/7uzeP16YNT6ajWhth1Lt3JyVHbNlor
- IkopllIYcLsb7r/00sXl1TBOMebZ+2map2k+PTu7uLio2JuYkZhFNYjVajVNkxhBKSX4OQTf
- tq2YyL6rC0CHlwRKpVTf903TiPeqNhRjLMwCJTKzs7YSrirnSkxfGifSbqk0GeYiSWqM0TmH
- wEer5fvf//znv/DF1147Bfomo9I/9JYH5ebJ0d//+f/orXdvX5y9Nk1B7r6cvYBh3vtxHCV/
- JwWkiAhTioCYGV96+dXTs/MQE5KyTRtT8jFeXF2N8zxNU05JgNzKRqkwSkophlDdKgAQAhE2
- TSPMFPFqNeGrHVtjjJTDUqVea1rA3pWW0ratOpiUOEWxYPleEu7lDghlxhijFEnpI6bcNo1R
- ZJ17/v0f+J3P/rOzi8vHFcb/F7xOchXFLBz20mn62//Bx59/77efnb0WY/QhCfZbGwObzWYY
- hpyzc65tHSJyYWDIKSOqEPLpg9NpmriwIqVIxRBj8ALIIWClMGltxI4rJ7TiwEkAZyIkSqmk
- XPp+aZyTbq/8sFietVYsWAK3mF3FipUyMRWtdd8vjHFam1IgFy4ARBqVKkhSZSiFkkcKBT/G
- qJTqur66WEQUSKhxrnHufe99z+/8zm9dXI28h5gJmR7y7trDZnn7q0JgJLYKPv5Tf+3PfORP
- z/N4eXnhfUh538uvzQDhA3dd13WdMVZQjJSS1gaRLi+3lxeXwe89pYSq4EPJGfcMdZLjNMZK
- fibnKoWLxEcJo0pr2NPloRQmUjEG4FKRYYn74jWlaXb9dXl5GVOOMceYSmGt9Tz7lLKYfYgx
- xJRLIUVd1ylCIlJKSxbhvZciQ9iBpRTnnNAEEdEYteibd7/z2V/9jc/M04REAICA8HCXug9h
- tEUERC6K8l/9iX/zR//CDxfOp6cPxnFi5lxYwlA+9MEQABFv3LhxcnKCyFJCStYfY9ruRrFO
- OTzvfQhB+rbS4JK2aa0SAEAMsfZb69/LTwqkLJ+uiJrGIaKwXcThGWPkjxLBDx1bLqWEkEKM
- cvHMPE2TpHEAME1TCAG14pK1UppIum01miulAPZEwAMRFerMGwCsj47e/vQzv/bJT8YY5RY+
- jrb/7y0vM2H56Pd95Cf/7Y8hlsvLy6urLQDmVIRvXntNgoNprY+Pj5umKaUQgaTt3vvT09Nx
- mlNKEo4PJQvXfppzTn5LLExMUP6pXo1ET2MMIgoCtwcaiRBZ6/2ghlTE8sO1ahHL44PXTLmE
- EMXKa6+sbVtJK4dhuLi6iiG0TdN3DREBcAhRnHqd7ZALkPJForkkjgh46+bNW7dufPrTn2YG
- fugHzR+yaEsEjATwzNvf+h/+nY9bgy+//PLV1VVKqWQuBXPJWmupMABAgLTFYrFcLqV+VIqU
- UpvN5uzs7OLicvYh571hifup0hNiMZWKJ4xl6aEJhVgsUjyZFKTi9sQuiSjGEIOXK+m6zlpb
- 69PKAKi5AREx0DhOUjVXC5Z2hRhQSJEQ26ZZdK3cD8nw5CGRUC6Fi/RU9jfh8P6a4Mknnzy/
- uPjSl78qlFl8bHn/whgKMMNy2fy9v/u33vbk3bOz02EcUy4AWAqTIlIokIf4IeGaLxYLAbq8
- 9yknrbX3/vTsvBTWxkmgFIOT8xZrE4cEB66K/JhSe79SKSfX59CEWyD2WkpJMTSNa9pWG2OM
- gb0T4u1ud/+lV1597cFms/UhFgZAyuVAoD981mEEJOecQ/A5JwGliVBrAweMcLHoldp/rtS2
- klB2XVtKlpIo5wLACkkb/Y5nn/nt3/ns+eUVAOFDTON7yHweEin+2I/9xY98+ENnp2fepxBz
- zrzPcvj1sf6KiimlmqYRLENrPU7zdjtcXF7FmIgUANYcv87yVMBMsF+BSMSj1Cq1HIxCXM4+
- wiLWSkXMhRTlnCs6AgDb7fDKg7Pzy6vNMI3DOIzTNPtp9tJwMVoLHHhxcTEOY0rFWN22zlqT
- UuACCGiNjamkXLTGxaKXt5YiWvyoPAnigCsLxhiTUyHCpnO37975xCd/tWQ8EEj5seX9Pzq9
- 8h3vfc9P/9RP5hQuLi5C2A9US+51oK2zGA0RxRDgIADlvRej2W630zQdGvn7WrUmZzXM1cYD
- 7IGMPakEDiQ5yRdzzn3fS3IpPo+Z+76XaCskZGkqtF1Xcj49PXv5lVdCTEprRSgfumfVEwHA
- brcTsqrUQkrRYrHQWh2+GnVdt1wuvJ9zjE3jpIyVSxVvV7+R5It1Xk6RIq1IqePjG9vN9gtf
- +NKBQI+PLe//xtshACz75m/89Z+6e+fmg9dejSExY+EihrWfn7hmecxcmAkx5yysYwAYx1GO
- 1hiDSM41Yo7izK5bYbVF+a8kT2Jh8l8RDxDenuBzzlpJuRaLhTHG+znGUEM2IZacz87Ox2m2
- rjHW0etZBANA8H4YBnlCSikxhLZtrbN93/b9whjNzErhYrHo+9Y52zT7WSEptOX/xfSl4pEy
- pbJvlDLWmsJJk3r26Wc/+3u/d3p+xsCC8D1s9vcQ+TxE/NN/6kMf/bMfOX3wivfemkZpk7PE
- tX1TtY7Btm0bQuBSKn9TKE/DMIQQBNFwzkkaXnENsarakqoJHx1QjJz3xODan60fWv2luEkZ
- W/R+lqzfWluYx2E4fXA2hRBCjCnRwbIr5U4qBimSCnNOpe+7vu+axllrxT91Xdu2jWuc1UYp
- ksdAGAm1ESdFtNy018eHAZHAaKUQG2OOb9383z/5CWahEtBjn/fPLS7ecu/Ox//df4fTPE2D
- s866dprmYdhdL0iJSKrImumLYYlLS3mfcQtip5RKKVf1nW8obOX4xV0hYkqx0uOqlxJ/Vgsa
- PDwhh1wwK0XGWK1N17Up5WEY59mPs085pZyR95Gu6k0RooDSwfsQIpeijV6tltYaYRsYo0mR
- 1loRqgOB+XpdUgnSFep7/WqV1oTGKK2UItWtlq89ePDlL38FQT2EAfdNtryCDEgE6BT/9Z/+
- 8Xe/++mrzS7GTKRCCFeXF2IlYhxKKWets5ZLQQCtlCQ72hhtTHVdUhMc2gn7YFRdXc3wEGsL
- CiR/l3AmZ7nvnzIj4nKx6Nq2a1tJ5J1zYtbGWKVMziXGTKSvrrab3ZQZci4xJijsXGOMkUZF
- jElro7Ux1iGS9yGVFNIcYiBFxlpEokJEyhlrtKLXLxIlxFfqqHy7GOMeJjxkINZoIkIQV0uO
- 4C13n/zkr316mGYlCoAPk/292T4PERiQy3PPvevf+ti/Pk9TCLGUMs9+GIaU83UdMbGt63lb
- OSDJEn3kPJxz4g9SSodjohpepQFwqBWKOLPraG2tbeW8rbXr9fo6D0AgPXGf0h2R/FJmK6ta
- rdSetRFcLb7CfuJNU8q73ejnkHM2SisipchYfd2r1RxU4qzMLlV61TAM5vCqn87MmtRiuSJl
- fusz/xRYpFoeIst7k8M/MioEq/HP/eD3I0DTtDLBsC8FrgEiNf2XQYdKLRFrG8dRpsvEksQy
- BFKpUJwwN78BDW7btm3b6iNrblcxvLZtr6fzNfO7XiDv+xYpSlwWlHGfzB2aufKhkiTUd1PK
- 5Mzz7K+uNtvNLoTAXJCw9vQqQSvGOM9zzSWq/97tdiGEEEJNKOtTAUjO6g9/z5+4e+sGPHzI
- ypue5yFyfve73vZv/OUf0aS0MrkUaWhKaSlGoA9TXgdOSitHnq5RdgXQr0M3YpEyAyHdixqO
- 4SDJyJwlbd+jEgd0WkzcGrNYLITaeWgER/Fw1b7r9K7084S9XNP/OnVrrZV3qG4bALz3AJRz
- jjFJs9WomvPtQXJBZOSaaw0bQhjHsaab0zQdpiqLgEFyqc45LqW1JoT4md/+XUZ6bHl/yOdp
- BT/5kx97+1P3iDHEOHsv47GHcInSo5Sn+eT42DlbSokx1fqgmp30YbXWVdCTeU/bFAu7Xt7K
- IVW8zRizXq9lUA0A+r5fLJeLxUJgajE+OfgY4zAM8zwDQNe1gu1JWTpNc6UaVI15MT756KZp
- KpVaHJXWxnuPSMCAzE3r+q4jhZJQio+UC6gDufJk1ny0SgRd98ridJFBKzo5vvmPP/nru3HG
- x5b3uuUBf/t73vXjf+UvQ04++JBKymUYppQyABYGAiRCQuCS287dvHHcdU0IPqUEgNY5kQM7
- 8EqoFA4hxiizg6ly5a21AkpXt5dzNmbvjVJKfd8fHx9LZhZjFLq50bp6XEH/MnPh4n243GyC
- n5w1zplx3IXgx2kchqnmcJWjUHt3+07DYfD7QEcgRJAH7Ojmcde1pMhag3sdNK7cAmbIuYQQ
- YgyI5L3PDDI2REqnnH0I0zynXLq+Z2DIRSlkgqbvtpvt7/7uPzvIlD8UElVvsuVpwh//2F95
- 97PvCGEGou1u3G53MoKfS+HChMRcjDFNY5vGrdbLrmv97EthrY00NsZxlLOJMcWYpmmSuq/O
- 1EhwrHC/FCtyqNWvwIF5JSE159y2rbP29X681qJdFWMsJSOCc2a56Jk556QUDbthuxvE6KuW
- mQRxeQD24smHnFXcVaUyaK27RWeMBmBNQvKLIURhPAg8dODdlH3tsh+1ROfcPM+Xl1ebzbYU
- NsbkXFKISimlSRuzXh/943/yicmHb3zwH1nLe+tTd//qT3xMQWZg1ObiclNVxlJKJRfRnbDW
- tG17dLTu+2673aZUci4yfyN2JvZRUd9qXpKx1cZrzfQPno/FIiWDFPZeBWZrG7em+SL8aLRC
- xMWiv3Xz5nKxEBxunudpmrfbsXL0q5aoRF4pjSVoCj+l1jF7VLJkY03XtloRCiMhZZG6qiyb
- eZ7HcZSiBwDocHm73e78/Pzi4rKUfTrIDKWA0soYjUiNa1+8/+oXv/yVh8fy3rSsU9Cyj3z4
- e27fPCKFxtmYc0ipamEjorUGDiygruuOjo6eevKp4+PjnJMcYa1Cro8/SvcCANq2lRyxNtrr
- pEWFaerF/OHlAjxN0+Xl5enpqYRyAMg5OWOWXbteLu7cvPGWO0/0bVszuWq4teAV6KeWCCLz
- XZ+Q2n6Qv6+VKXNp21bmeUNI4zBdXW42VzvgveSUUByIyFgrv+i9Pzs7G4ZRKYNIMeazs4vT
- 0/PMOPuYUi45NdZ89we/q7ZtHoaXfrPMjoj6vvvQd38XlEQIV9vtxW4qzHQ4m9f7oQQVCrna
- XI3jCIDez97HlHPlxFtriVTO+75+27a3bt26uroS9pSAc5LX1/7bPINzTv61FrxSFIslIcDZ
- 2ZkEa2tt26wVodbWOauUmr33IQrbOaWUS67erhYZFeYVW69hveZ58oxprXPJIYRxmpZhYTUR
- UcmQM+924zwH59rVeuX93Pe9ODxgFp93eXm53W6ZgdAaa0Y/pZRT3CGd3bp53GWnCBXht73r
- nXfu3HnxxRcfUctjZAZEUlDSe7/tnc8++46Q/BzTZjMg0NFytdtupeUvk9KNa7SxWpuY8v37
- L3s/A6DQn0opfva5FGtdSskYi4hKsRS/xuiUotaqbRutCLgAF8nPjNHMBYAlta/TXJVAWq/W
- z2GaPCFaa2/cuJFiMvuhWmIGRJVz8F5I9olQK6XmeRa7rywYMetaW9QxzZoG7P0Qw7QbeLVE
- JESdMs/BF2YkkvCfc3GuTXGvN59SlHVEBxIe5lKGcZJpk5yLP31QILpGm+WCEBa9e/65d790
- /z6jOoB7/AhFWymrCrNS+L0f+VPOmu1uuLzaeR+tMs4YWRpWJ5xjCjHGYRyvrja7YfI+hZBC
- iDL8gkQA6FyzXh8BoHNOa4UIQvTwflaEjbOLRW+tGcdhHAdEODk5JsIYQ0ppmqbrkVFMUBR6
- urYTFFuKylyKUloK4RjjNE0xppw5Z5aRRWvd8fHxzZs3JYDawzjt9fJFqJ3X+VqVBAAAR+t1
- 49qcitI2pjJO8+Rn0qoA78bh9PTcz9G5xjlnjO7arnXOkGqbtm07QJq9DzHEFGVQICQ/DMM0
- exANDszvf997aD9Y/OZTV95on4f7L1yeuH3jT37ou4CL916qhGEYC5cD4WcfnhBfF5bTWssh
- 1ykYH2IpUWA/QW4lVRM0a57nkLOoZovQzna3K6XIx0nw3d8FrWsDtHrBEAJDkUZW2zar1ULi
- uADXKSVAJSQaeR8fvGhJHR0dCbIoAgYVEL5e61R2ccXMa+NOHgbJDodhsNbO87zdbhvrurZ9
- 61ufXK56aw0CcilE1LbRGJs2uzosLI425+xDuLy8vH3jpKiilXrm2afv3n3ihZdOAcojF22J
- oSAg8Le985kbJ+thHKqqQ0pRgoUoEoMIDBy6kHtOCpGcvTTZFj2KnI8AKykB814LYp5nIiqH
- dEqOtmmaeZ7Pzs4Wi4Ugz1KLyJnJj4lOoxiN1tS2ru/71Wq1Wi1C9PrAZBmGIcSsjZNEU/Be
- IQkfHR1JWnnv3r3tdltNs7IWxMVKhXt4wDDn5L2/vLyUSC3AkLQlBEwB5r5r53lWGogWi34B
- zNbaVGCx2G4221zqNiIIIWTODmxKaZ7ntnFIuF4v3/Xud77w8gNgeNMZo2+4z2NCKIjlO7/z
- A4pYhvhzTkqpnNh7H1OU6OOcQ9xP1UvKj4jpwDiqXqq2pMZxzDnthduJ5MDcQVC7Jvvyr2Jk
- cuSVQ1ATf2lUNE1zfLTs+945q5T2fm6cNVrP8yzOaRzHrldd18FezjvvhjGEIENoIn8hUIjY
- vbQ9JM7O8yxfSlrD1toQfIphu90KsiMQjFinVM2ta0Rwcp73mkA3T26UUnbjfHx8fH5xOU4+
- 5zzPc50SksEWqbj7OiXHAAAgAElEQVQBgAjf9a53/vKvfPJhQJLf8NqWCwIsuv693/5cKZGZ
- ZbgfgCu5vLY+67KwEKJzdu/zDuKKpRTnDEOZZx9jUERdtxRqJxGtVstSMhc2xhijESEEHMYx
- paQPghJ10rHvOpmnFMUJLqVtmlzyYrE4OlqXUoZhkOVBDHjI4nNKebPdWmNTSoc5OFZEMQSt
- VEzR+9C17e3bt2/ePLHGvHj/xe1m27RtjLHvu3EY5fwPUlHEADGlXEouJeXcNq0oxzMzEk1+
- 3ux2rrGkVUrp4vwcGLquY84pBoQ9JkRIAEioQLHSuu970X+2xijCu0880Voz+/To1baQkfFt
- b3nL2556a87R+xhCijGHEEIMxpqUXledzjnL2JXWRhaPlZKA2ViLRAxgnXZO5xQ2fp4nn2Ja
- LhdGa62wccaYVkJtCBGArVXLRc8M18dgpZEq3tFoXRseAFBKLqVst1spBaZpShmMsT6WzWYX
- YwwhlsKVSb/o+/VqIXikhNfN1S6l6OdB0UnX2bt3b7WtjiG1jQkhTeN4dHTsnLt///48z0qp
- UoAZS4F5DikV7yMihphijDmXlP355nKx7pVpFUDKebvbusYZoxunrQYiJECtNKFGhYUSAiyW
- S5FPsMa2zt27devm+ujlVy8YsLypAt9vPJ6HgPDMM083TZNCFIaPRCtjDGKOMUlPDK5RcGun
- AaBUVeGcc4pRKHTW2lKEPYDOudVqdXS0ttbIfIbWRYBlpcaK24lZi3MVDtVe+yIEGSCKMSKy
- tbbve601M5ZcfPHe++12yywSKPtSQCk1TqO1qzt37iwWi8vLy5dffnmz2TStm2d/eno6DFsi
- JCQAGIZpux02260P0TlXGydCe5FkQ+6MMaZ2aGY/h5C4QMnMtC9TQghN06xWq6Ojo7OLraSb
- MqEiOYNMJ6WUtFZN427cPHnm2WdeeuVTQPrR8nkACiE9+853MGcBR+Awo18pn1UxGK4Nbkkp
- kFIRu5SInHLuD0wNo/XJyclisfBh2u12TeMA9lJOVYKp69qUEiIoJXwWrmNdYtDy/1IWSN8i
- hKSUnucrAGAYnXMyXpRSUkpLhIW9SBTIgE+FSySaL5eLUsputxN2PiKdnp6NwxRTYgZpUlfG
- jXT2xOCkBq/IS87l7Oz8xvGxNVZhZmDEHGOUx+bGjRvDFK6uNhfnV8xcclZWyWyo1tqnKGXc
- ctk///z7PvGrn9pvdnhk+raITMbgj/3Yjz711D0/zaXgNM+1V1sY5tlXxPX62NVBbT1XHW2t
- tYDD8+y9D6UIKwTHcdBa9Cj2HarapLfWtl1jrAEEwv0WlEq1qnoo8tFEVAqnlHe74eLichxG
- 4dtJZkZE0uOSvshh1COJ1YowqNG267umcX3fN43LmU9PT3fbcRznafKkVJVrFouXKC8dv4r/
- yQMZY8ylBB+naRp3u3GYrLNaqzrfBCDybbTZbkKIWmvjzHq9OlqtrNFaKa2QkRkopvKJT/6a
- D/HNpSi/4bUtUtfZO088Acyi3iD51qGnVCpbuM4fHLbHlq7rco4Cf+ybDQwxpqZpbtww280u
- pXRxcdEvutVq1bYN8x7YEwZKKaVwTomttaUgaFUFwg6kKXO9qcrMMewn34bdGEJwrQMEcXsA
- EEKU8lCYmDHG5GzTtOMwFi45Z6Mts5Ei1/vpwYMHwzDGWGTlmtGGNB26NUoYhGJJwsCrZNi9
- TGVhIoWI5+eX52dn4zjcfuLmarWU2lyexpOTY0R68YX7Spuj46PVemmdyzkD4ZyS0kSkbt48
- uXHjeDeM/CjVtpwh3Lhx68bREQIwIil0Tnuv5rkoMqUkrfdQba1whQYs/QZkEoH2nILpLJEt
- hY2xSvFuO263W0BwjfXeN40jQk2krQ1EStrzKZvGGFJAJaQsbahKUpJoK0geACilldGZCyry
- Mfjg27Y1ylrt2EAIARjjgQ0gBK0YU9P2SDqE4Jxb99YYQiwARSm1WC524xinOZWijCrA5UDm
- k55HXU9QIUB5LIXqYu1+7Ig1GavJqpjz5MOCoQACKZmRvHG8bqzhUlzbGK1LTkBmGCZG6LpO
- Y+mdevLura9//UV+tPI85Dt3nui6BgGUIufsOO7xfT6MWEvEEfhNArH4v+12C4VXq0WloTdN
- M02zUgoRlCJmVrQH/5hBHShJ4saMMUIhbprGe//aa68FnwBVZchVmanDeGys2jyIeHx8bI0h
- hdoo1yxzzt6Hy6uNAC5EKCF4HEcBfUTwRTYKhRDmeXbOrZbLcZgOLbgg2J6kBHvou5Rpmirc
- c40Wylora11KsWnsvbfcdc5CyXKLhMRfMeq2baoukeSOwqO31hmrnLVve9tbf/U3PgOPmuXd
- e8tdpYhL1EZrvWcFl1IQSBTjanpXWU/SUwIALiWm1HaNaEYJ2hxCRAQiJZSW1WqptfF+Jmrw
- wA0W6tR6vaoEqq7rZr+p47qVpVdnCsdxjGlP57x58+bx8bHWZLRqmlboW7MPbddeXFx4H9rW
- GWMAuG0bpajvu9VqJVia9FRijKQ1EmmtQ9jBQdigFhDb7bamevKhotlYJWxL4RijtabrOln1
- sbm6lNrl5ORkuVw6Y+qTU3PlzWazXC5zzrthUIoaY7que+rJp9500Ys3Ps/ju3ef0FoBcIbi
- nNN6rM0r5CKGWBPnWnVK3Gm7rmvbpmn6vhOCJJHAYGCM7rqOFImZxkgpxa5ppDQ5zJXttRBl
- zsNakzJU41NK7YcXc04phRCR1GKxEK+zXq+c1YhgrSml1D0C6/VKvI73PpdMSForREYUQl4B
- gL7vvffDNMX9fnnJJlA8cdu20tWoCwvqhPnhpok9QUrJWiPvllPEwwKjy8vLnPON4+OqOFPL
- JklXzs7OGFGUCLQxTzzxhDY6JH6E8jwiunPnCW0UIfgYJEFvmkapAQGds8ZacW91zrSGy5r6
- MO9brsYYpYpSOsYsumDCq+u6RjhUCrEqkkjJaYwWC9tsNgyKgerMrIw/ymMg9qdJSSNLPq5x
- ShotWuu2dcZqINCG2s4BgDZU6Z8IAMhRiEyIsgzSxygLgKRto7WWScsqHVk7K1JbwEGsSJ6K
- 6/54GHeKcLVcyBjePM+bzUYTLZdLMb6aokiobZpGW9t1rRRn+7GSRyraOmVuHR9rgphKzggF
- ZGW60hqQluu1ViocFKLg2hyNnF/btLIHcc9+I1SkEDmE4Jz1wYc45wK7nZyfZpgEtygA3vu8
- HZTW0spkAK3VAcwOiKi0KiUDQIgpZQakMPuSM3BuG+MsdV2bs5UIuEcfCVeLhbTXIoDWjhC7
- RY+IWili0FoBMwKUlErKirBrmxgCM/Z9LyJo4rrkW1dRb0kPpLAVJj0AihrQMIzMvFwurG27
- riulpMTb7fbl+XScw+3bt2R8BBFiDIigrHatM9ZZ64gwpiz3MKTwCFle69ztW7ekxSgiDI1z
- wnqa456RIUhHJWvIGYg7SSk16AQctlaH4I0xSJhSYmBrjVJL6f0vFgvmEuPsnKOaayubUq7s
- GB/SOI7zPEuPf5pngOLn+PLLr07TnHNedJ2xGhGY94VwzdmF3CVjIlo7IlSKwhS7tu2aZi+o
- p/YMZ1HJ0EqCoBQkWtz39egv7NHrOmvfsDEB0UnxhEhKSfzNssIqxjSN/vJyo7VdrxfWGgJM
- UjYBWOtABKxiBJStqhrgUbI8rY1rHACkmBDRWQc9uMYZY3zK2+1W7WWdSp0c894LJoeIDBi8
- 15o2mw1AcY1FxBTzbrfb7UZ1eMnULXNBtBKsDz26UtskMii+2+0uLy+naWqaxjlrrOhEFSHJ
- EZHeBy+W2lPC/TzPMkYpw5H77chK4wKlm1dKsc6mFCR1q9uF5Cmy1iJQjBEPMEpVXxTZ5KoT
- JbYuZYd8i6phIJXH+fm5c26z2YzjGENJKb74wospPXHr1k2hXwDI9y2ucczF+0RKK6WssQDj
- I2R5fd8ZbWKMSEisWAEiNq6x1pZh9MEr3OfX8qwLtFbBNtxvpUOBWxnYOSdQX4wBwFZVrxhj
- 0zhjrDFaPEcpZZ73ayrqG3ZdJ9HzsNLYyPQ1IrZNo7XWxpTC3vtx3EM5tS3W933F22KMAKw0
- Waetld8zw7AXyqgyAHITrLXz5P3sUe3ztjqFaa2tX7luJpJu7PWpTQBoXCNCCeM4juOYUpbp
- 91dfPR3GcZpm5iz7TpXi3W50TYNIIXoNiIjGmkcrz6uz1jnnXEDLGDe+Tk5hKBXiErWyKvHk
- vYfCDGW1WjCXq6urYRyM0X4O8zznzG27l2aXOBiCN0a1bVMpfc6RKOpJ7TJPU0pJFpAaY7RW
- hbM0S05ODkKOOQ/DTgKuMFaqtIU08gV+K6UAQl0f5Zyt2vCbzWavAw5wcnLSNK1SlzFe5DIi
- cGXs1XVTFVgWTYK9ePchQ5Bb0TQNEgJz1YFkZq1tSiXnMOzGr33t633fxZgRFXOZprkUBgRr
- TS4cQ6Q3W+ziDbY8TCmHkBQtEFWOmQiN0SVn5qIVEWLJ5f/K4JX9UqJgF0KYfWiapjCmVIZh
- 9t7Ps7fWkVIMkA+91JRTy85a570MR3LbttayEEFkQHqa533VLVNnIXrvm8YqRTEmZywglJBi
- CgDoXCv+KYS03Q7O2dVyIfp1ohWg5TscHiTnrPdeFDOIMBUm0sZYY8yi71NKk/e5FGONcRYY
- 4KDXcRAxKjdP1ovFwodwcX7+8iuvGE1NY7vWWUMhzPPkN5tt23UykUSK2q6ZZ04peR+aphFi
- hMw9pRRjJIMkezXqTX5kfB5zYUgJSFHhIFvBADmXxMBICHm/bK72Z8UTyJOtlEq5hJC6Tlvb
- IQKinqYtKa20llQMEdUBs2XGnFkW8AFkIsi5OGcQOecs6ft1IM3ZZhrnnHPTOKWoa/pSiiKC
- GZ1tUyrT5JlnydVSSClG1XWH6WBrrREGshjoQbwMnLMpRWvsNE1CEGxau4LlfBqEB8p1ieiB
- +h9j7Bu9Wnar1SKlVJLX5p54PqUAsYTZX212gBRjYkAkYsikiIFJkbUWeM9BbFtXSo4xOmtR
- oyw+FUT9UbK8XPCwuAcBqySASM/KIjJBZSttqcbKmuBLh0rGIq+urmpUklbbYrGQNaFC4huG
- QbyO1i6l7P1srV0ul5vNZpqDbKQVurmkAaIUsScQQF4se8Re3kSo6lXj0RglvyK1p1L7SlwI
- L2J/QsqXjSsqZp5FRqiUkhG4b/eD6JwiHKgrkmOUUtbr9fHxcdu20zSdnJwsU/IhSBfRObfd
- DjV1qVmghIhaEeeUc04AxjnXL3rCvWI4El7fNvNIWN5etaSUkkR2BF+XIStZaQUMQu64hhtz
- nRSUNEi0VLbbbdc1VaxEMnFjjLSqRIup5CyLnay1Up9O0yiMS2ttTKVqrEjVIuWkGNZ6vXZW
- C1VO62UtOaXKbprG9m1djiDyVuK3ROtOvlcdtlBKNUoXLjlTKe1i0SHS5mq7G3bAMM1TSvm6
- OlHXdev1WjoQcsGib5pSOjo62m63wzAclHP3grViglJoW2td0xQuzNC2rRQ9REiF62a2R40Z
- CjItBqWQ0YgqpV3OebVazSGVzKixogxwWB1b1QsPUtpFxnLHcbLW1OUCVceprosQhEwcFSIS
- cQhhGAZJ4bXaT8VW4ZKqgSIWuVgIG5kPC9P2NEHpnOK1l/g5gL0vCfvJpny9CeFjpINEAQAA
- Q9c087xUSk3jtBvHs4ttrWeXy2XXtdfJoUopOOQeu92ulEJkDuRqJY24WsU75/q+K2VP3bPW
- Fi5c8MD+iiE+YpYXYswlM/M8jzpbaxwDNE0z+w1wRoByQL+EAX99L0rlwVeliFLKOE5ykNY6
- 55wMqIqx7nY7aS4ZY6ZpmueZCErJ3odxnBAJYM/HtNYCc4jRi1BG49rWkYJpGo3WTdNYo41W
- fb/YbnbTNGqtG2cRZI9eEHJKXQ1VZfaqxRzaEgoQFBEiIaLROvogO/vatk2lOOdD8CIMLlre
- cNiMFWPUB5xZ2sTOudnvYRohXVelIhEZksWqB8GNUjgrIq1V1Rx6xCwvxd0wlFJyylpzLoyk
- VquVZOL3778i5NAqqiIWJgjL9Uh3EMvZ04j2ivyAq9VqsVhcXV11XScHZq2NKQWJensVAUyJ
- YyxakzUmeC8bDfqua5wLYe66xjU2+AAFFVHbNIKnlJIXvetag4A5Zz4IUxwESVF2JVwvjypc
- Io0ZQ3uF3cViYY0dhyHlnAsUCG23aMdZFqlZa41RKWWRDt/fuhD4AMGs12sfUji7qg6vTm/U
- pVykMOdkqEFUKeVcMutiCBkopRRDfNRq2zKOo9a6a1tGFFfU970MiqaUYsyVxLFcLmsrs1Im
- ZTr1+oMrmJacd9+3VcGkbVupW2WmQTgBlUdUle1kBkcchrW279uua7UhLpxjkgkgAJBp2bqM
- Skgx19d6A+But7sOyElhVBNEcdtV41uMJpfCJW82G9F5JqK+79tWpEix9q9lfwYcyClEdLRe
- h1AuLi5qfKg58aH5kUtJSqGIyBijBYgvpfChcfco5XkM0pjKCFzKNI7n5+fVPbRNW8pcNyZK
- k0r6VJIzCZ2kDijAtaVQoocnPHLxEJLgS70iH944t1wu53muW03kPeXgJcM7OTlaLHpj9TzP
- kWHfLGGWuFzXaVQFoP0eR5b2GgrttCYJcuX7qZFDA6Pve1EHlPr34mJzfn4+TrPYzQHP25PE
- JLtt2zakVFeF73Y7wL0EjFT0dWClxl9r6caN4+VyJbwsrfcPjag85JIfLcvLOb/24DWlqGRV
- OAtbSQTam6a5cfOGutyen5/X/pjcShEDqBwkOQBRIpOu7j5XA57nCRHFbVxdXQkkEUIQ/yfr
- gUQ+Qt6zGqgYulKqaaxzRhtljVFAQinYr/U+1LaVKly5qwfox1T1Pri21Ep+RZ4i6WhN0zTs
- dvM8D8MgsgohBFm5IY48pVwr0P2yU2tFtUM0OqZpL98mqUhl0gvp1Riz6N3t27e6vvcyVAUA
- +7W3+y2Ej5jPQ/zSF7+UUiZFCkAYkTIhK4ISznmlqIqzVp6ZxEQJi/KXEgRrT8kYI4QAsa2u
- 6yqz90BYJzE1OLAmJYOKh1cpZZ5na7UxGpCJSMHr6zSwgmEHX1sXGdQ2qzu8qtRLjYN10gcO
- alSlsJT5CNi2bRKk8/Cq0sqSFWitm7aVZFeMJsYzeRjqXi7vfXeAtY0xi0VnnRU1t5ikuiet
- dS5pGF9fNf1mvd5oOBGL+srXXvRcyBhEcFZrwtbZrnGNNZrYGnRWW6MQOMx+t9vJjd5ut5Jp
- 1S2j8veiP7JXZCpglHXWLvq2ceZovZRWpvdxtxuZ99uIpWORUiolaY3G6OVyaW0zjXPwou6N
- w24ah6keai3M5xAEuYk5y6KYOrHmnLNWLxbd0dHKOeOcrSyvGgSFECUCgTElH2KMhZkVQGeN
- McicmJOsViglKUUHrD0isBY2qLM5Bmv0ctl3rdMKuSRF4OxeXMFZ3TjTOqeROGVi6JuWEAEK
- KSKtTi8uQ37Eoi0zvvbgwTTNi25Vcu77/umnnxbcX8TCCvNuN+Q8aq29j5J+Xd9XBgembghh
- tVpdl/3SjV4uF1qro6Nja/U8z9OcRDDg2rKyvQizVABd1zGD98HP8zCMACCSANbq1WqpDi5t
- P1cbIx8+fc+mOcylS7yTTxENHu9nkT24PvArOJ+Af9YaY43LNngfIrjGOnLjOIp4roypC91f
- yvbNZiNFEjVN3/ddvxjGICsSDgw0LUCjFNrXa949LAqcUkwZXrz/0p44/ehYHgKM43h5eXly
- tEAipdTx8bGEPKVU23YhpsVikXMBJuat9IuEA1c58ZUoL0lYZcwTEimltR6GXQgaAK6uLqdp
- mqZJZJ2mafJ+lgillOr7VikCIInjAtkMwxCCb1tHhGa9ru1X770PAVD0OvdUpbp8J4Qg5NDN
- ZidVTs77qTCpEiTJO4hmSKfErtcrrdWGy9pqIjWHUGO6935iTgwIqLQCohSjIpTi+uTk5PJy
- 4/3MDH3fi+nLrZCiylrjfTBG1/3Q0gLJhUuGr/zBV/F15dA35/VGa8MjYCnhe/7kB99y7w7k
- DICyhP2aT+IY0zAMDKhIqYNgd90YJtCDnKiYYwVvAYFz0VqJciginp6e77WYZI7w4POkEhR9
- qpwLAOZc9gUNiqgpN41rnJMcaw8r/mEdcCKS7t4BckNZxnLotRR3IO7Lw3N0dFQOC+XbttVa
- pRSVImtN07i+7wBJyGB93/d9Pwzjbhh3wzBNsw9REZqDBBsRxZjOL67kmuv2RymiJaUDyLL8
- dy9GCLJyD197cP5f/4N/OIz+zY22b4bl5XD33q33P/9eQuJDwSvOTGDkGJP05tumPT45Fnyu
- bjeUuyxdLCkDpWiosc97Eew2Maazs4txHF/Xoz2gsgf1jD0r0zmZchDSQALg5XJxfHwk4VNM
- PKXkD5Wm1Cg5JUKs5DljDDCllBXpUjjFRArrnHbf9+v1Gg6DZDIIN8+TVCwihF8YJZfd7xVS
- 2se03Q0x5cIiMMsykxFCmL1XyogcqgwWtW17fQG41bRXkTdmrz8EVHL5yldf+MX/+ZdSeZO3
- zL/xfdvMqD7z278/B+g0SGlflxSK32iscdZy5tVy0S37YTfstpvGdUarcRqt0Uqr1XJxdHR0
- fn5xcXFBSNIzV0rP81S4GOvOLzZKqRiiNTaEIMw/Lqy1QqKSc0xpu931fa+Uds7lPq/Wy3me
- G3DjOCJqBsrMVEpIqUwTKrVaLkU3D6T2POzMEHo9MyMBQ/EhGmOUJillanpweXlZqStSWVcG
- qJhv4SwqkSnleZ5DSCVl4RvmmK6urlLwzjXWBu9nYF50jVHH2ugQ4qJvpzkIFCU9axlGlhhC
- RMyFFGWgr99/JaQCqIHLI2V5XAC/+OWvnZ1d9nduEO4BWTmeA/WjPDHfeuWV14hw0ffAPM+L
- lNJ6vV4seiLa7XbG6L7v+r6f5zmnBAjz7Idhl/ZMPkZU4zgDs3OWEHzw+6Qb9w5Paw1IpfBm
- s7XWWWuVoniQjgwxjtO86JqUcxgGEeuUpbriWUWaszIV5MpzTt7Pkhog7odtxeWIXxTugsAr
- bdtUVFlcXUU6Ukrex+1uJ/pA1lqtlCYlwfQwBISITAQIbI1qG6uNEyggZ1n5LCwbfViEREgY
- Yvi93/98KcxUHq0KQ5Kh7Wb3u7/7e2+7+2GlIB5WGMr5yRnHUErh2QfphUvUkDCUUjo+Phag
- v23d8fH67OyMiLquSSkr2LPh9ysY+3YYdsZYpdu2bflaaJZcKoaw3W4FeWYpI7wXyGbY7TgH
- afxLD54OlXVd6nK9Gyb7F+tApKSDVT+54s9VQ+hgf63wlkOIXacHHqdpt91ux3EvsVW7GsZY
- 2WdeBcSFDyYet21bRt5sNnVp5Tx75v2mTBlN11oDhq9//esyS/WosaQIAEvJv/5rn/qBP/Nh
- UiClX5WrlluplFqt1l3OIUXpPaxWK2E7wmH2VhLnmzdPYvSbzeYgeRsrVmyt0ZratpFVesvl
- crsbLy4u5E26rrPGzNMkXd1hGPw8C3oiK3StNX4ex3GQFNMYow/0mZrtVaHm68BsDcG1Aya1
- qliA2GKVBxiGQcRfuq5NDFIXp5TliwgWLT9fwZF82K0qE0zynrvdbjcGadwZY5hhHHZEKIhV
- ZTemmB48ePAw7PZ+M3weIyB+7nOfH8dpsWxEAF5ua4zx6upKFGqtNSorVHR6eto0e3Fq6VQK
- smCt1ZoQy8nJsUzc7HZjylsZ2vDeL5f9jZOVc/1i0Ttn1+v1NId5npfL5fVFP4K2CCNGCoWD
- qIDlkprGyRmLpoF02OAwIyK/8g3tMkndRPblukyCfERlE4o51uaYc2704dAU3mtI1g1V3ntn
- VM4nxpjdbnd6elpKuX37tsCZ4ziWUnwUiv+esPgNGgbMpTB+7nOfu7q6AlCPnOUxIAAz8Euv
- vvL7X/rSH3v+PTIWmnMOIR1gjkwKU8qAhQi0phDCPE9KkVIakRFBKWTOsr5WVqzcvn2bSJ+e
- XayWCwAYp2me5hi7xWJVChvjUsrCcR52OyvKGKQAyYcwjFPbtjkX55oYw+Xl1TTN1pq+taCV
- s3avRnYwI0ndxJ/VCkNSK7EqqTcvLy8RAZH+z/a+/Emys7ry3m95Sy619UJvUqMNgTRIBgYs
- GyRbGAj/4HDM+JeJmPmn7Bm8CZBBzAgzQAw4xh4jgVhavWhprQhaakkjS0KtXqsqM1++fO9b
- 7vxw3vs6DbZjwjEaldT1pOiorsrOrKp38373nnvuOfN55Zw3BkInBoSRxaLJ80xrr7XR2iil
- majThGK2xjRNI1GYuFk0IiKx869XWocYidj50DTtvF60rW+dM8ZkmSnynIiZZDAokxKc1toa
- O6vmDz/8gxgxN7zG5rbCRBSJY+38Tx4/9Ru/cStRZNaKTQyNVkYoeO9FInNUmjSzMSrLBlD5
- 0RryXmKtJopVVWM9Fl4lzoXMmrW11dFodP78+aqqRBSztjb3PmotwQcGQTeEJoSiGCillTJF
- kcElKs81yE7zeW2MjuNyvDLeWFvT6GS1Ts7yyC5l2cktAoiGggmaCWQ48EbBVXbOJ3JD0zQh
- xMWiYVZZpkKI3nvfNhIDOobgvGIVg9daKw5N2xLFxrlpVYUQtDHG2NZFVsZ52dyeaq0y79Y3
- 1vfu3ejtCCXVnUopH/zFi5eefeZnJFqYieO1hSQTcp6IUqqaVb/3O3ePh8OevquM1ThiOr/Q
- GMFIwxgegnmYevXGBJJluVJqa2u7bd3Gxh5mBSg/gatlWULGaz6fV1WV2B9a63IwiPGquW2a
- zvWBZfZurB04eAAb3aliWzIdJa0V9Lt7aVtfVRXI+hiUJR7hsjxZ7/vT6ackx8oQfNu2RIxq
- WBnjvVssaiEhEoijdfxkY6pq3rYOLVfH49Jq3769e/bskc6k1Ce6Q5ZlPoSHfvjjk4+dFlHE
- dM05sSDJM3b9LOgAABnGSURBVCsmfv31c88/98IXPndvCFHrCFG61BsCYo6d5UMnSQFeHTLH
- dDpN8wsREFIuYzy1WCz27t2LO22MQTE3mUwAhaRdjeQLig8grj0cDsfjsTFGMa+srqIoTDvY
- y5Z8MQbsOCaaYAgakqOJm54WGRF8qvdCxifLsjOmwuiZWbQ2w6E1xkokF8O+fXu2tw0zl+Wg
- aWqsPoHlVRTldFqh7gQZrCwKZNy0PJDeKkqpeeN+evxkFBWZd4LT6LsTeUQcI8cojz/+1Ofu
- vTfLcqLISryLsKTuBGyca12XulAyg8lX1/WVK1fefPNN58T7QEKbm5vOO2ZlrV1fX9+3b18i
- RAGRwf1AR4w4S5sTKeWkdUZEUpbnzB1WlwzyMGIG5R31OwpTJNHEb1BLC99IltSbYGGKKiLY
- uEaTgc8bg+ZDeR+qqnJtO15Z2b9/H3rtxaLe3t5O/rbJMBLF5dra2uqoXA73ZX2Muq5/cebF
- F19+LZJCqc0kco3lvK4LxIrKT396/D/9x/9w9PpDzJRnucRGa+7fsYo7LVGSviTpxAO8396e
- TKezet5OJjOU/M656bTa2LNelmVe5CTCTJubWwBQcOxmWba6ujqfzy9fvhxCiCEmG3CgbuPx
- OHGogjXVvC6HTcJx0oy43000KXRQuokIxEyxmZbO1kRdBgqD6XNR5MmYuXe5VSIEA7SiyLXV
- RZEVRVEWBcK9aZqOeeCc1mpjY91orbRWiomksIZ64urVKZ9SzOx8OHb8ZOsCsWFi3gGOe++W
- m7xghL1YuP0H9n/8E7ezOPGstNVGgfQBmiecu7ptLSLFKvg4mVZVvdiaVJgXEbPNMm1MjKIU
- C8XReJjlRkhc69NUALc8wbBoCIy1OG0BXuCeVVWltV5ZWbFlwR07QWf9ekeCx7BkmIbOqRZE
- EurNc1W36KoY9Oc0q0DMp63swWAwGAzb1k0mE+jelWVpjWGiDPYY84pJxqOhNUYkFnlWFhmz
- aEUkwWildbcJ38kvk9LMSrEXeu3chfu/9o3FwvHSsXNtRt5Vvt7m5qXPfvaeMi+Cj4o5yzMg
- dtBn7Yfrsbeg1d6HetFcvHhpvli4tuWl3yAe0zTt6uqKMWYymcQgUBJGPZSowgBsW+fA7xiP
- xziOqTd5V0qtra2NV8e+ba0xsGtTio2x3RaZtVj1Td6ead6AGw9Uz3ROzB23CvVib6NKyzRm
- FKDT6bSTK+1VA4GxA1Pc2NiA/GiHhGcZ9Z7NeGm4svQ6tUYp9iE0Lv79D3506vGnaCcgyDsl
- 8ogm25uHDh28/SO3xRBCDFiiATaLXya62v7drBUrUTyf17NqLlFIBHeoF8oIzCrLMiaG/6K1
- FjQ+PG0yu/Le1/PFvK4B+bb9hfEA0N16UXvfKubMGiZSSiep+C4RZhlufBKXBZKXGO34E/nV
- +5CmatbaPM/yPMfgDpOG2WyWJmbWWmMs9WYb2DMfj8ed/gtE+HppUQQoDuIkKq+tCd6L0IXL
- W/fd//XptKKddL3bkadIRM6de+sLn/98ltkQnGLO8xxDIWhv4YyD3kUIwdqsHAyd84u2ZSJr
- LNIJuH0kygeHj6FPiOEmaMBoVDGcbdvWh+Ccb5pmMpmk2TFagW4eKiEzxlqTWTMcDBCU4DMj
- wrLMph0OhMt4PEa2S30Svtq2bQjdhhhO5DzPR6MhdMbxLaWFbQRW0pTp+w+b51mSTUlUvxSC
- abqNuHcxhBjqRXvysace+sGxSJpJdiNvmT9A1XR65PChD3/oFmjUpaXRtm3a1iGwEpwxnU6V
- NsS0ubWd+rskrWxNpo1OxPeyLIbDIW7/spU3BkrOeax4pV3JRKfDixqrjdWj4WB1ZZxlGXNn
- EIAVMgwJkKiIqCiK8XiMSIL3ECIJob+8MdTbV3DR75ADBeSeDthrFYTkLwAzrbQeiudPF/Dt
- ZInRKa5KbJpmezK778tfu7Q5o53RWLzrvW13RYpMxjn9nW/97b33fGZttRAJTbuYTCjLcnSH
- ieWRZVlZDrRWs1lFoV0b5RcuzGxWeOYMazg+shJmNRoMxuMxCASrq6vD4RAH7ryqi3xgdOY4
- KGuMaiXU3jmru33sIBRCiCQ+uOFgYFmzF8Masld5nmutYpSyLLLMpjOOen2J5K6G1Ij5fdO0
- IQRmilGsheGsjjGAzZ/2QnqWQ5aAmxCi97AA1iJCotrWM5O11hgFsVSlFL4lZgkhpibaORea
- xjfx2LEnXnn1DSZFOyns3v2cJyxMSonevHJp376N22//MBEtavizO0ycUj6DlLFzTmvlXGut
- mdc1SuxFvcB9ZZYss6PRcGN9bbwyBusYdwK83BjDcDTUWrVNk+W2dW2MIc/zLM9ApTRGr6yO
- i8Kub6yNy2Fmzfr6apZbnLBENBiU6ShEqkNtQL3oYldE1jWSVi9qBmEKVZblaDTCOwrEquQj
- mnZ2ep6zRwvSi0TlWhuQCfI8w0AWJzsYe0ppvFYPkvu3z1/+4p99aV41wkQsvJMi713OeehM
- I0Uv8vUHv3nXXZ88evigMVnTLKD9CyHX3lvMAX1IZ+JNN96wPZlI5Cjx8qXNwaBkhVbDL5pF
- OSgRqZinGWNUBlq82tjYd15C27rV1XFZ5kVR9uaOTBxXV1eIo1bKsjZGr66tFEWhNSf6SSqz
- EvsIGShJqCQQB+UjSjEiQePZti2WODHYsNYm9b5+zdv3vbwCBau32YCKwFX4BgdCURTOubru
- 7BKA3TQh/t1DP7x46bKwIRIW2e1t/3GdBzyEaVrN57P53b/9aREBpBdjaFuPRJLwNmz9dN1f
- ZvM8q+bzwWBAzMaq8XiUZVlR5Gtrq2VZ5nlR1/WFCxcwy+80U4weDMqyLJxr8zy3FmplmomC
- 88wyGpRrqyvDwWA4HIzH4+GwHAxyVhxCbJo2dZd4PyS3NKjfoXWFnkvburR3TUR5XsDPrVeQ
- cabfb6J+j7hfAo/ATaBL1JECWSlWItEYPRgMQFjEehvMWPByXeiH8MKLr3z5/gecp3iVmcK7
- Oa8PPGGBhiipIOr7Dz9y929+8nfvvUc4OtfBHynHpClTglHivOoYRpH27FlfLOqyzKHDgtWw
- PM9ns1ld13v27Nm/fz9zJKIQvHPN+vrGeDysqkpEFosmy6xr3daVCVHIc1vkGajnYAFqozkK
- pEiAvaV9ufRdpRla0i9TSi/xDyxW0QBcQ3AIYYeOJzUTqUVAE50EjbyLzJzlVmuIwsTFok0J
- D+1/IhpevHjx/q8+MJ0viAwJMwntqM52B+B5zB1bTJg4Cr36v1+75zN3ra+NQnSRWLFOC6pJ
- Qg/kTaWUNSbGaJSxxuZZnmUWb24MOkOIs+l8c3OraVqtjVY6Rg8+iFJqNBqura1arfM8gxtn
- nmfDYVkOyvX19cFgALGXLMusNUopxSrL87W1lcFggIqqrhdpSJqIyn3VD06ylGVBxFprbI0w
- q/m8bppWazBbbQjR+xCCD+HqyIsI/a+JsYOHmJWQ5AXwFsvMdb2IMeZ5wayqal7Nax9j8C54
- vzWZf+t7/+uRnxyHkyWl0NuNvH8GXREhvbW1ReL+7cfvIGZhxULLthDAw5a1QRd13TatRPTC
- TNxJPEGwbHt7SsxJ9xhG89ipgV3iaDTsphHMWqmiyEHEwgOU4h4zyweD4erKOC8yJkp6tMt0
- PWQ7JDxUaUWRY68Whi2zWQUmS8L2ACsCQEnqyklr51diGoO4siytzfAo2NNXVTWZTHG6K+a2
- cS+8+OpffPmBEPA23FGZbudF3nIOfPnls3fecefBQ4estckSCIcI+E74AA4kILpVVR2j2Mxm
- uQW1pMe39HxeCcloPBqPR0QSgsfkoCiKzGYg2OGlwaEajUZJDCXGgAKunxkQEy+apqrmKLCW
- OSNpxxF8uKQ9AHAOnSyw6KSAxv2Wu/RXovSlpRO8zZb3P5KGn3Nua2sLg0GJUYhDpEtXJl/8
- 8y/98tyFndVQ7PDIw2/Kh/jSS2c/8+lPb6yuat11fLgfMORMuQFBqZSeTmZN07Bi6b1NUuRB
- urAo8rIsUFqhNldKxdiNcREovXmkhlAV9iAxTu3TG7Wuc5Y3xjrnnWsTyo2ZLKQXE5kvhABe
- IJSNUf4ndbPEgY29q3Tiryft9mRSAGZXUsZNnELkSFhknb+4+cCD3z7x2GkmldbadyPv/yby
- hIgj683N7dn29qc+8TFYd6bggzJcum3D4dBai1FEXS+m04nznZMn7k0IfmVlZW1ttSgKokgk
- q6urSfaGmdqmQYZDHQmNEuplIoy5GgHGmBA8MaEgi1GUUsbo5M64BHeXmGpAbicZh6IrT3Hm
- eyd6tFCDwSDxBjrPoL6jTwA16k7wHvBJtDWI4O2t6cOPPPrt7/1dIM2yoxPezsx5LMxM/Oqr
- r4xGw1s/8iFmssYwsXcxyyw0GBNJGIPdGKXI87ZtQvBFUYBfpLSWGG1msVCT51kMsc8obLS2
- 1lhjALCBILNY1FkGcmi35JYgYiLywccYvXNwaIZdb1KEScKmqEexD4vRCMgKznnq1e+S5h+O
- clQIAAKTjTSiuTcaMFmWZVnuXDubzbrq0PkQAzELc10vjp86ff8DDy6aQKxYhGhHR99Oq/MY
- mU8kktJPP/f8kesO33jzDUZzpjMKqnULYsKIHQjWbDYzxhBJXmTD4aBzgdI6s7bI8yLPFJNi
- jjF454jEGoNmIgmQpSvPcxAH8zyztts4XO6snfMknSJHf5TBIFktOyPM5/M0CEbn0RukdOgd
- qkak1avifz2YkpxYlOI8BwOZMahtmmY2q9DwxhhiiFGkaZ0L/oUXz/7Jn/3VdDZnps42mHdz
- 3r+mz+g4Tk+ffvbmm285ev11JEGpaLMMB9DyIZiqInCE0lL+soI2ciQ2ZaC/lLavkW+o85OA
- TJNLG2WgLSVYLrEKUh+Qetvke0s9bzQpEPSc006hLLnbA1Vu+hM/aeL2pvBdzdez9ByqOjCv
- iIgVR1I+ylvnzv/Jf/nT8xe2loStdvq1QyMP55Fi3SzC46eeuPXWW647coBVYNZadzIDiCcc
- ZwigJDTRL79w6htwCxP/Cud1PwvGQq0F9IVpVdu24JMmPZ5lOfmULMHixKZZehv0QlUavCyM
- 1BBeCBoE9GKxSKkxtU2J5kRE2M/FSzvnFosmHf0a3oIiTePOX9z8y/u+cvbsa8LqvRJ2Ozry
- mDlKVFo3i+bJJ5+8886PHjiwj4STsQ7IUZDzRhZJSxWo2Y0xOODQfibrYtw5LBPhX/WpqPNB
- RCOJRhhFW+pGqVdmTjOuhKRgsoIgwxlNvZxy3xBw31N3vKxe667DUNJaRv8ZnfQJUNilhGeM
- ESIfw6XL2//1v/31k6efEzH03gm7HR15CV9m0vNq/tTpJz/+8Y/t3bOO8j+ECPWQpmmqqkoi
- S71SbNPLW3NqFVM7Sb1XMRpJtIcIPjwJ2E1ra2s4iKuqSv1jGuoTkVIaByj61gR3gwiIC8Y9
- rXPVrGLFTIy4hFg7984ZiVCIyMOPk/CUBC8r7r3omZ3zF69sfe9v/ucjjxwjMkSa3kuBt7Mj
- j7uN5ChMk6o+cer0x27/NwcO7IvihIRJR4l5nuWQpmbqVfcp2UOKdKw1pXSeFxhm9NrqLq2H
- JSlca69OEcBMRn5Knj7poMc/T/o6iFfvQ9tivCHO+db7tnX1ooHAsjaGmLGIoY3JsywHiaAo
- euM1BkW+LAvqDeK8923rmFmRznSujRaSulmcu3DpwW/97fcfekRYCQuxEO1G3jvTcEyn05On
- Hjt6ww0HDh4AwSNK1H2LAA+01BgikwHjwAWKZSr/lwsv8DFxuiU7U5Riabqflrc7B+/uebKl
- DR2NJiZJW1Bv2LIsbXZ1RKG16hEZvAeM0Th2m6aBTg/GHmC7lGVOFEOUyWzxy7cuPviNbx07
- caqza/1HSPxu5P2/Dj4imlSLH//00fX1tVtvvjnPtHQqrLhtJk2WkIdwR9NQFZUcmt80xUpN
- A4xyYoxlWS4X8iku0YIkmwrkUcxb0TSgGUi6xMYY1ZujJq/RBNctS87jAyA1KCt7wDKmBQtr
- LWuezavLm5PX3zz/pa98/bkXzgQJ/9QMaDfy3pkDOIR46uQTly5f+eidd4xGw6xf/ep9VxT1
- IimpzE93WqlOVACTqFTgIzrbtkGNBVQF2w/9gmPntJY2MjGtSsmvl8SLy28DZrZZBtfnFMfJ
- WQWZOVm64edLHzOzMRYzG5z486aZzRc/+/mL9335q2+8eS7Ir5+wu5H3zn27EiiSiD7z0ssv
- vHjmo7d/eM/6Ws/mdTFKIrakhjcdqUQEEZ1lRhP19j2438PhACUgkFt8NbUmeE7qTdX6KNLJ
- mTyEiKCE3oo2JvH2kt5F+gZw1C5HJNHVOSE6GORL+BJe2Zo9+8KZr9z/tctXtoIQsfq1jZ7d
- yHvnQD4ihjQwyVvn3n70+MlDh48cOnLYGmZxLGR1mdkccCwrFSN5F5TS1mYkBN0CnJhpczYp
- zRdFURQD70PTNNZ2iw6pn6jrGuMv70PTtJPJdLHodG1TYYdWFN1rB7hA2iLGDIg3kVZKK5VZ
- m2rKHvqmEFgiQVAQkh7MXC+aqq43t7Yf+uGxb3zzu9NZDfMC7sSglv/f7TDeyXJv+S/TaXXs
- 2AnXuptvumk4GBJxjD7LLbNC+S5CrqOHsLGdwg3mE6lx6TVNOiy6rmvI3VmbIQmlxwCQw/mY
- VK3QECS8LZEAiCiGgJM6wTdpBLJsbtY1QFGY8CWCRiW0Ihetf+0f3vrGN7/zo58cb31UWtP7
- 4nqvRd6vni6mdeGZp589/dQzBw9ff+T6wybnEDyJKJxjBlyh6IPXWhmjUf4DxcVJmg470Mox
- lugXgq5CuHjBZKWMLdrkNZWgvkQIWKbuJY5nUujWvQhk0jxQGpPfaLTO8tzaLDLVrTv99PP3
- femrZ195Q7gTtmfm3ch7109fRcSk+MKly8cePeFCuOmmGweDkWJYtiubGSBkcBJLGMQyvzJN
- 8QEahz5RKaXQbPbaFL5tXW8KIEkdMc1OlFIwC0hraQiv1OukLyWGCyIVfQzCTqH7VlaE3zh3
- /it/9cBf//fvbs/qSFY6Xjvv5rwdEHjcKX4Lc+PdU089+/MXzh69/oMHPrC/zCyrKBK10Xme
- wx9HKY3uFWsc3RpRjMw8GAzQ86YGlpkgFQVheGbOshzztISDIMLAG03ae8BBIA2zTCdGxKdl
- M4Rv+qtSCouVMdB8Xj/00A/++It/+bOfvxQiC+su7Ejo/XK9109bwmpL7ztm3n7r4rFHj7fO
- XffBo+VoYA0zs9JKa2Pz3FpTlGVeFFmek1YxRsWECCuKHEPbFAdEnIQEwDbIshxTjcQExiGb
- IENjbN+6CrMCpI0lzhCidHtOgAIVdO+0UqCfMpFXql64R48/9sf/+S++//CPprUjVv2O1Psq
- 7IiIVw5+9P304xAxUWAVP/jBI3/07//wDz5/78aejS68tIkY9odAxEIUXOudw/HaA34dhoIz
- Mc8t9nqQI5vGTadTZEHqZfCQRFGuYQl3eYCR2FwhBCYlREZr0LFiDESRiCNR8KGqF489/dx3
- vv3dM784K6JFlCh5X8XatRB5xMIszHL9dUf+6N/94Rc++7tHDuwrcssdDbONITCTCIVelRu8
- Omsh/N2BL9bqtFRBRCFIXdfoZBFkeGSyrAX8hthdhqm7GUwMJGItDCBtDCFKcIG3ZvOTT5z+
- H9/9mzNnzoYgio2IIlFReSLZjbz3SuRRJ0hKQsyBWHM8uHfjD37/c7/32d+5+ZZbyrJQJCxB
- YsAUHz4noNQzX9UZVkpBOCftWDArEALQGaQ2Ng3Nsp64io4YcGCS8FYcFSulDJMS4eDjP7zx
- +o+Pnfj7H/7k9bfeDhFVA18tYDnsRt57NARJmLCRwBLH49FHbvvwXXd96p5P/9aN1x8elYU2
- ggy36H2nvI9LYwbphZs6Ul0v+BnRroIpmE5V9AqYy6WBLPXclhBCkEhErOyVS9snTjz26PFT
- zzz/s3rRRCFiJbzsUCFE7zn2yW7kpX6DiCUKVjtYRYnCpFlWhuWHbrrhNz/5ic/89qduveWm
- 0XhotPbBBR+kb0W7vEWS/P66z0fxobMJ9c6zUiIAfkFN7fyrRMj7QEwximLVOt8smq35/PTT
- zzz55DOPP/bklSvbIZJAAyBGIlHMnqVPcog8tRt5789raM2RQwfuuPP2u+/+rTvuvG1lNFIk
- RhuibuTqvGPFmKQRCcUQY1hiCRjkR61UFAkxEEciJcLOhRhj41rn4plfnD154olnnnn+tV++
- tTmZLqsIXMvXNRp5HStOSDETR6VkNC4/sH/f4YMHbrvttqNHjx48eHA0Go6GZZHnRdlpXpve
- f7tnAGgm1XtM+qZtqnntnJ9Mpi+9+PLZl18+8/JLr7z62sULV9o2MCngIu+bIcRu5P1rUWgR
- Is1KSQysRCgqZpIIcFDDA2iYr6yu3HjDDUeOHBGRgwc+oBQT0Xg8ttbGIFeubA6Gg9l09vbb
- b7/yyqtvX7g4mUyr2bxtXYwUDYlQjMSsSZg4KqZlYHk38q7hn5+WCb3yq72kdIgd4T8JIqL6
- FS+4dQCdwRNIZxmjiZhEkYqpaKMlP5ndi951/bxf6wz+v94bFlEUpfPc/CfyUCBNzCQkUZRW
- FImJQifQhP6XRTgJB8QUasLMQILh8yRMFHnna05cM5EHEqdSSqIopSl6oRCUDjHmisUHwXC9
- FyUmAUcosuIYWtP58rBSWsQrUlGENAURQ4q8ECsm7ohszKK9kEgkIkWkhGP4F0Ohc8xhxGYk
- lYAO7lNZnyY7YY7UjUYiipwevBtwv3r9Hxhs2YDzviVbAAAAAElFTkSuQmCC
-
-
+
rmfile ./defaultPages/StyleSheet/CieloNegro/Moon.xml
rmdir ./defaultPages/StyleSheet/CieloNegro
hunk ./defaultPages/StyleSheet/CieloNegro.xml 1
-
-
-
-/* global configuration *******************************************************/
-* {
- padding: 0;
- margin: 0;
-}
-
-/* layout *********************************************************************/
-.center {
- position: absolute;
-
- overflow: auto;
-
- top: 20px;
- right: 15em;
- left: 15em;
- bottom: 20px;
-}
-
-.left {
- top: 0em;
- width: 15em;
- left: 0;
- bottom: 0;
-}
-
-.right {
- top: 0em;
- width: 15em;
- right: 0;
- bottom: 0;
-}
-
-.header {
- position: absolute;
- height: 20px;
- left: 15em;
- right: 15em;
- top: 0;
-}
-
-.footer {
- position: absolute;
- height: 20px;
- left: 15em;
- right: 15em;
- bottom: 0;
-}
-
-.sideBar {
- position: absolute;
- overflow: auto;
-}
-
-/* spacing ********************************************************************/
-input[type="button"] {
- padding: 0px;
-}
-
-td, th {
- padding: 3px;
-}
-
-option {
- padding: 3px 3px 1px 3px;
-}
-
-.title {
- padding: 5px 20px;
-}
-
-.title p {
- margin: 0;
-}
-
-.body {
- padding: 25px 30px;
-}
-
-.body p {
- margin: 0 0 0.8em 0;
-}
-
-.sideBar p {
- margin: 0.2em 0;
-}
-
-.body h1, .body h2, .body h3, .body h4, .body h5, .body h6 {
- margin: 5px 0px;
-}
-
-.body * + h2 {
- margin-top: 20px;
-}
-
-.body ul, .body ol {
- list-style-position: inside;
- margin: 0 0 0.8em 0;
-}
-.body ul ul, .body ul ol, .body ol ul, .body ol ol {
- margin: 0;
-}
-
-.body li {
- margin: 3px 5px;
-}
-.body li li {
- margin-left: 20px;
-}
-
-.body dl {
- margin: 1em 2em;
-}
-.body dt {
- font-weight: bold;
-}
-.body dd {
- margin-left: 3em;
- margin-top: 0.1em;
-}
-.body dd + dt {
- margin-top: 0.9em;
-}
-
-.sideBar h1 {
- margin-bottom: 5px;
- padding: 0px 5px;
-}
-
-.sideBar .content {
- padding: 20px;
-}
-
-.sideBar p {
- margin-left: 5px;
-}
-
-.sideBar .outline li {
- margin-left: 1em;
- padding: 0;
-}
-
-.sideBar li {
- padding: 3px;
-}
-
-.sideBar ul, .sideBar ol {
- list-style-type: none;
- margin-top: 0.4em;
- margin-bottom: 0.4em;
-}
-
-.sideBar li + li {
- margin-top: 0.3em;
-}
-
-.sideBar * + h1 {
- margin-top: 1.2em;
-}
-
-.sideBar .date {
- padding: 0.2em 0 0 0;
-}
-
-.sideBar input[type="text"],
-.sideBar input[type="password"] {
- width: 97%;
- padding: 1px;
-}
-
-table.pageEditor {
- width: 100%;
-}
-table.pageEditor.vertical td {
- text-align: center;
-}
-.pageEditor th {
- width: 6em;
-}
-.pageEditor ul {
- list-style-type: none;
- margin: 0;
-}
-.pageEditor li {
- margin: 0;
- padding: 3px;
-}
-.pageEditor input[type="radio"] {
- margin-right: 10px;
-}
-.pageEditor input[type="checkbox"] {
- margin-right: 5px;
-}
-.pageEditor input[type="text"],
-.pageEditor input[type="password"],
-.pageEditor input[type="file"],
-.pageEditor textarea {
- width: 97%;
- padding: 3px;
-}
-.pageEditor input.smallField {
- width: 50%;
- margin-left: 1em;
-}
-.pageEditor textarea {
- height: 5em;
-}
-.pageEditor textarea.summary {
- height: 5em;
-}
-.pageEditor textarea.source {
- height: 30em;
-}
-.pageEditor textarea.hexDump {
- font-size: 70%;
- font-family: monospace;
- white-space: pre;
- height: 10em;
-}
-.pageEditor input[type="button"] {
- margin: 0 2px;
-}
-
-.searchStat {
- margin-bottom: 1.5em;
-}
-
-.searchResult {
- margin-bottom: 1.5em;
-}
-
-.pager {
- width: 20em;
-
- margin-left: auto;
- margin-right: auto;
-
- padding: 10px;
-}
-
-.pager a,
-.pager .currentSection {
- padding: 4px;
-}
-
-/* color and text *************************************************************/
-* {
- font-family: sans-serif;
-}
-
-.header, .footer {
- background-color: #0e192d;
-}
-
-.sideBar {
- background-color: black;
- color: white;
-}
-
-.body {
- line-height: 1.3;
-}
-
-.center {
- background-color: #bbbbbb;
-}
-
-h1, h2, h3, h4, h5, h6 {
- font-weight: normal;
-}
-
-hr {
- border-color: #555555;
- border-width: 1px;
- border-style: dashed;
-}
-
-th, td {
- border-color: #777777;
- border-width: 1px;
- border-style: solid;
-}
-th {
- background-color: #aaaaaa;
- font-weight: bold;
- text-align: center;
-}
-td {
- background-color: #cccccc;
-}
-
-p {
- text-indent: 1em;
-}
-
-.title {
- background-color: #0e192d;
- color: white;
-
- background-image: url("./CieloNegro/Moon");
- background-repeat: no-repeat;
- /* (175px - 20px - 136px) / 2 = 9.5px
- * where
- * 175px: height of .title
- * 20px : height of .head
- * 136px: height of ./CieloNegro/Moon
- */
- background-position: 100% 9.5px;
-
- position: relative;
- height: 165px;
-
- border-width: 0 0 10px 0;
- border-style: double;
- border-color: #bbbbbb;
-}
-
-#logo {
- width: 317px;
- height: 56px;
-
- background-image: url("./CieloNegro/Logo");
-
- margin-left: 0px;
- margin-top: 100px;
-}
-
-.body h1 {
- font-size: 200%;
-}
-.body h2 {
- font-size: 150%;
-}
-.body h3 {
- font-size: 130%;
-}
-.body h4 {
- font-size: 110%;
-}
-.body h5 {
- font-size: 90%;
-}
-.body h1, .body h2, .body h3, .body h4, .body h5 {
- background-color: #aaaaaa;
-
- border-color: #888888;
- border-width: 1px;
- border-style: solid;
-
- padding: 0 10px;
-}
-
-a {
- color: #000088;
- text-decoration: none;
-}
-a:hover {
- text-decoration: underline;
-}
-
-input[type="button"] {
- background-color: #333333;
- color: #aaaaff;
-
- border-color: #555555;
- border-width: 2px;
- border-style: solid;
-
- border-radius: 10px;
- -moz-border-radius: 10px;
-}
-input[type="button"]:active {
- background-color: black;
-}
-input[type="button"][disabled] {
- border-color: #444444;
- color: #888888;
-}
-input[type="button"][disabled]:active {
- background-color: #444444;
-}
-
-.sideBar h1 {
- font-size: 120%;
-}
-.sideBar h1, .sideBar h2, .sideBar h3, .sideBar h4, .sideBar h5 {
- font-weight: normal;
-
- color: #aaaaaa;
- background-color: #222222;
-
- border-color: #111111 #333333 #333333 #111111;
- border-width: 1px;
- border-style: solid;
-}
-
-.sideBar a {
- color: #4e8eff;
-}
-
-.sideBar a:visited {
- color: #3f73d0;
-}
-
-.sideBar .date {
- font-size: 70%;
- white-space: nowrap;
- color: #999999;
-}
-
-.searchResult .date {
- font-size: 70%;
- white-space: nowrap;
- color: #555555;
-}
-
-.sideBar p {
- text-indent: 0;
-}
-
-.sideBar .recentUpdates p,
-.sideBar .trackbacks p {
- font-size: 90%;
-}
-
-.sideBar .outline li {
- list-style-type: disc;
- background-color: inherit;
-}
-.sideBar .outline li li {
- list-style-type: circle;
-}
-.sideBar .outline li li li {
- list-style-type: square;
-}
-.sideBar .outline li li li li {
- list-style-type: disc;
-}
-.sideBar .outline li li li li li {
- list-style-type: circle;
-}
-
-.sideBar li {
- padding: 3px 5px;
- background-color: #0e192d;
-
- border-radius: 10px;
- -moz-border-radius: 10px;
-}
-
-.sideBar input[type="text"],
-.sideBar input[type="password"] {
- background-color: #333333;
-
- border-style: inset;
- border-width: 1px;
- border-color: #333333;
-}
-
-.activeField {
- color: white;
-}
-
-.inactiveField {
- color: #aaaaaa;
-}
-
-.pageEditor input[type="text"],
-.pageEditor input[type="password"],
-.pageEditor input[type="file"],
-.pageEditor textarea {
- border-color: #aaaaaa #eeeeee #eeeeee #aaaaaa;
- border-width: 2px;
- border-style: solid;
-
- background-color: #dddddd;
-}
-
-.searchStat {
- color: #444444;
- font-size: 90%;
-}
-
-.searchResult a {
- font-size: 120%;
-}
-.searchResult {
- border-style: dotted;
- border-width: 1px 0 0 0;
- border-color: #444444;
-}
-
-.highlighted {
- background-color: #ffefd5;
-}
-
-.pager {
- text-align: center;
-
- background-color: #b0b0b0;
-
- border-color: #888888;
- border-width: 1px;
- border-style: dotted;
-}
-.pager .currentSection,
-.pager a {
- border-style: solid;
- border-width: 1px;
-}
-.pager .currentSection {
- background-color: #bbbbbb;
- border-color: #888888 #bbbbbb #bbbbbb #888888;
-}
-.pager a {
- background-color: #aaaaaa;
- border-color: #bbbbbb #999999 #999999 #bbbbbb;
-}
-
-/* float **********************************************************************/
-h1, h2, h3, h4, h5, h6 {
- clear: both;
-}
-
-/* image **********************************************************************/
-img {
- border-width: 0;
-}
-
-.inlineImage {
- margin-top: 5px;
- margin-bottom: 5px;
-}
-
-.leftFloat {
- float: left;
- margin-right: 25px;
-}
-
-.rightFloat {
- float: right;
- margin-left: 25px;
-}
-
-.imageFrame {
- background-color: #999999;
- padding: 5px;
-
- border-color: #888888;
- border-width: 1px;
- border-style: solid;
-
- margin-top: 5px;
- margin-bottom: 10px;
-}
-
-.imageFrame p {
- margin: 0;
-}
-
-.imageData {
- text-align: center;
-}
-
-.imageCaption {
- margin-top: 3px;
-}
-
-.sideBar .imageFrame {
- background-color: #222222;
-}
-
-/* error **********************************************************************/
-.error {
- color: red;
- background-color: white;
-
- font-weight: bold;
-
- border-color: #880000;
- border-width: 3px;
- border-style: double;
-
- padding: 10px;
-}
-
-.error p, .error pre {
- margin: 0;
-}
-
-.error:before {
- content: "Error: "
-}
-
-/* sidebar mask ***************************************************************/
-.sideBarMask {
- position: fixed;
-
- background-color: black;
- color: white;
- opacity: 0.7;
-
- z-index: 1;
-}
-
-.sideBarMask .content {
- padding: 40px 0;
-}
-
-.sideBarMask .content input[type="button"] {
- font-size: 120%;
- font-weight: bold;
-
- background-color: #f5f5f5;
- color: #000055;
-
- border-color: #dddddd;
- border-width: 2px;
- border-style: solid;
-
- border-radius: 10px;
- -moz-border-radius: 10px;
-}
-
-/* waiting message ************************************************************/
-.waitingMessageBoard {
- position: fixed;
- left: 0;
- top: 0;
- right: 0;
- bottom: 0;
-
- z-index: 1;
-}
-
-.waitingMessageBoard p {
- font-size: 200%;
-
- background-color: white;
- color: black;
- opacity: 0.7;
-
- position: fixed;
- bottom: 1em;
- right: 1em;
-
- text-indent: 0;
- padding: 5px 30px;
-}
-
-/* redirection message ********************************************************/
-.redirection {
- margin: 5px;
- padding: 2px;
-
- font-size: 80%;
-
- background-color: #a6a6a6;
- color: #333333;
-
- border-color: #777777;
- border-width: 1px;
- border-style: dotted
-}
-
-.redirection input[type="button"] {
- color: inherit;
- background-color: #a0a0a0;
-
- border-width: 1px;
-
- border-radius: 5px;
- -moz-border-radius: 5px;
-
- margin-left: 0.8em;
-}
-
-.redirection input[type="button"]:active {
- background-color: #888888;
-}
-
-/* preview ********************************************************************/
-.preview {
- background-color: #b5b5b5;
-
- margin: 0 0 20px 0;
- padding: 10px;
-
- border-style: solid;
- border-width: 1px;
- border-color: #888888;
-}
-
-
rmfile ./defaultPages/StyleSheet/CieloNegro.xml
hunk ./defaultPages/StyleSheet/Default.xml 1
-
-
-
-/* global configuration *******************************************************/
-* {
- padding: 0;
- margin: 0;
-}
-
-/* layout *********************************************************************/
-.center {
- position: absolute;
-
- overflow: auto;
-
- top: 20px;
- right: 15em;
- left: 15em;
- bottom: 20px;
-}
-
-.left {
- top: 0em;
- width: 15em;
- left: 0;
- bottom: 0;
-}
-
-.right {
- top: 0em;
- width: 15em;
- right: 0;
- bottom: 0;
-}
-
-.header {
- position: absolute;
- height: 20px;
- left: 15em;
- right: 15em;
- top: 0;
-}
-
-.footer {
- position: absolute;
- height: 20px;
- left: 15em;
- right: 15em;
- bottom: 0;
-}
-
-.sideBar {
- position: absolute;
- overflow: auto;
-}
-
-/* spacing ********************************************************************/
-input[type="button"] {
- padding: 0px;
-}
-
-td, th {
- padding: 3px;
-}
-
-option {
- padding: 3px 3px 1px 3px;
-}
-
-.title {
- padding: 5px 20px;
-}
-
-.title p {
- margin: 0;
-}
-
-.body {
- padding: 25px 30px;
-}
-
-.body p {
- margin: 0 0 0.8em 0;
-}
-
-.sideBar p {
- margin: 0.2em 0;
-}
-
-.body h1, .body h2, .body h3, .body h4, .body h5, .body h6 {
- margin: 5px 0px;
-}
-
-.body * + h2 {
- margin-top: 20px;
-}
-
-.body ul, .body ol {
- list-style-position: inside;
- margin: 0 0 0.8em 0;
-}
-.body ul ul, .body ul ol, .body ol ul, .body ol ol {
- margin: 0;
-}
-
-.body li {
- margin: 3px 5px;
-}
-.body li li {
- margin-left: 20px;
-}
-
-.body dl {
- margin: 1em 2em;
-}
-.body dt {
- font-weight: bold;
-}
-.body dd {
- margin-left: 3em;
- margin-top: 0.1em;
-}
-.body dd + dt {
- margin-top: 0.9em;
-}
-
-.sideBar h1 {
- margin-bottom: 5px;
- padding: 0px 5px;
-}
-
-.sideBar .content {
- padding: 20px;
-}
-
-.sideBar p {
- margin-left: 5px;
-}
-
-.sideBar .outline li {
- margin-left: 1em;
- padding: 0;
-}
-
-.sideBar li {
- padding: 3px;
-}
-
-.sideBar ul, .sideBar ol {
- list-style-type: none;
- margin-top: 0.4em;
- margin-bottom: 0.4em;
-}
-
-.sideBar li + li {
- margin-top: 0.3em;
-}
-
-.sideBar * + h1 {
- margin-top: 1.2em;
-}
-
-.sideBar .date {
- padding: 0.2em 0 0 0;
-}
-
-.sideBar input[type="text"],
-.sideBar input[type="password"] {
- width: 97%;
- padding: 1px;
-}
-
-table.configPanel {
- width: 100%;
-}
-
-table.pageEditor {
- width: 100%;
-}
-table.pageEditor.vertical td {
- text-align: center;
-}
-.pageEditor th {
- width: 6em;
-}
-.pageEditor ul {
- list-style-type: none;
- margin: 0;
-}
-.pageEditor li {
- margin: 0;
- padding: 3px;
-}
-.pageEditor input[type="radio"] {
- margin-right: 10px;
-}
-.pageEditor input[type="checkbox"] {
- margin-right: 5px;
-}
-.pageEditor input[type="text"],
-.pageEditor input[type="password"],
-.pageEditor input[type="file"],
-.pageEditor textarea {
- width: 97%;
- padding: 3px;
-}
-.pageEditor input.smallField {
- width: 50%;
- margin-left: 1em;
-}
-.pageEditor textarea {
- height: 5em;
-}
-.pageEditor textarea.summary {
- height: 5em;
-}
-.pageEditor textarea.source {
- height: 30em;
-}
-.pageEditor textarea.hexDump {
- font-size: 70%;
- font-family: monospace;
- white-space: pre;
- height: 10em;
-}
-.pageEditor input[type="button"] {
- margin: 0 2px;
-}
-
-.searchStat {
- margin-bottom: 1.5em;
-}
-
-.searchResult {
- margin-bottom: 1.5em;
-}
-
-.pager {
- width: 20em;
-
- margin-left: auto;
- margin-right: auto;
-
- padding: 10px;
-}
-
-.pager a,
-.pager .currentSection {
- padding: 4px;
-}
-
-/* color and text *************************************************************/
-* {
- font-family: sans-serif;
-}
-
-body {
- background-color: white;
- color: black;
-}
-
-.body {
- line-height: 1.3;
-}
-
-h1, h2, h3, h4, h5, h6 {
- font-weight: normal;
-}
-
-hr {
- border-color: #bbbbbb;
- border-width: 1px;
- border-style: dashed;
-}
-
-th, td {
- border-color: #dddddd;
- border-width: 1px;
- border-style: solid;
-}
-th {
- background-color: #eeeeee;
- font-weight: bold;
- text-align: center;
-}
-td {
- background-color: #fafafa;
-}
-
-p {
- text-indent: 1em;
-}
-
-.title {
- background-color: #fafafa;
-
- border-color: #cccccc;
- border-width: 0 0 1px 0;
- border-style: solid;
-
- font-size: 1.2em;
-}
-
-.body h1 {
- font-size: 200%;
-}
-.body h2 {
- font-size: 150%;
-}
-.body h3 {
- font-size: 130%;
-}
-.body h4 {
- font-size: 110%;
-}
-.body h5 {
- font-size: 90%;
-}
-.body h1, .body h2, .body h3, .body h4, .body h5 {
- background-color: #fafafa;
-
- border-color: #dddddd;
- border-width: 1px;
- border-style: solid;
-
- padding: 0 10px;
-}
-
-a {
- color: #008800;
- text-decoration: none;
-}
-a:hover {
- text-decoration: underline;
-}
-
-input[type="button"] {
- background-color: #f5f5f5;
- color: #000055;
-
- border-color: #dddddd;
- border-width: 2px;
- border-style: solid;
-
- border-radius: 10px;
- -moz-border-radius: 10px;
-}
-input[type="button"]:active {
- background-color: #999999;
-}
-input[type="button"][disabled] {
- border-color: #e5e5e5;
- color: #b5b5b5;
-}
-input[type="button"][disabled]:active {
- background-color: #f5f5f5;
-}
-
-.header, .footer, .sideBar {
- background-color: #eeeeee;
-}
-
-.sideBar h1 {
- font-size: 120%;
-}
-.sideBar h1, .sideBar h2, .sideBar h3, .sideBar h4, .sideBar h5 {
- font-weight: normal;
-
- color: #555555;
- background-color: #fafafa;
-
- border-color: #dddddd white white #dddddd;
- border-width: 1px;
- border-style: solid;
-}
-
-.sideBar .date {
- font-size: 70%;
- white-space: nowrap;
- color: #666666;
-}
-
-.searchResult .date {
- font-size: 70%;
- white-space: nowrap;
- color: #666666;
-}
-
-.sideBar p {
- text-indent: 0;
-}
-
-.sideBar .recentUpdates p,
-.sideBar .trackbacks p {
- font-size: 90%;
-}
-
-.sideBar .outline li {
- list-style-type: disc;
- background-color: inherit;
-}
-.sideBar .outline li li {
- list-style-type: circle;
-}
-.sideBar .outline li li li {
- list-style-type: square;
-}
-.sideBar .outline li li li li {
- list-style-type: disc;
-}
-.sideBar .outline li li li li li {
- list-style-type: circle;
-}
-
-.sideBar li {
- padding: 3px 5px;
- background-color: #f5f5f5;
-
- border-radius: 10px;
- -moz-border-radius: 10px;
-}
-
-.sideBar .recentUpdates li, .sideBar .trackbacks li {
- background-color: #e0e0e0;
-}
-
-.sideBar input[type="text"],
-.sideBar input[type="password"] {
- background-color: #dddddd;
-
- border-style: inset;
- border-width: 1px;
- border-color: #dddddd;
-}
-
-.activeField {
- color: black;
-}
-
-.inactiveField {
- color: #888888;
-}
-
-.pageEditor input[type="text"],
-.pageEditor input[type="password"],
-.pageEditor input[type="file"],
-.pageEditor textarea {
- border-color: #dddddd #fafafa #fafafa #dddddd;
- border-width: 2px;
- border-style: solid;
-
- background-color: white;
-}
-
-.searchStat {
- color: #888888;
- font-size: 90%;
-}
-
-.searchResult a {
- font-size: 120%;
-}
-.searchResult {
- border-style: dotted;
- border-width: 1px 0 0 0;
- border-color: #aaaaaa;
-}
-
-.highlighted {
- background-color: #ffefd5;
-}
-
-.pager {
- text-align: center;
-
- background-color: #f5f5f5;
-
- border-color: #cccccc;
- border-width: 1px;
- border-style: dotted;
-}
-.pager .currentSection,
-.pager a {
- border-style: solid;
- border-width: 1px;
-}
-.pager .currentSection {
- background-color: white;
- border-color: #cccccc white white #cccccc;
-}
-.pager a {
- background-color: #e8e8e8;
- border-color: white #cccccc #cccccc white;
-}
-
-/* float **********************************************************************/
-h1, h2, h3, h4, h5, h6 {
- clear: both;
-}
-
-/* image **********************************************************************/
-img {
- border-width: 0;
-}
-
-.inlineImage {
- margin-top: 5px;
- margin-bottom: 5px;
-}
-
-.leftFloat {
- float: left;
- margin-right: 25px;
-}
-
-.rightFloat {
- float: right;
- margin-left: 25px;
-}
-
-.imageFrame {
- background-color: #eeeeee;
- padding: 5px;
-
- border-color: #cccccc;
- border-width: 1px;
- border-style: solid;
-
- margin-top: 5px;
- margin-bottom: 10px;
-}
-
-.imageFrame p {
- margin: 0;
-}
-
-.imageData {
- text-align: center;
-}
-
-.imageCaption {
- margin-top: 3px;
-}
-
-/* error **********************************************************************/
-.error {
- color: red;
- background-color: white;
-
- font-weight: bold;
-
- border-color: #880000;
- border-width: 3px;
- border-style: double;
-
- padding: 10px;
-}
-
-.error p, .error pre {
- margin: 0;
-}
-
-.error:before {
- content: "Error: "
-}
-
-/* sidebar mask ***************************************************************/
-.sideBarMask {
- position: fixed;
-
- background-color: black;
- color: white;
- opacity: 0.7;
-
- z-index: 1;
-}
-
-.sideBarMask .content {
- padding: 40px 0;
-}
-
-.sideBarMask .content input[type="button"] {
- font-size: 120%;
- font-weight: bold;
-}
-
-/* waiting message ************************************************************/
-.waitingMessageBoard {
- position: fixed;
- left: 0;
- top: 0;
- right: 0;
- bottom: 0;
-
- margin: 0;
- padding: 0;
-
- z-index: 1;
-}
-
-.waitingMessageBoard p {
- font-size: 200%;
-
- background-color: black;
- color: white;
- opacity: 0.7;
-
- position: fixed;
- bottom: 1em;
- right: 1em;
-
- text-indent: 0;
- padding: 5px 30px;
-}
-
-/* redirection message ********************************************************/
-.redirection {
- margin: 5px;
- padding: 2px;
-
- font-size: 80%;
-
- background-color: #fafafa;
- color: #888888;
-
- border-color: #eeeeee;
- border-width: 1px;
- border-style: dotted
-}
-
-.redirection input[type="button"] {
- color: inherit;
- background-color: #fcfcfc;
-
- border-width: 1px;
-
- border-radius: 5px;
- -moz-border-radius: 5px;
-
- margin-left: 0.8em;
-}
-
-.redirection input[type="button"]:active {
- background-color: #eeeeee;
-}
-
-/* preview ********************************************************************/
-.preview {
- background-color: #eeeeee;
-
- margin: 0 0 20px 0;
- padding: 10px;
-
- border-style: solid;
- border-width: 1px;
- border-color: #bbbbbb;
-}
-
-
rmfile ./defaultPages/StyleSheet/Default.xml
rmdir ./defaultPages/StyleSheet
rmdir ./defaultPages
hunk ./js/Makefile 1
-JQUERY_SOURCE = jquery-1.2.6.js
-COMPRESSOR = yuicompressor-2.3.5.jar
-
-SOURCES = \
- $(JQUERY_SOURCE) \
- jquery-dom.js \
- base.js \
- base64.js \
- editPage.js \
- hashedParam.js \
- hexDump.js \
- localFile.js \
- login.js \
- redirection.js \
- parseuri.js \
- screen.js \
- search.js \
- systemConfig.js \
- uri.js \
- $(NULL)
-
-COMPRESS = java -jar $(COMPRESSOR) --type js --charset UTF-8
-
-
-build: ../Rakka/Resource/JavaScript.hs
-
-
-packed.js: $(SOURCES) $(COMPRESSOR)
- cat $(SOURCES) > $@
-# cat $(SOURCES) | $(COMPRESS) -o $@
-
-
-../Rakka/Resource/JavaScript.hs: packed.js
- lucu-implant-file -o $@ -m Rakka.Resource.JavaScript -t text/javascript packed.js
-
-
-clean:
- rm -f ../Rakka/Resource/JavaScript.hs packed.js $(JQUERY_PACKED)
-
-
-$(COMPRESSOR):
- @echo "Error: $(COMPRESSOR) has to be placed on this directory."
- @echo " See http://www.julienlecomte.net/yuicompressor/"
- @exit 1
rmfile ./js/Makefile
hunk ./js/base.js 1
-/* Namespace Rakka */
-var Rakka = {};
-
-/* These are constants that may be overwritten by HTML itself. */
-Rakka.baseURI = null;
-Rakka.isLocked = false;
-Rakka.isGlobalLocked = false;
-Rakka.isSpecialPage = false;
-
-/* Common regular expressions */
-Rakka.rePageName = /^[^ a-z.|#\[\]][^ .|#\[\]]*$/;
rmfile ./js/base.js
hunk ./js/base64.js 1
-(function () {
-
- var encTable = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
-
- var decTable = new Array(
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 62, -1, -1, -1, 63,
- 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, -1, -1, -1, -1, -1, -1,
- -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -1, -1, -1, -1, -1,
- -1, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
- 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, -1, -1, -1, -1);
-
- Rakka.encodeBase64 = function (src) {
- var len = src.length;
- var i = 0;
- var ret = "";
-
- while (i < len) {
- var c1 = src.charCodeAt(i++);
-
- if (i == len) {
- ret += encTable.charAt(c1 >> 2);
- ret += encTable.charAt((c1 & 0x03) << 4);
- ret += "==";
- }
- else {
- var c2 = src.charCodeAt(i++);
-
- if (i == len) {
- ret += encTable.charAt(c1 >> 2);
- ret += encTable.charAt(((c1 & 0x03) << 4) | ((c2 & 0xF0) >> 4));
- ret += encTable.charAt((c2 & 0x0F) << 2);
- ret += "=";
- }
- else {
- var c3 = src.charCodeAt(i++);
-
- ret += encTable.charAt(c1 >> 2);
- ret += encTable.charAt(((c1 & 0x03) << 4) | ((c2 & 0xF0) >> 4));
- ret += encTable.charAt(((c2 & 0x0F) << 2) | ((c3 & 0xC0) >> 6));
- ret += encTable.charAt(c3 & 0x3F);
- }
- }
- }
-
- return ret;
- };
-
- Rakka.decodeBase64 = function (src) {
- var len = src.length;
- var i = 0;
- var ret = "";
-
- while (i < len) {
- var c1;
- do {
- c1 = decTable[src.charCodeAt(i++)];
- } while (i < len && c1 == -1);
-
- if (c1 != -1) {
- var c2;
- do {
- c2 = decTable[src.charCodeAt(i++)];
- } while (i < len && c2 == -1);
-
- if (c2 != -1) {
-
- ret += String.fromCharCode((c1 << 2) | ((c2 & 0x30) >> 4));
-
- var c3;
- do {
- c3 = src.charCodeAt(i++);
- if (c3 == 61) {
- return ret;
- }
- c3 = decTable[c3];
- } while (i < len && c3 == -1);
-
- if (c3 != -1) {
- ret += String.fromCharCode(((c2 & 0x0F) << 4) | ((c3 & 0x3C) >> 2));
-
- var c4;
- do {
- c4 = src.charCodeAt(i++);
- if (c4 == 61) {
- return ret;
- }
- c4 = decTable[c4];
- } while (i < len && c4 == -1);
-
- if (c4 != -1) {
- ret += String.fromCharCode(((c3 & 0x03) << 6) | c4);
- }
- }
- }
- }
- }
-
- return ret;
- };
-
-})();
+
rmfile ./js/base64.js
hunk ./js/editPage.js 1
-(function () {
-
- var $previewHeader = null;
- var $previewArea = null;
-
- Rakka.editPage = function (pageName) {
- var $area = Rakka.switchScreen();
-
- Rakka.displayWaitingMessage("Loading... please wait.");
-
- // XML 版のページを取得する。
- $.ajax({
- url : Rakka.baseURI + pageName + ".xml",
- success: function (pageXml) {
- Rakka.hideWaitingMessage();
-
- if (pageXml.documentElement.tagName == "page") {
- var $page = $(pageXml).find("page");
- var oldRevision = $page.attr("revision");
- var defaultType
- = $page.attr("isBinary") == "yes" ? "binary"
- : $page.attr("type") == "text/x-rakka" ? "rakka"
- : $page.attr("type") == "text/css" ? "css"
- : $page.attr("type") == "text/javascript" ? "js"
- : $page.attr("redirect") != null ? "redirect"
- : "unknown"
- ;
- var lang = $page.attr("lang");
- var isLocked = $page.attr("isLocked") == "yes";
- var otherLangs = (function () {
- var obj = {};
- $page.find("otherLang > link").each(function () {
- obj[this.getAttribute("lang")] = this.getAttribute("page");
- });
- return obj;
- })();
- var source
- = $page.attr("redirect") != null ? $page.attr("redirect")
- : $page.attr("isBinary") == "yes" ? Rakka.decodeBase64($page.find("binaryData").text())
- : $page.find("textData").text()
- ;
- var summary = $page.find("summary").text();
-
- displayPageEditor(pageName, oldRevision, defaultType, lang, isLocked, otherLangs, source, summary);
- }
- else {
- displayPageEditor(pageName, null, "rakka", null, false, {}, null, "");
- }
- },
- error : function (req) {
- Rakka.hideWaitingMessage();
-
- if (req.status == 404) {
- displayPageEditor(pageName, null, "rakka", null, false, {}, null, "");
- }
- else {
- $area.text("Error: " + req.status + " " + req.statusText);
- }
- }
- });
- };
-
- Rakka.newPage = function () {
- displayPageEditor("", null, "rakka", null, false, {}, null, "");
- };
-
- var displayPageEditor = function (pageName, oldRevision, defaultType, lang, isLocked, otherLangs, source, summary) {
- var $area = Rakka.switchScreen();
-
- $previewHeader = $( $.H1({}, "Preview") );
- $area.append($previewHeader);
- $previewHeader.hide();
-
- $previewArea = $( $.DIV({className: "preview"}) );
- $area.append($previewArea);
- $previewArea.hide();
-
- $area.append($.H1({}, pageName == "" ? "Create page" : "Edit page"));
-
- var isDirty = null;
- var makeDirty = function () {
- isDirty = true;
- };
-
- var fldPageName
- = $.INPUT({type : "text", value: pageName});
-
- $(fldPageName).change(makeDirty);
-
- var chkIsLocked
- = $.INPUT({type : "checkbox",
- checked : (isLocked ? "checked" : "")});
-
- $(chkIsLocked).change(makeDirty);
-
- var trIsLocked
- = $.TR({},
- $.TH({}, "Page lock"),
- $.TD({},
- $.LABEL({},
- chkIsLocked,
- "Disallow anonymous users to edit or delete this page")));
-
- var btnTypeRakka
- = $.INPUT({type : "radio",
- name : "type",
- checked: (defaultType == "rakka" ? "checked" : "")});
-
- $(btnTypeRakka).change(makeDirty);
-
- var btnTypeCSS
- = $.INPUT({type : "radio",
- name : "type",
- checked: (defaultType == "css" ? "checked" : "")});
-
- $(btnTypeCSS).change(makeDirty);
-
- var btnTypeJS
- = $.INPUT({type : "radio",
- name : "type",
- checked: (defaultType == "js" ? "checked" : "")});
- $(btnTypeJS).change(makeDirty);
-
- var btnTypeBinary
- = $.INPUT({type : "radio",
- name : "type",
- checked: (defaultType == "binary" ? "checked" : "")});
-
- $(btnTypeBinary).change(makeDirty);
-
- var btnTypeRedirect
- = $.INPUT({type : "radio",
- name : "type",
- checked: (defaultType == "redirect" ? "checked" : "")});
-
- $(btnTypeRedirect).change(makeDirty);
-
- var selPageLang
- = $.SELECT({},
- $.OPTION({value: ""}, "(unspecified)"),
- (function () {
- var options = [];
-
- $.each(Rakka.getSystemConfig().languages, function (tag, name) {
- options.push(
- $.OPTION({value: tag}, name));
- });
-
- return options;
- })());
-
- $(selPageLang).change(makeDirty);
-
- if (lang == null || lang == "") {
- $(selPageLang).val($("html").attr("xml:lang"));
- }
- else {
- $(selPageLang).val(lang);
- }
-
- var trPageLang
- = $.TR({},
- $.TH({}, "Page language"),
- $.TD({}, selPageLang));
-
- var trOtherLangs = (function () {
- var options = [];
-
- $.each(Rakka.getSystemConfig().languages, function (tag, name) {
- options.push(
- $.OPTION({value: tag}, name));
- });
-
- var selLang = $.SELECT({}, options);
- var fldLink = $.INPUT({type: "text", className: "smallField"});
-
- $(selLang).change(function () {
- var pageName = otherLangs[$(selLang).val()];
- $(fldLink).val(
- pageName == null ? "" : pageName
- );
- }).trigger("change");
-
- var onLinkChanged = function () {
- isDirty = true;
-
- var lang = $(selLang).val();
- var pageName = $(this).val();
-
- if (pageName == "") {
- delete otherLangs[lang];
- }
- else {
- otherLangs[lang] = pageName;
- }
- };
- $(fldLink).change(onLinkChanged).keyup(onLinkChanged);
-
- return $.TR({},
- $.TH({}, "Language links"),
- $.TD({}, selLang, fldLink));
- })();
-
- var fldSummary
- = $.TEXTAREA({className: "summary"}, summary);
-
- $(fldSummary).change(makeDirty);
-
- var trSummary
- = $.TR({},
- $.TH({}, "Summary"),
- $.TD({}, fldSummary));
-
- var fldRakkaSource
- = $.TEXTAREA({className: "source"},
- (defaultType == "rakka" && source != null ? source : ""));
-
- $(fldRakkaSource).change(makeDirty);
-
- var fldCSSSource
- = $.TEXTAREA({className: "source"},
- (defaultType == "css" && source != null ? source : ""));
-
- $(fldCSSSource).change(makeDirty);
-
- var fldJSSource
- = $.TEXTAREA({className: "source"},
- (defaultType == "js" && source != null ? source : ""));
-
- $(fldJSSource).change(makeDirty);
-
- var uploadFileBin
- = (defaultType == "binary" && source != null ? source : "");
- var fldUploadFile
- = $.TEXTAREA({className: "hexDump", disabled: true}, Rakka.hexDump(uploadFileBin, 128));
- var btnSelectFile
- = $.INPUT({type: "button", value: "Select file..."});
-
- $(btnSelectFile).click(function () {
- var path = Rakka.selectFile("Select a binary file to upload", "open");
- if (path != null) {
- uploadFileBin = Rakka.loadLocalBinaryFile(path);
- fldUploadFile.value = Rakka.hexDump(uploadFileBin, 128);
- makeDirty();
- }
- });
-
- var fldRedirect
- = $.INPUT({type: "text", value: (defaultType == "redirect" ? source : "")});
-
- $(fldRedirect).change(makeDirty);
-
- var trContent
- = $.TR({},
- $.TH({}),
- $.TD({})
- );
-
- var btnPreview
- = $.INPUT({type: "button", value: "Preview page"});
-
- $(btnPreview).click(function () {
- if (btnTypeRakka.checked) {
- previewRakkaPage(
- fldPageName.value, fldRakkaSource.value);
- }
- else if (btnTypeBinary.checked) {
- if (uploadFileBin != "") {
- previewBinaryPage(
- fldPageName.value, uploadFileBin);
- }
- }
- });
-
- var btnSubmit
- = $.INPUT({type: "button", value: "Submit page"});
-
- $(btnSubmit).click(function () {
- if (btnTypeRakka.checked) {
- submitTextPage(
- pageName,
- oldRevision,
- fldPageName.value,
- chkIsLocked.checked,
- "text/x-rakka",
- $(selPageLang).val(),
- otherLangs,
- fldSummary.value,
- fldRakkaSource.value);
- }
- else if (btnTypeCSS.checked) {
- submitTextPage(
- pageName,
- oldRevision,
- fldPageName.value,
- chkIsLocked.checked,
- "text/css",
- $(selPageLang).val(),
- otherLangs,
- fldSummary.value,
- fldCSSSource.value);
- }
- else if (btnTypeJS.checked) {
- submitTextPage(
- pageName,
- oldRevision,
- fldPageName.value,
- chkIsLocked.checked,
- "text/javascript",
- $(selPageLang).val(),
- otherLangs,
- fldSummary.value,
- fldJSSource.value);
- }
- else if (btnTypeBinary.checked) {
- if (fldUploadFile.value != "") {
- submitBinaryPage(
- pageName,
- oldRevision,
- fldPageName.value,
- chkIsLocked.checked,
- $(selPageLang).val(),
- otherLangs,
- fldSummary.value,
- uploadFileBin);
- }
- }
- else if (btnTypeRedirect.checked) {
- submitRedirection(
- pageName,
- oldRevision,
- fldPageName.value,
- chkIsLocked.checked,
- fldRedirect.value);
- }
- });
-
- var btnDelete
- = $.INPUT({type: "button", value: "Delete this page"});
-
- $(btnDelete).click(function () {
- if (window.confirm("Do you really want to delete this page?")) {
- deletePage(pageName);
- }
- });
-
- var updateTRContent = function () {
- if (btnTypeRakka.checked) {
- $(trPageLang).show();
- $(trOtherLangs).show();
- $(trSummary).show();
- $(trContent).find("th").text("Wiki source");
- $(trContent).find("td").empty().append(fldRakkaSource);
- $(btnPreview).show();
- }
- else if (btnTypeCSS.checked) {
- $(trPageLang).show();
- $(trOtherLangs).show();
- $(trSummary).show();
- $(trContent).find("th").text("CSS source");
- $(trContent).find("td").empty().append(fldCSSSource);
- $(btnPreview).hide();
- }
- else if (btnTypeJS.checked) {
- $(trPageLang).show();
- $(trOtherLangs).show();
- $(trSummary).show();
- $(trContent).find("th").text("JavaScript source");
- $(trContent).find("td").empty().append(fldJSSource);
- $(btnPreview).hide();
- }
- else if (btnTypeBinary.checked) {
- $(trPageLang).show();
- $(trOtherLangs).show();
- $(trSummary).show();
- $(trContent).find("th").text("File");
- $(trContent).find("td").empty().append(fldUploadFile).append(btnSelectFile);
- $(btnPreview).show();
- }
- else if (btnTypeRedirect.checked) {
- $(trPageLang).hide();
- $(trOtherLangs).hide();
- $(trSummary).hide();
- $(trContent).find("th").text("Destination Page");
- $(trContent).find("td").empty().append(fldRedirect);
- $(btnPreview).hide();
- }
- };
- $(btnTypeRakka ).change(updateTRContent);
- $(btnTypeCSS ).change(updateTRContent);
- $(btnTypeJS ).change(updateTRContent);
- $(btnTypeBinary ).change(updateTRContent);
- $(btnTypeRedirect).change(updateTRContent);
- updateTRContent();
-
- var pageEditor
- = $.TABLE({className: "pageEditor"},
- $.TBODY({},
- $.TR({},
- $.TH({}, "Page name"),
- $.TD({}, fldPageName)
- ),
- trIsLocked,
- $.TR({},
- $.TH({}, "Page type"),
- $.TD({},
- $.UL({},
- $.LI({},
- $.LABEL({},
- btnTypeRakka,
- "Wiki page"
- )
- ),
- $.LI({},
- $.LABEL({},
- btnTypeCSS,
- "Style sheet"
- )
- ),
- $.LI({},
- $.LABEL({},
- btnTypeJS,
- "JavaScript"
- )
- ),
- $.LI({},
- $.LABEL({},
- btnTypeBinary,
- "Binary file"
- )
- ),
- $.LI({},
- $.LABEL({},
- btnTypeRedirect,
- "Redirection"
- )
- )
- )
- )
- ),
- trPageLang,
- trOtherLangs,
- trSummary,
- trContent,
- $.TR({},
- $.TH({}),
- $.TD({}, btnPreview, btnSubmit, btnDelete)
- )
- )
- );
-
- var validate = function () {
- var isValid = (function () {
- if (fldPageName.value.match(Rakka.rePageName) == null) {
- return false;
- }
-
- if (btnTypeRedirect.checked) {
- if (fldRedirect.value.match(Rakka.rePageName) == null) {
- return false;
- }
- }
- else {
- for (var tag in otherLangs) {
- if (otherLangs[tag].match(Rakka.rePageName) == null) {
- return false;
- }
- }
-
- if (btnTypeBinary.checked) {
- if (uploadFileBin == "") {
- return false;
- }
- }
- }
-
- return true;
- })();
-
- $(btnSubmit).attr({disabled: (isValid ? "" : "disabled")});
- };
- $(fldPageName)
- .add(btnTypeRakka)
- .add(btnTypeCSS)
- .add(btnTypeJS)
- .add(btnTypeBinary)
- .add(btnTypeRedirect)
- .add($(trOtherLangs).find("input"))
- .add(fldUploadFile)
- .add(fldRedirect)
- .change(validate)
- .keyup(validate);
- $(btnSelectFile).click(validate);
- validate();
-
- if (oldRevision == null || oldRevision == 0) {
- // 削除不可
- $(btnDelete).hide();
- }
-
- $area.append(pageEditor);
-
- if (!Rakka.isLoggedIn() || Rakka.isGlobalLocked) {
- $(trIsLocked).hide();
- }
- };
-
- var previewRakkaPage = function (pageName, source) {
- Rakka.displayWaitingMessage("Loading... please wait.");
-
- var url = Rakka.baseURI + "render/" + encodeURI(pageName);
- $.ajax({
- type : "POST",
- url : url,
- contentType: "text/x-rakka",
- data : source,
- processData: false,
- success : function (resultDoc) {
- Rakka.hideWaitingMessage();
- showPreview(resultDoc);
- },
- error : function (req) {
- Rakka.hideWaitingMessage();
- alert("Error: " + req.status + " " + req.statusText);
- }
- });
- };
-
- var previewBinaryPage = function (pageName, data) {
- Rakka.displayWaitingMessage("Loading... please wait.");
-
- /* Firefox でバイナリを送らうとすると 0x00 の位置で切れてしまふ。*/
- var url = Rakka.baseURI + "render/" + encodeURI(pageName);
- $.ajax({
- type : "POST",
- url : url,
- contentType: "application/x-rakka-base64-stream",
- data : Rakka.encodeBase64(data),
- processData: false,
- success : function (resultDoc) {
- Rakka.hideWaitingMessage();
- showPreview(resultDoc);
- },
- error : function (req) {
- Rakka.hideWaitingMessage();
- alert("Error: " + req.status + " " + req.statusText);
- }
- });
- };
-
- var showPreview = function (doc) {
- $previewArea.empty();
-
- $previewHeader.show();
- $previewArea.show();
-
- var root = doc.documentElement;
- var child = root.firstChild;
- do {
- if (child.nodeType == 1) {
- // 要素だったので複製
- $previewArea.append(child.cloneNode(true));
- }
- } while (child = child.nextSibling);
-
- Rakka.scrollToTopLeft();
- };
-
- var submitTextPage
- = function (pageName, oldRevision, givenPageName, isLocked, mimeType, lang, otherLangs, summary, text) {
- var NS = "http://cielonegro.org/schema/Rakka/Page/1.0";
- var doc = document.implementation.createDocument(NS, "page", null);
- var page = doc.documentElement;
-
- if (oldRevision != null) {
- // ページ書換時
- var updateInfo = doc.createElementNS(NS, "updateInfo");
- updateInfo.setAttribute("oldRevision", oldRevision);
-
- if (pageName != givenPageName) {
- var move = doc.createElementNS(NS, "move");
- move.setAttribute("from", pageName);
- updateInfo.appendChild(move);
- }
-
- page.appendChild(updateInfo);
- }
-
- page.setAttribute("isLocked", isLocked ? "yes" : "no");
- page.setAttribute("type", mimeType);
-
- if (lang != null && lang != "") {
- page.setAttribute("lang", lang);
- }
-
- if (summary != null && summary != "") {
- var s = doc.createElementNS(NS, "summary");
- s.appendChild(
- doc.createTextNode(summary));
- page.appendChild(s);
- }
-
- var oLang = doc.createElementNS(NS, "otherLang");
- for (var tag in otherLangs) {
- var link = doc.createElementNS(NS, "link");
- link.setAttribute("lang", tag);
- link.setAttribute("page", otherLangs[tag]);
- oLang.appendChild(link);
- }
- page.appendChild(oLang);
-
- var textData = doc.createElementNS(NS, "textData");
- textData.appendChild(
- doc.createTextNode(text));
-
- page.appendChild(textData);
-
- Rakka.displayWaitingMessage("Submitting... please wait.");
-
- var url = Rakka.baseURI + encodeURI(givenPageName);
- $.ajax({
- type : "PUT",
- url : url,
- contentType: "text/xml",
- data : doc,
- processData: false,
- beforeSend : function (req) {
- Rakka.setAuthorization(req);
- },
- success : function () {
- window.location.replace(url);
- },
- error : function (req) {
- Rakka.hideWaitingMessage();
-
- var $area = Rakka.switchScreen();
- $area.text("Error: " + req.status + " " + req.statusText);
- }
- });
- };
-
- var submitBinaryPage = function (pageName, oldRevision, givenPageName, isLocked, lang, otherLangs, summary, data) {
- var NS = "http://cielonegro.org/schema/Rakka/Page/1.0";
- var doc = document.implementation.createDocument(NS, "page", null);
- var page = doc.documentElement;
-
- if (oldRevision != null) {
- // ページ書換時
- var updateInfo = doc.createElementNS(NS, "updateInfo");
- updateInfo.setAttribute("oldRevision", oldRevision);
-
- if (pageName != givenPageName) {
- var move = doc.createElementNS(NS, "move");
- move.setAttribute("from", pageName);
- updateInfo.appendChild(move);
- }
-
- page.appendChild(updateInfo);
- }
-
- page.setAttribute("isLocked", isLocked ? "yes" : "no");
- page.setAttribute("type", "");
-
- if (lang != null && lang != "") {
- page.setAttribute("lang", lang);
- }
-
- if (summary != null) {
- var s = doc.createElementNS(NS, "summary");
- s.appendChild(
- doc.createTextNode(summary));
- page.appendChild(s);
- }
-
- var oLang = doc.createElementNS(NS, "otherLang");
- for (var tag in otherLangs) {
- var link = doc.createElementNS(NS, "link");
- link.setAttribute("lang", tag);
- link.setAttribute("page", otherLangs[tag]);
- oLang.appendChild(link);
- }
- page.appendChild(oLang);
-
- var b64 = Rakka.encodeBase64(data);
- var binaryData = doc.createElementNS(NS, "binaryData");
- binaryData.appendChild(
- doc.createTextNode(b64));
-
- page.appendChild(binaryData);
-
- Rakka.displayWaitingMessage("Submitting... please wait.");
-
- var url = Rakka.baseURI + encodeURI(givenPageName);
- $.ajax({
- type : "PUT",
- url : url,
- contentType: "text/xml",
- data : doc,
- processData: false,
- beforeSend : function (req) {
- Rakka.setAuthorization(req);
- },
- success : function () {
- window.location.replace(url);
- },
- error : function (req) {
- Rakka.hideWaitingMessage();
-
- var $area = Rakka.switchScreen();
- $area.text("Error: " + req.status + " " + req.statusText);
- }
- });
- };
-
- var submitRedirection = function (pageName, oldRevision, givenPageName, isLocked, destination) {
- var NS = "http://cielonegro.org/schema/Rakka/Page/1.0";
- var doc = document.implementation.createDocument(NS, "page", null);
- var page = doc.documentElement;
-
- if (oldRevision != null) {
- // ページ書換時
- var updateInfo = doc.createElementNS(NS, "updateInfo");
- updateInfo.setAttribute("oldRevision", oldRevision);
-
- if (pageName != givenPageName) {
- var move = doc.createElementNS(NS, "move");
- move.setAttribute("from", pageName);
- updateInfo.appendChild(move);
- }
-
- page.appendChild(updateInfo);
- }
-
- page.setAttribute("isLocked", isLocked ? "yes" : "no");
- page.setAttribute("redirect", destination);
-
- Rakka.displayWaitingMessage("Submitting... please wait.");
-
- var url = Rakka.baseURI + encodeURI(givenPageName);
- $.ajax({
- type : "PUT",
- url : url,
- contentType: "text/xml",
- data : doc,
- processData: false,
- beforeSend : function (req) {
- Rakka.setAuthorization(req);
- },
- success : function () {
- window.location.replace(url);
- },
- error : function (req) {
- Rakka.hideWaitingMessage();
-
- var $area = Rakka.switchScreen();
- $area.text("Error: " + req.status + " " + req.statusText);
- }
- });
- };
-
- var deletePage = function (pageName) {
- var url = Rakka.baseURI + encodeURI(pageName);
- $.ajax({
- type : "DELETE",
- url : url,
- beforeSend : function (req) {
- Rakka.setAuthorization(req);
- },
- success : function () {
- window.location.replace(url);
- },
- error : function (req) {
- Rakka.hideWaitingMessage();
-
- var $area = Rakka.switchScreen();
- $area.text("Error: " + req.status + " " + req.statusText);
- }
- });
- };
-
-})();
+
rmfile ./js/editPage.js
hunk ./js/hashedParam.js 1
-$(document).ready(function () {
-
- /* Example of hashed params:
- *
- * /Foo/Bar.html#Redirect:Baz
- * /Foo/Bar.html#EditPage
- * /Foo/Bar.html#Redirect:Baz|EditPage
- */
-
- var cached_rawHash;
- var cached_map;
-
- /*
- var re_key = /^[^:|]+$/;
- var re_value = /^[^|]*$/;
- */
-
- var getRawHash = function () {
- /* Don't use window.location.hash as it isn't portable due to
- * an ambiguous specification.
- */
- var r = window.location.href;
- var i = r.indexOf("#");
- return (i >= 0
- ? r.substr(i + 1)
- : "");
- };
-
- /*
- var setRawHash = function (hash) {
- var r = window.location.href;
- var i = r.indexOf("#");
- var b = (i >= 0
- ? r.substr(0, i)
- : r);
- window.location.href = b + "#" + hash;
- };
- */
-
- var getHashedParamMap = function () {
- var raw = getRawHash();
-
- if (cached_rawHash != raw) {
- var src = decodeURIComponent(raw);
-
- // Split the source by '|' letters.
- cached_map = {};
- $.each(src.split("|"), function () {
- // tuple ::= key ':' value
- // | key (value is the same as key)
- var i = this.indexOf(":");
- if (i >= 0) {
- var key = this.substr(0, i);
- var val = this.substr(i + 1);
- cached_map[key] = val;
- }
- else {
- var key = this;
- cached_map[key] = key;
- }
- });
-
- cached_rawHash = raw;
- }
-
- return cached_map;
- };
-
- Rakka.getHashedParam = function (key) {
- return getHashedParamMap()[key];
- };
-
- /*
- var setHashedParamMap = function (map) {
- var tuples = "";
-
- $.each(map, function(key, val) {
- var tuple = (key == val
- ? key
- : key + ":" + val);
-
- tuples = (tuples == ""
- ? tuple
- : tuples + "|" + tuple);
- });
-
- cached_map = map;
- cached_raw = encodeURIComponent(tuples);
-
- setRawHash(cached_raw);
- };
-
- Rakka.setHashedParam = function (key, value) {
- var diff = {};
- diff[key] = value;
- Rakka.setHashedParams(diff);
- };
-
- Rakka.setHashedParams = function (diff) {
- var orig = getHashedParamMap();
- var next = {};
-
- // Copy 'orig' to 'next'.
- $.each(orig, function (key, val) {
- next[key] = val;
- });
-
- // Overwrite the content of 'next' with 'diff'.
- $.each(diff, function (key, val) {
-
- if (!key.match(re_key)) {
- throw new Error("Invalid key: " + key);
- }
- if (!val.match(re_value)) {
- throw new Error("Invalid value: " + val);
- }
-
- if (diff[key] == null) {
- delete next[key];
- }
- else {
- next[key] = val;
- }
- });
-
- setHashedParamMap(next);
- };
- */
-});
+
rmfile ./js/hashedParam.js
hunk ./js/hexDump.js 1
-(function () {
-
- var repeat = function (times, str) {
- var ret = "";
-
- for (var i = 0; i < times; i++) {
- ret += str;
- }
-
- return ret;
- };
-
- var printHex = function (width, num) {
- var ret = Number(num).toString(16);
-
- if (ret.length < width) {
- return repeat(width - ret.length, "0") + ret;
- }
- else {
- return ret;
- }
- };
-
- var isPrintableAscii = function (code) {
- return (code >= 0x20 && code <= 0x7e);
- };
-
- Rakka.hexDump = function (data, limit) {
- var offset = 0;
- var size = Math.min(data.length, limit);
- var ret = "";
-
- for (; offset < size; offset += 16) {
- ret += printHex(8, offset);
- ret += " ";
-
- var begin = offset;
- var end = Math.min(offset + 16, size);
-
- for (var i = begin; i < end; i++) {
- var c = data.charCodeAt(i);
-
- ret += printHex(2, c);
- ret += " ";
-
- if (end - i == 9) {
- ret += " ";
- }
- }
- for (var i = end; i < offset + 16; i++) {
- ret += " ";
- if (end - i == 9) {
- ret += " ";
- }
- }
-
- ret += " |";
-
- for (var i = begin; i < end; i++) {
- var c = data.charCodeAt(i);
-
- if (isPrintableAscii(c)) {
- ret += data.charAt(i);
- }
- else {
- ret += ".";
- }
- }
- ret += "|";
- for (var i = end; i < offset + 16; i++) {
- ret += " ";
- }
-
- ret += "\n";
- }
-
- if (data.length > limit) {
- ret += printHex(8, offset);
- ret += " ...\n";
- }
-
- return ret;
- };
-
- })();
+
rmfile ./js/hexDump.js
hunk ./js/jquery-1.2.6.js 1
-(function(){
-/*
- * jQuery 1.2.6 - New Wave Javascript
- *
- * Copyright (c) 2008 John Resig (jquery.com)
- * Dual licensed under the MIT (MIT-LICENSE.txt)
- * and GPL (GPL-LICENSE.txt) licenses.
- *
- * $Date: 2008-05-24 14:22:17 -0400 (Sat, 24 May 2008) $
- * $Rev: 5685 $
- */
-
-// Map over jQuery in case of overwrite
-var _jQuery = window.jQuery,
-// Map over the $ in case of overwrite
- _$ = window.$;
-
-var jQuery = window.jQuery = window.$ = function( selector, context ) {
- // The jQuery object is actually just the init constructor 'enhanced'
- return new jQuery.fn.init( selector, context );
-};
-
-// A simple way to check for HTML strings or ID strings
-// (both of which we optimize for)
-var quickExpr = /^[^<]*(<(.|\s)+>)[^>]*$|^#(\w+)$/,
-
-// Is it a simple selector
- isSimple = /^.[^:#\[\.]*$/,
-
-// Will speed up references to undefined, and allows munging its name.
- undefined;
-
-jQuery.fn = jQuery.prototype = {
- init: function( selector, context ) {
- // Make sure that a selection was provided
- selector = selector || document;
-
- // Handle $(DOMElement)
- if ( selector.nodeType ) {
- this[0] = selector;
- this.length = 1;
- return this;
- }
- // Handle HTML strings
- if ( typeof selector == "string" ) {
- // Are we dealing with HTML string or an ID?
- var match = quickExpr.exec( selector );
-
- // Verify a match, and that no context was specified for #id
- if ( match && (match[1] || !context) ) {
-
- // HANDLE: $(html) -> $(array)
- if ( match[1] )
- selector = jQuery.clean( [ match[1] ], context );
-
- // HANDLE: $("#id")
- else {
- var elem = document.getElementById( match[3] );
-
- // Make sure an element was located
- if ( elem ){
- // Handle the case where IE and Opera return items
- // by name instead of ID
- if ( elem.id != match[3] )
- return jQuery().find( selector );
-
- // Otherwise, we inject the element directly into the jQuery object
- return jQuery( elem );
- }
- selector = [];
- }
-
- // HANDLE: $(expr, [context])
- // (which is just equivalent to: $(content).find(expr)
- } else
- return jQuery( context ).find( selector );
-
- // HANDLE: $(function)
- // Shortcut for document ready
- } else if ( jQuery.isFunction( selector ) )
- return jQuery( document )[ jQuery.fn.ready ? "ready" : "load" ]( selector );
-
- return this.setArray(jQuery.makeArray(selector));
- },
-
- // The current version of jQuery being used
- jquery: "1.2.6",
-
- // The number of elements contained in the matched element set
- size: function() {
- return this.length;
- },
-
- // The number of elements contained in the matched element set
- length: 0,
-
- // Get the Nth element in the matched element set OR
- // Get the whole matched element set as a clean array
- get: function( num ) {
- return num == undefined ?
-
- // Return a 'clean' array
- jQuery.makeArray( this ) :
-
- // Return just the object
- this[ num ];
- },
-
- // Take an array of elements and push it onto the stack
- // (returning the new matched element set)
- pushStack: function( elems ) {
- // Build a new jQuery matched element set
- var ret = jQuery( elems );
-
- // Add the old object onto the stack (as a reference)
- ret.prevObject = this;
-
- // Return the newly-formed element set
- return ret;
- },
-
- // Force the current matched set of elements to become
- // the specified array of elements (destroying the stack in the process)
- // You should use pushStack() in order to do this, but maintain the stack
- setArray: function( elems ) {
- // Resetting the length to 0, then using the native Array push
- // is a super-fast way to populate an object with array-like properties
- this.length = 0;
- Array.prototype.push.apply( this, elems );
-
- return this;
- },
-
- // Execute a callback for every element in the matched set.
- // (You can seed the arguments with an array of args, but this is
- // only used internally.)
- each: function( callback, args ) {
- return jQuery.each( this, callback, args );
- },
-
- // Determine the position of an element within
- // the matched set of elements
- index: function( elem ) {
- var ret = -1;
-
- // Locate the position of the desired element
- return jQuery.inArray(
- // If it receives a jQuery object, the first element is used
- elem && elem.jquery ? elem[0] : elem
- , this );
- },
-
- attr: function( name, value, type ) {
- var options = name;
-
- // Look for the case where we're accessing a style value
- if ( name.constructor == String )
- if ( value === undefined )
- return this[0] && jQuery[ type || "attr" ]( this[0], name );
-
- else {
- options = {};
- options[ name ] = value;
- }
-
- // Check to see if we're setting style values
- return this.each(function(i){
- // Set all the styles
- for ( name in options )
- jQuery.attr(
- type ?
- this.style :
- this,
- name, jQuery.prop( this, options[ name ], type, i, name )
- );
- });
- },
-
- css: function( key, value ) {
- // ignore negative width and height values
- if ( (key == 'width' || key == 'height') && parseFloat(value) < 0 )
- value = undefined;
- return this.attr( key, value, "curCSS" );
- },
-
- text: function( text ) {
- if ( typeof text != "object" && text != null )
- return this.empty().append( (this[0] && this[0].ownerDocument || document).createTextNode( text ) );
-
- var ret = "";
-
- jQuery.each( text || this, function(){
- jQuery.each( this.childNodes, function(){
- if ( this.nodeType != 8 )
- ret += this.nodeType != 1 ?
- this.nodeValue :
- jQuery.fn.text( [ this ] );
- });
- });
-
- return ret;
- },
-
- wrapAll: function( html ) {
- if ( this[0] )
- // The elements to wrap the target around
- jQuery( html, this[0].ownerDocument )
- .clone()
- .insertBefore( this[0] )
- .map(function(){
- var elem = this;
-
- while ( elem.firstChild )
- elem = elem.firstChild;
-
- return elem;
- })
- .append(this);
-
- return this;
- },
-
- wrapInner: function( html ) {
- return this.each(function(){
- jQuery( this ).contents().wrapAll( html );
- });
- },
-
- wrap: function( html ) {
- return this.each(function(){
- jQuery( this ).wrapAll( html );
- });
- },
-
- append: function() {
- return this.domManip(arguments, true, false, function(elem){
- if (this.nodeType == 1)
- this.appendChild( elem );
- });
- },
-
- prepend: function() {
- return this.domManip(arguments, true, true, function(elem){
- if (this.nodeType == 1)
- this.insertBefore( elem, this.firstChild );
- });
- },
-
- before: function() {
- return this.domManip(arguments, false, false, function(elem){
- this.parentNode.insertBefore( elem, this );
- });
- },
-
- after: function() {
- return this.domManip(arguments, false, true, function(elem){
- this.parentNode.insertBefore( elem, this.nextSibling );
- });
- },
-
- end: function() {
- return this.prevObject || jQuery( [] );
- },
-
- find: function( selector ) {
- var elems = jQuery.map(this, function(elem){
- return jQuery.find( selector, elem );
- });
-
- return this.pushStack( /[^+>] [^+>]/.test( selector ) || selector.indexOf("..") > -1 ?
- jQuery.unique( elems ) :
- elems );
- },
-
- clone: function( events ) {
- // Do the clone
- var ret = this.map(function(){
- if ( jQuery.browser.msie && !jQuery.isXMLDoc(this) ) {
- // IE copies events bound via attachEvent when
- // using cloneNode. Calling detachEvent on the
- // clone will also remove the events from the orignal
- // In order to get around this, we use innerHTML.
- // Unfortunately, this means some modifications to
- // attributes in IE that are actually only stored
- // as properties will not be copied (such as the
- // the name attribute on an input).
- var clone = this.cloneNode(true),
- container = document.createElement("div");
- container.appendChild(clone);
- return jQuery.clean([container.innerHTML])[0];
- } else
- return this.cloneNode(true);
- });
-
- // Need to set the expando to null on the cloned set if it exists
- // removeData doesn't work here, IE removes it from the original as well
- // this is primarily for IE but the data expando shouldn't be copied over in any browser
- var clone = ret.find("*").andSelf().each(function(){
- if ( this[ expando ] != undefined )
- this[ expando ] = null;
- });
-
- // Copy the events from the original to the clone
- if ( events === true )
- this.find("*").andSelf().each(function(i){
- if (this.nodeType == 3)
- return;
- var events = jQuery.data( this, "events" );
-
- for ( var type in events )
- for ( var handler in events[ type ] )
- jQuery.event.add( clone[ i ], type, events[ type ][ handler ], events[ type ][ handler ].data );
- });
-
- // Return the cloned set
- return ret;
- },
-
- filter: function( selector ) {
- return this.pushStack(
- jQuery.isFunction( selector ) &&
- jQuery.grep(this, function(elem, i){
- return selector.call( elem, i );
- }) ||
-
- jQuery.multiFilter( selector, this ) );
- },
-
- not: function( selector ) {
- if ( selector.constructor == String )
- // test special case where just one selector is passed in
- if ( isSimple.test( selector ) )
- return this.pushStack( jQuery.multiFilter( selector, this, true ) );
- else
- selector = jQuery.multiFilter( selector, this );
-
- var isArrayLike = selector.length && selector[selector.length - 1] !== undefined && !selector.nodeType;
- return this.filter(function() {
- return isArrayLike ? jQuery.inArray( this, selector ) < 0 : this != selector;
- });
- },
-
- add: function( selector ) {
- return this.pushStack( jQuery.unique( jQuery.merge(
- this.get(),
- typeof selector == 'string' ?
- jQuery( selector ) :
- jQuery.makeArray( selector )
- )));
- },
-
- is: function( selector ) {
- return !!selector && jQuery.multiFilter( selector, this ).length > 0;
- },
-
- hasClass: function( selector ) {
- return this.is( "." + selector );
- },
-
- val: function( value ) {
- if ( value == undefined ) {
-
- if ( this.length ) {
- var elem = this[0];
-
- // We need to handle select boxes special
- if ( jQuery.nodeName( elem, "select" ) ) {
- var index = elem.selectedIndex,
- values = [],
- options = elem.options,
- one = elem.type == "select-one";
-
- // Nothing was selected
- if ( index < 0 )
- return null;
-
- // Loop through all the selected options
- for ( var i = one ? index : 0, max = one ? index + 1 : options.length; i < max; i++ ) {
- var option = options[ i ];
-
- if ( option.selected ) {
- // Get the specifc value for the option
- value = jQuery.browser.msie && !option.attributes.value.specified ? option.text : option.value;
-
- // We don't need an array for one selects
- if ( one )
- return value;
-
- // Multi-Selects return an array
- values.push( value );
- }
- }
-
- return values;
-
- // Everything else, we just grab the value
- } else
- return (this[0].value || "").replace(/\r/g, "");
-
- }
-
- return undefined;
- }
-
- if( value.constructor == Number )
- value += '';
-
- return this.each(function(){
- if ( this.nodeType != 1 )
- return;
-
- if ( value.constructor == Array && /radio|checkbox/.test( this.type ) )
- this.checked = (jQuery.inArray(this.value, value) >= 0 ||
- jQuery.inArray(this.name, value) >= 0);
-
- else if ( jQuery.nodeName( this, "select" ) ) {
- var values = jQuery.makeArray(value);
-
- jQuery( "option", this ).each(function(){
- this.selected = (jQuery.inArray( this.value, values ) >= 0 ||
- jQuery.inArray( this.text, values ) >= 0);
- });
-
- if ( !values.length )
- this.selectedIndex = -1;
-
- } else
- this.value = value;
- });
- },
-
- html: function( value ) {
- return value == undefined ?
- (this[0] ?
- this[0].innerHTML :
- null) :
- this.empty().append( value );
- },
-
- replaceWith: function( value ) {
- return this.after( value ).remove();
- },
-
- eq: function( i ) {
- return this.slice( i, i + 1 );
- },
-
- slice: function() {
- return this.pushStack( Array.prototype.slice.apply( this, arguments ) );
- },
-
- map: function( callback ) {
- return this.pushStack( jQuery.map(this, function(elem, i){
- return callback.call( elem, i, elem );
- }));
- },
-
- andSelf: function() {
- return this.add( this.prevObject );
- },
-
- data: function( key, value ){
- var parts = key.split(".");
- parts[1] = parts[1] ? "." + parts[1] : "";
-
- if ( value === undefined ) {
- var data = this.triggerHandler("getData" + parts[1] + "!", [parts[0]]);
-
- if ( data === undefined && this.length )
- data = jQuery.data( this[0], key );
-
- return data === undefined && parts[1] ?
- this.data( parts[0] ) :
- data;
- } else
- return this.trigger("setData" + parts[1] + "!", [parts[0], value]).each(function(){
- jQuery.data( this, key, value );
- });
- },
-
- removeData: function( key ){
- return this.each(function(){
- jQuery.removeData( this, key );
- });
- },
-
- domManip: function( args, table, reverse, callback ) {
- var clone = this.length > 1, elems;
-
- return this.each(function(){
- if ( !elems ) {
- elems = jQuery.clean( args, this.ownerDocument );
-
- if ( reverse )
- elems.reverse();
- }
-
- var obj = this;
-
- if ( table && jQuery.nodeName( this, "table" ) && jQuery.nodeName( elems[0], "tr" ) )
- obj = this.getElementsByTagName("tbody")[0] || this.appendChild( this.ownerDocument.createElement("tbody") );
-
- var scripts = jQuery( [] );
-
- jQuery.each(elems, function(){
- var elem = clone ?
- jQuery( this ).clone( true )[0] :
- this;
-
- // execute all scripts after the elements have been injected
- if ( jQuery.nodeName( elem, "script" ) )
- scripts = scripts.add( elem );
- else {
- // Remove any inner scripts for later evaluation
- if ( elem.nodeType == 1 )
- scripts = scripts.add( jQuery( "script", elem ).remove() );
-
- // Inject the elements into the document
- callback.call( obj, elem );
- }
- });
-
- scripts.each( evalScript );
- });
- }
-};
-
-// Give the init function the jQuery prototype for later instantiation
-jQuery.fn.init.prototype = jQuery.fn;
-
-function evalScript( i, elem ) {
- if ( elem.src )
- jQuery.ajax({
- url: elem.src,
- async: false,
- dataType: "script"
- });
-
- else
- jQuery.globalEval( elem.text || elem.textContent || elem.innerHTML || "" );
-
- if ( elem.parentNode )
- elem.parentNode.removeChild( elem );
-}
-
-function now(){
- return +new Date;
-}
-
-jQuery.extend = jQuery.fn.extend = function() {
- // copy reference to target object
- var target = arguments[0] || {}, i = 1, length = arguments.length, deep = false, options;
-
- // Handle a deep copy situation
- if ( target.constructor == Boolean ) {
- deep = target;
- target = arguments[1] || {};
- // skip the boolean and the target
- i = 2;
- }
-
- // Handle case when target is a string or something (possible in deep copy)
- if ( typeof target != "object" && typeof target != "function" )
- target = {};
-
- // extend jQuery itself if only one argument is passed
- if ( length == i ) {
- target = this;
- --i;
- }
-
- for ( ; i < length; i++ )
- // Only deal with non-null/undefined values
- if ( (options = arguments[ i ]) != null )
- // Extend the base object
- for ( var name in options ) {
- var src = target[ name ], copy = options[ name ];
-
- // Prevent never-ending loop
- if ( target === copy )
- continue;
-
- // Recurse if we're merging object values
- if ( deep && copy && typeof copy == "object" && !copy.nodeType )
- target[ name ] = jQuery.extend( deep,
- // Never move original objects, clone them
- src || ( copy.length != null ? [ ] : { } )
- , copy );
-
- // Don't bring in undefined values
- else if ( copy !== undefined )
- target[ name ] = copy;
-
- }
-
- // Return the modified object
- return target;
-};
-
-var expando = "jQuery" + now(), uuid = 0, windowData = {},
- // exclude the following css properties to add px
- exclude = /z-?index|font-?weight|opacity|zoom|line-?height/i,
- // cache defaultView
- defaultView = document.defaultView || {};
-
-jQuery.extend({
- noConflict: function( deep ) {
- window.$ = _$;
-
- if ( deep )
- window.jQuery = _jQuery;
-
- return jQuery;
- },
-
- // See test/unit/core.js for details concerning this function.
- isFunction: function( fn ) {
- return !!fn && typeof fn != "string" && !fn.nodeName &&
- fn.constructor != Array && /^[\s[]?function/.test( fn + "" );
- },
-
- // check if an element is in a (or is an) XML document
- isXMLDoc: function( elem ) {
- return elem.documentElement && !elem.body ||
- elem.tagName && elem.ownerDocument && !elem.ownerDocument.body;
- },
-
- // Evalulates a script in a global context
- globalEval: function( data ) {
- data = jQuery.trim( data );
-
- if ( data ) {
- // Inspired by code by Andrea Giammarchi
- // http://webreflection.blogspot.com/2007/08/global-scope-evaluation-and-dom.html
- var head = document.getElementsByTagName("head")[0] || document.documentElement,
- script = document.createElement("script");
-
- script.type = "text/javascript";
- if ( jQuery.browser.msie )
- script.text = data;
- else
- script.appendChild( document.createTextNode( data ) );
-
- // Use insertBefore instead of appendChild to circumvent an IE6 bug.
- // This arises when a base node is used (#2709).
- head.insertBefore( script, head.firstChild );
- head.removeChild( script );
- }
- },
-
- nodeName: function( elem, name ) {
- return elem.nodeName && elem.nodeName.toUpperCase() == name.toUpperCase();
- },
-
- cache: {},
-
- data: function( elem, name, data ) {
- elem = elem == window ?
- windowData :
- elem;
-
- var id = elem[ expando ];
-
- // Compute a unique ID for the element
- if ( !id )
- id = elem[ expando ] = ++uuid;
-
- // Only generate the data cache if we're
- // trying to access or manipulate it
- if ( name && !jQuery.cache[ id ] )
- jQuery.cache[ id ] = {};
-
- // Prevent overriding the named cache with undefined values
- if ( data !== undefined )
- jQuery.cache[ id ][ name ] = data;
-
- // Return the named cache data, or the ID for the element
- return name ?
- jQuery.cache[ id ][ name ] :
- id;
- },
-
- removeData: function( elem, name ) {
- elem = elem == window ?
- windowData :
- elem;
-
- var id = elem[ expando ];
-
- // If we want to remove a specific section of the element's data
- if ( name ) {
- if ( jQuery.cache[ id ] ) {
- // Remove the section of cache data
- delete jQuery.cache[ id ][ name ];
-
- // If we've removed all the data, remove the element's cache
- name = "";
-
- for ( name in jQuery.cache[ id ] )
- break;
-
- if ( !name )
- jQuery.removeData( elem );
- }
-
- // Otherwise, we want to remove all of the element's data
- } else {
- // Clean up the element expando
- try {
- delete elem[ expando ];
- } catch(e){
- // IE has trouble directly removing the expando
- // but it's ok with using removeAttribute
- if ( elem.removeAttribute )
- elem.removeAttribute( expando );
- }
-
- // Completely remove the data cache
- delete jQuery.cache[ id ];
- }
- },
-
- // args is for internal usage only
- each: function( object, callback, args ) {
- var name, i = 0, length = object.length;
-
- if ( args ) {
- if ( length == undefined ) {
- for ( name in object )
- if ( callback.apply( object[ name ], args ) === false )
- break;
- } else
- for ( ; i < length; )
- if ( callback.apply( object[ i++ ], args ) === false )
- break;
-
- // A special, fast, case for the most common use of each
- } else {
- if ( length == undefined ) {
- for ( name in object )
- if ( callback.call( object[ name ], name, object[ name ] ) === false )
- break;
- } else
- for ( var value = object[0];
- i < length && callback.call( value, i, value ) !== false; value = object[++i] ){}
- }
-
- return object;
- },
-
- prop: function( elem, value, type, i, name ) {
- // Handle executable functions
- if ( jQuery.isFunction( value ) )
- value = value.call( elem, i );
-
- // Handle passing in a number to a CSS property
- return value && value.constructor == Number && type == "curCSS" && !exclude.test( name ) ?
- value + "px" :
- value;
- },
-
- className: {
- // internal only, use addClass("class")
- add: function( elem, classNames ) {
- jQuery.each((classNames || "").split(/\s+/), function(i, className){
- if ( elem.nodeType == 1 && !jQuery.className.has( elem.className, className ) )
- elem.className += (elem.className ? " " : "") + className;
- });
- },
-
- // internal only, use removeClass("class")
- remove: function( elem, classNames ) {
- if (elem.nodeType == 1)
- elem.className = classNames != undefined ?
- jQuery.grep(elem.className.split(/\s+/), function(className){
- return !jQuery.className.has( classNames, className );
- }).join(" ") :
- "";
- },
-
- // internal only, use hasClass("class")
- has: function( elem, className ) {
- return jQuery.inArray( className, (elem.className || elem).toString().split(/\s+/) ) > -1;
- }
- },
-
- // A method for quickly swapping in/out CSS properties to get correct calculations
- swap: function( elem, options, callback ) {
- var old = {};
- // Remember the old values, and insert the new ones
- for ( var name in options ) {
- old[ name ] = elem.style[ name ];
- elem.style[ name ] = options[ name ];
- }
-
- callback.call( elem );
-
- // Revert the old values
- for ( var name in options )
- elem.style[ name ] = old[ name ];
- },
-
- css: function( elem, name, force ) {
- if ( name == "width" || name == "height" ) {
- var val, props = { position: "absolute", visibility: "hidden", display:"block" }, which = name == "width" ? [ "Left", "Right" ] : [ "Top", "Bottom" ];
-
- function getWH() {
- val = name == "width" ? elem.offsetWidth : elem.offsetHeight;
- var padding = 0, border = 0;
- jQuery.each( which, function() {
- padding += parseFloat(jQuery.curCSS( elem, "padding" + this, true)) || 0;
- border += parseFloat(jQuery.curCSS( elem, "border" + this + "Width", true)) || 0;
- });
- val -= Math.round(padding + border);
- }
-
- if ( jQuery(elem).is(":visible") )
- getWH();
- else
- jQuery.swap( elem, props, getWH );
-
- return Math.max(0, val);
- }
-
- return jQuery.curCSS( elem, name, force );
- },
-
- curCSS: function( elem, name, force ) {
- var ret, style = elem.style;
-
- // A helper method for determining if an element's values are broken
- function color( elem ) {
- if ( !jQuery.browser.safari )
- return false;
-
- // defaultView is cached
- var ret = defaultView.getComputedStyle( elem, null );
- return !ret || ret.getPropertyValue("color") == "";
- }
-
- // We need to handle opacity special in IE
- if ( name == "opacity" && jQuery.browser.msie ) {
- ret = jQuery.attr( style, "opacity" );
-
- return ret == "" ?
- "1" :
- ret;
- }
- // Opera sometimes will give the wrong display answer, this fixes it, see #2037
- if ( jQuery.browser.opera && name == "display" ) {
- var save = style.outline;
- style.outline = "0 solid black";
- style.outline = save;
- }
-
- // Make sure we're using the right name for getting the float value
- if ( name.match( /float/i ) )
- name = styleFloat;
-
- if ( !force && style && style[ name ] )
- ret = style[ name ];
-
- else if ( defaultView.getComputedStyle ) {
-
- // Only "float" is needed here
- if ( name.match( /float/i ) )
- name = "float";
-
- name = name.replace( /([A-Z])/g, "-$1" ).toLowerCase();
-
- var computedStyle = defaultView.getComputedStyle( elem, null );
-
- if ( computedStyle && !color( elem ) )
- ret = computedStyle.getPropertyValue( name );
-
- // If the element isn't reporting its values properly in Safari
- // then some display: none elements are involved
- else {
- var swap = [], stack = [], a = elem, i = 0;
-
- // Locate all of the parent display: none elements
- for ( ; a && color(a); a = a.parentNode )
- stack.unshift(a);
-
- // Go through and make them visible, but in reverse
- // (It would be better if we knew the exact display type that they had)
- for ( ; i < stack.length; i++ )
- if ( color( stack[ i ] ) ) {
- swap[ i ] = stack[ i ].style.display;
- stack[ i ].style.display = "block";
- }
-
- // Since we flip the display style, we have to handle that
- // one special, otherwise get the value
- ret = name == "display" && swap[ stack.length - 1 ] != null ?
- "none" :
- ( computedStyle && computedStyle.getPropertyValue( name ) ) || "";
-
- // Finally, revert the display styles back
- for ( i = 0; i < swap.length; i++ )
- if ( swap[ i ] != null )
- stack[ i ].style.display = swap[ i ];
- }
-
- // We should always get a number back from opacity
- if ( name == "opacity" && ret == "" )
- ret = "1";
-
- } else if ( elem.currentStyle ) {
- var camelCase = name.replace(/\-(\w)/g, function(all, letter){
- return letter.toUpperCase();
- });
-
- ret = elem.currentStyle[ name ] || elem.currentStyle[ camelCase ];
-
- // From the awesome hack by Dean Edwards
- // http://erik.eae.net/archives/2007/07/27/18.54.15/#comment-102291
-
- // If we're not dealing with a regular pixel number
- // but a number that has a weird ending, we need to convert it to pixels
- if ( !/^\d+(px)?$/i.test( ret ) && /^\d/.test( ret ) ) {
- // Remember the original values
- var left = style.left, rsLeft = elem.runtimeStyle.left;
-
- // Put in the new values to get a computed value out
- elem.runtimeStyle.left = elem.currentStyle.left;
- style.left = ret || 0;
- ret = style.pixelLeft + "px";
-
- // Revert the changed values
- style.left = left;
- elem.runtimeStyle.left = rsLeft;
- }
- }
-
- return ret;
- },
-
- clean: function( elems, context ) {
- var ret = [];
- context = context || document;
- // !context.createElement fails in IE with an error but returns typeof 'object'
- if (typeof context.createElement == 'undefined')
- context = context.ownerDocument || context[0] && context[0].ownerDocument || document;
-
- jQuery.each(elems, function(i, elem){
- if ( !elem )
- return;
-
- if ( elem.constructor == Number )
- elem += '';
-
- // Convert html string into DOM nodes
- if ( typeof elem == "string" ) {
- // Fix "XHTML"-style tags in all browsers
- elem = elem.replace(/(<(\w+)[^>]*?)\/>/g, function(all, front, tag){
- return tag.match(/^(abbr|br|col|img|input|link|meta|param|hr|area|embed)$/i) ?
- all :
- front + ">";
- });
-
- // Trim whitespace, otherwise indexOf won't work as expected
- var tags = jQuery.trim( elem ).toLowerCase(), div = context.createElement("div");
-
- var wrap =
- // option or optgroup
- !tags.indexOf("", "" ] ||
-
- !tags.indexOf("", "" ] ||
-
- tags.match(/^<(thead|tbody|tfoot|colg|cap)/) &&
- [ 1, "" ] ||
-
- !tags.indexOf("", "" ] ||
-
- // matched above
- (!tags.indexOf("", "
" ] ||
-
- !tags.indexOf("", "" ] ||
-
- // IE can't serialize and