git.iko.soy/denis
on master help sign in
Made log bigger and tokens expire after a year
d3d6e79iko
denis/src/Server/Auth/Token.hs+1−1
compare with master
unifiedsplit
@@ -63,7 +63,7 @@ generateTokenM = do
63 activationToken <- randomBytes 64
63 activationToken <- randomBytes 64
64 deactivationToken <- randomBytes 64
64 deactivationToken <- randomBytes 64
65 code <- randomR (0, 999999)
65 code <- randomR (0, 999999)
66− expire <- liftIO $ fmap (addUTCTime (60*30 {- 30 minutes -} {- nominalDay * 365 -})) getCurrentTime -- one year
66+ expire <- liftIO $ fmap (addUTCTime (nominalDay * 365)) getCurrentTime -- one year
67 return $ \ uId ua -> GeneratedToken {
67 return $ \ uId ua -> GeneratedToken {
68 generatedToken = Token uId (hash token) expire (Just . hashVerificationCode $ code) 10 ua (Just . hash $ activationToken) (hash deactivationToken),
68 generatedToken = Token uId (hash token) expire (Just . hashVerificationCode $ code) 10 ua (Just . hash $ activationToken) (hash deactivationToken),
69 generatedTokenValue = token,
69 generatedTokenValue = token,
denis/src/Server/Server.hs+1−1
@@ -55,7 +55,7 @@ runServer = do
55 cfg <- getConfig
55 cfg <- getConfig
56 void . forkIO $ updateFaculties cfg
56 void . forkIO $ updateFaculties cfg
57 let ctx = genAuthServerContext $ getPool cfg
57 let ctx = genAuthServerContext $ getPool cfg
58− (middleLogger, logger) <- mkLogger 100
58+ (middleLogger, logger) <- mkLogger 500
59 let serverAPI = mkServerAPI logger
59 let serverAPI = mkServerAPI logger
60 let s = hoistServerWithContext serverProxy contextProxy (flip runReaderT cfg) serverAPI
60 let s = hoistServerWithContext serverProxy contextProxy (flip runReaderT cfg) serverAPI
61 runSettings (settings port) $ cors (const $ Just policy) . middleLogger $ serveWithContext serverProxy ctx s
61 runSettings (settings port) $ cors (const $ Just policy) . middleLogger $ serveWithContext serverProxy ctx s