escape

[yawbih.git] / Wiki.hs

diff --git a/Wiki.hs b/Wiki.hs
index c4b7166f377a508ac021b55fcedfb1e024733269..d7ce7bcd912305223137ad8a72f141f255cfb165 100644 (file)
--- a/Wiki.hs
+++ b/Wiki.hs
@@ -1,20 +1,50 @@
 module Wiki (
+       WB
+       ,PGB
 
 ) where
 
-class WikiBackend a where
-       --Keyword -> Full text
-       getCurrent :: a -> String -> IO String
+import Dbconnect
+import Data.Char
+
+class WB a where
+       --Keyword -> (Full text,date)
+       getCurrent :: a -> String -> IO (String,String)
 
        --Keyword -> [(id,date)]
-       getList :: a -> String -> IO [(Int, String)]
+       getList :: a -> String -> IO [(String, String, String, String)]
 
        --Keyword -> id -> Full text
-       get :: a -> String -> Int -> IO String
+       get :: a -> String -> String -> IO String
 
        --Keyword -> id -> ()
-       setCurrent :: a -> String -> Int -> IO ()
+       setCurrent :: a -> String -> String -> IO Int
 
        --Keyword -> Full text -> id
-       addNew :: String -> String -> IO Int
+       addNew :: a -> String -> String -> IO String
+
+data PGB = PGB DBService
+
+createPGB :: String -> String -> String -> String -> IO PGB
+createPGB host database user password = let db = createDBService host database "" user password Nothing in return (PGB db)
+
+
+testDB = createPGB "wave" "wiki" "wiki" "12wiki34db"
+
+instance WB PGB where
+
+       getCurrent (PGB db) key = do 
+               [[text,date]] <- selectReturnTuples db $ "SELECT fulltext,timestamp FROM curtexts where keyword='"++(escapeQuery key)++"'"
+               return (text,date)
+
+       getList (PGB db) key = do
+               list <- selectReturnTuples db $ "SELECT id, timestamp, author, comment from fulltexts where keyword = '"++(escapeQuery key)++"'"
+               return $ map (\[id,date,author,comment] -> (id,date,author,comment)) list
+
+       get (PGB db) key id = return ""
+
+       setCurrent (PGB db) key id = 
+               execute db $ "UPDATE current SET id = '"++(escapeQuery id)++"' where keyword = '"++(escapeQuery key)++"'"
+
+       addNew (PGB db) key text = return ""