uniworx/oauth2-mock-server
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

replaced '/' in query params

Browse Source
This commit is contained in:
David Mosbach 2024-01-10 03:00:12 +01:00
parent 123cf76b3b
commit 2d9b07b9ba
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/AuthCode.hs
View File

@ -42,7 +42,7 @@ genUnencryptedCode client url expiration state = do
now <- getCurrentTime now <- getCurrentTime
let let
expiresAt = expiration `addUTCTime` now expiresAt = expiration `addUTCTime` now
simpleCode = replace "=" "%3D" . encodeBase64 . pack . filter (/= ' ') $ client <> url <> show now <> show expiresAt simpleCode = replace "/" "%2F" . replace "=" "%3D" . encodeBase64 . pack . filter (/= ' ') $ client <> url <> show now <> show expiresAt
success <- atomically . stateTVar state $ \s -> success <- atomically . stateTVar state $ \s ->
let mEntry = M.lookup simpleCode s.activeCodes let mEntry = M.lookup simpleCode s.activeCodes
in in

2
src/Server.hs
View File

@ -135,7 +135,7 @@ authServer = handleAuth
addParams url (Just code) mState = addParams url (Just code) mState =
let qPos = fromMaybe (length url) $ elemIndex '?' url let qPos = fromMaybe (length url) $ elemIndex '?' url
(pre, post) = splitAt qPos url (pre, post) = splitAt qPos url
rState = case mState of {Just s -> "&state=" ++ (unpack $ replace "=" "%3D" s); Nothing -> ""} rState = case mState of {Just s -> "&state=" ++ (unpack . replace "/" "%2F" $ replace "=" "%3D" s); Nothing -> ""}
post' = if not (null post) then '&' : tail post else post post' = if not (null post) then '&' : tail post else post
in Just . fromString $ pre ++ "?code=" ++ (unpack code) ++ post' ++ rState in Just . fromString $ pre ++ "?code=" ++ (unpack code) ++ post' ++ rState