TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 02:18:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add a flag to imap settings to enable/disable oauth2 scheme

Browse Source
This commit is contained in:
Eike Kettner
2021-01-03 16:36:19 +01:00
parent ac6a7b28be
commit 0cfd8974d3
8 changed files with 69 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
modules/webapp/src/main/elm/Comp/ImapSettingsForm.elm
View File

@ -32,6 +32,7 @@ type alias Model =
, password : Maybe String
, sslType : Comp.Dropdown.Model SSLType
, ignoreCertificates : Bool
, useOAuthToken : Bool
}
@ -58,6 +59,7 @@ emptyModel =
, selected = Just Data.SSLType.None
}
, ignoreCertificates = False
, useOAuthToken = False
}
@ -87,6 +89,7 @@ init ems =
|> Just
}
, ignoreCertificates = ems.ignoreCertificates
, useOAuthToken = ems.useOAuth
}
@ -104,6 +107,7 @@ getSettings model =
|> Maybe.withDefault Data.SSLType.None
|> Data.SSLType.toString
, ignoreCertificates = model.ignoreCertificates
, useOAuth = model.useOAuthToken
}
)
@ -116,6 +120,7 @@ type Msg
| PassMsg Comp.PasswordInput.Msg
| SSLTypeMsg (Comp.Dropdown.Msg SSLType)
| ToggleCheckCert
| ToggleUseOAuth
isValid : Model -> Bool
@ -159,14 +164,17 @@ update msg model =
ToggleCheckCert ->
( { model | ignoreCertificates = not model.ignoreCertificates }, Cmd.none )
ToggleUseOAuth ->
( { model | useOAuthToken = not model.useOAuthToken }, Cmd.none )
view : UiSettings -> Model -> Html Msg
view settings model =
div
[ classList
[ ( "ui form", True )
, ( "error", not (isValid model) )
, ( "success", isValid model )
, ( "info error", not (isValid model) )
, ( "info success", isValid model )
]
]
[ div [ class "required field" ]
@ -227,6 +235,17 @@ view settings model =
, label [] [ text "Ignore certificate check" ]
]
]
, div [ class "inline field" ]
[ div [ class "ui checkbox" ]
[ input
[ type_ "checkbox"
, checked model.useOAuthToken
, onCheck (\_ -> ToggleUseOAuth)
]
[]
, label [] [ text "Enable OAuth2 authentication using the password as access token" ]
]
]
]
, div [ class "two fields" ]
[ div [ class "field" ]