module Page.Token exposing
    ( Model
    , Msg
    , init
    , update
    , view
    )

import Browser
import Html exposing (Html, h1, h2, li, p, text, ul)
import Http exposing (..)
import Mi exposing (TokenData, expectJson, request, tokenDecoder)
import Page


type alias Model =
    { token : Maybe String
    , token_data : Maybe TokenData
    , error : Maybe String
    }


init : Model
init =
    Model Nothing Nothing Nothing


type Msg
    = GotToken String
    | GotTokenData (Result Http.Error TokenData)


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        GotToken token ->
            ( { model | token = Just token }
            , Mi.request
                "GET"
                token
                "/.within/tokeninfo"
                Http.emptyBody
                (Mi.expectJson GotTokenData tokenDecoder)
            )

        GotTokenData result ->
            case result of
                Ok data ->
                    ( { model | token_data = Just data }
                    , Cmd.none
                    )

                Err (BadUrl val) ->
                    ( { model | error = Just ("bad URL " ++ val) }
                    , Cmd.none
                    )

                Err Timeout ->
                    ( { model | error = Just "Timeout" }
                    , Cmd.none
                    )

                Err NetworkError ->
                    ( { model | error = Just "network error" }
                    , Cmd.none
                    )

                Err (BadStatus code) ->
                    ( { model | error = Just ("bad status code " ++ String.fromInt code) }
                    , Cmd.none
                    )

                Err (BadBody err_msg) ->
                    ( { model | error = Just err_msg }
                    , Cmd.none
                    )


view : Model -> Browser.Document msg
view model =
    case model.token_data of
        Nothing ->
            Page.template "No token data?"
                [ h1 [] [ text "No token data?" ]
                , p [] [ text "this should be impossible" ]
                ]

        Just token_data ->
            Page.template "Mi"
                [ h1 [] [ text "Mi" ]
                , h2 [] [ text "TODO" ]
                , ul []
                    [ li [] [ text "Switch CRUD" ]
                    , li [] [ text "POSSE manual announcement" ]
                    ]
                , h2 [] [ text "Token data" ]
                , p []
                    [ text "Token sub: "
                    , text token_data.sub
                    , Html.br [] []
                    , text "ID: "
                    , text token_data.jti
                    ]
                ]