import CGITypes
import System
import Wiki
+import Backend
import Control.Monad
import Text.ParserCombinators.Parsec
-testDB = createPGB "localhost" "wiki" "wiki" "12wiki34db"
-
-test key = do
- db <- testDB
- s <- getCurrent db key
- print s
-
---main = start [] cgi
+--backend = createPGB "hostname" "database" "user" "password"
+--If you want to implement this function here, then remove the import of Backend
main = do
- db <- testDB
+ db <- backend
runWithHook [] (\(key:act) -> showPage db (filter (/= '\\') key)) $ showPage db "itproj3"
editPage db key = do