git.iko.soy/denis
on master help sign in
Made log bigger and tokens expire after a year
commitd3d6e799c5689f506ccfcd123a33ba5370ddbeb2 authoriko <ilyakooo0@gmail.com> dateSun 12 May 2019, 17:13 (7 years ago) parentaa80912
2 files changed+2−2
compare with master
unifiedsplit
denis/src/Server/Auth/Token.hs+1−1 denis/src/Server/Server.hs+1−1
denis/src/Server/Auth/Token.hs+1−1
@@ -63,7 +63,7 @@ generateTokenM = do
6363 activationToken <- randomBytes 64
6464 deactivationToken <- randomBytes 64
6565 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
6767 return $ \ uId ua -> GeneratedToken {
6868 generatedToken = Token uId (hash token) expire (Just . hashVerificationCode $ code) 10 ua (Just . hash $ activationToken) (hash deactivationToken),
6969 generatedTokenValue = token,
denis/src/Server/Server.hs+1−1
@@ -55,7 +55,7 @@ runServer = do
5555 cfg <- getConfig
5656 void . forkIO $ updateFaculties cfg
5757 let ctx = genAuthServerContext $ getPool cfg
58− (middleLogger, logger) <- mkLogger 100
58+ (middleLogger, logger) <- mkLogger 500
5959 let serverAPI = mkServerAPI logger
6060 let s = hoistServerWithContext serverProxy contextProxy (flip runReaderT cfg) serverAPI
6161 runSettings (settings port) $ cors (const $ Just policy) . middleLogger $ serveWithContext serverProxy ctx s