[About to change the LoggedIn cookie workings; things currently work
jupdike@gmail.com**20080126200517] {
hunk ./Template.hs 146
-            script "scripts/sifr.js",
-            script "scripts/sifr-addons.js"]
+            script "/scripts/sifr.js",
+            script "/scripts/sifr-addons.js"]
hunk ./Template.hs 248
-getNewOTP :: Bool -> IO String
-getNewOTP needed = do
+getNewOTP :: Int -> Bool -> IO String
+getNewOTP secs needed = do
hunk ./Template.hs 252
-        pw <- otpNew
+        pw <- otpNew secs
hunk ./Template.hs 257
---   cnts <- readFile "scripts/search.js"
+--   cnts <- readFile "/scripts/search.js"
hunk ./Template.hs 271
-   otp <- getNewOTP isLogin
+   otp <- getNewOTP 30 isLogin
hunk ./Template.hs 377
-    [("searchbar", [script "scripts/search.js"])
+    [("searchbar", [script "/scripts/search.js"])
hunk ./Template.hs 385
-    ,("loginform", [script "scripts/login.js"])
-    ,("renamepage", [script "scripts/rename.js"])
+    ,("loginform", [script "/scripts/login.js"])
+    ,("renamepage", [script "/scripts/rename.js"])
hunk ./index.hs 44
-isLoggedIn environ =
-    case lookup "HTTP_COOKIE" environ of
-       Nothing -> False
-       Just cookieStr -> getKey "LoggedIn" cookieStr ==  getsecretcode environ     -- something here is wrong? this is bad
+isLoggedIn environ = do
+   let k = case lookup "HTTP_COOKIE" environ of
+             Nothing -> False
+             Just cookieStr ->
+                    getKey "LoggedIn" cookieStr ==  getsecretcode environ  -- something here is wrong? this is bad
+   return k
hunk ./index.hs 316
-   let loggedin   = ("loggedin", show $ isLoggedIn osEnviron)
+   li             <- isLoggedIn osEnviron
+   let loggedin   = ("loggedin", show li)
}