84 lines
2.1 KiB
Text
84 lines
2.1 KiB
Text
|
module Activate where
|
||
|
|
|
||
|
|
import Prelude
|
||
|
|
import Control.Monad.Aff
|
||
|
|
import Control.Monad.Eff (Eff)
|
||
|
|
import Control.Monad.Eff.Console (CONSOLE, log)
|
||
|
|
import Control.Monad.Eff.JQuery
|
||
|
|
import Control.Monad.Except
|
||
|
|
|
||
|
|
import DOM (DOM)
|
||
|
|
|
||
|
|
import Data.Function.Uncurried (Fn2, runFn2)
|
||
|
|
import Data.Maybe
|
||
|
|
import Data.Either
|
||
|
|
import Data.Tuple (Tuple(..))
|
||
|
|
import Data.Unit
|
||
|
|
|
||
|
|
import Data.Argonaut as A
|
||
|
|
import Data.Argonaut.Decode
|
||
|
|
|
||
|
|
import React as R
|
||
|
|
import React.DOM as R
|
||
|
|
import React.DOM.Props as RP
|
||
|
|
import ReactDOM as RDOM
|
||
|
|
|
||
|
|
import DOM.Node.Element
|
||
|
|
|
||
|
|
import Network.HTTP.Affjax
|
||
|
|
|
||
|
|
import Data.FormURLEncoded as UE
|
||
|
|
|
||
|
|
import Partial.Unsafe
|
||
|
|
|
||
|
|
import Common
|
||
|
|
|
||
|
|
-- main :: forall e. Eff (console :: CONSOLE | e) Unit
|
||
|
|
-- main = do
|
||
|
|
-- log "Hello sailor!"
|
||
|
|
|
||
|
|
main :: forall eff. Eff ( ajax :: AJAX
|
||
|
|
, dom :: DOM
|
||
|
|
, console :: CONSOLE
|
||
|
|
| eff
|
||
|
|
) Unit
|
||
|
|
main =
|
||
|
|
ready $ do
|
||
|
|
activate <- select "#activate"
|
||
|
|
on "click" (onActivateClick activate) activate
|
||
|
|
|
||
|
|
onActivateClick
|
||
|
|
:: forall eff. JQuery
|
||
|
|
-> JQueryEvent
|
||
|
|
-> JQuery
|
||
|
|
-> Eff (dom :: DOM
|
||
|
|
, console :: CONSOLE
|
||
|
|
, ajax :: AJAX
|
||
|
|
| eff
|
||
|
|
) Unit
|
||
|
|
onActivateClick activate ev _ = unsafePartial $ do
|
||
|
|
preventDefault ev
|
||
|
|
token <- getAttr "data-token" activate
|
||
|
|
salt <- getAttr "data-salt" activate
|
||
|
|
fpassword1 <- getValue =<< select "#password1"
|
||
|
|
fpassword2 <- getValue =<< select "#password2"
|
||
|
|
let password1 = fromForeign fpassword1
|
||
|
|
password2 = fromForeign fpassword2
|
||
|
|
if not (isNothing password1 && isNothing password2)
|
||
|
|
then
|
||
|
|
if password1 == password2
|
||
|
|
then do
|
||
|
|
progress "Salting password"
|
||
|
|
let salted = runFn2 hmacSha3 (fromJust password1) salt
|
||
|
|
progress "Requesting account activation..."
|
||
|
|
let dat = UE.encode (UE.fromArray [ Tuple "salted" (Just salted) ]) :: String
|
||
|
|
_ <- runAff
|
||
|
|
(\e -> fail Activate $ show e)
|
||
|
|
(\x -> welcome x.response Activate)
|
||
|
|
$ post ("/activate/" <> token) dat
|
||
|
|
pure unit
|
||
|
|
else
|
||
|
|
fail Activate "Passwords must match"
|
||
|
|
else
|
||
|
|
fail Activate "Passwords error"
|