Make default OAuth token TTL values more user friendly

This commit is contained in:
Mickael Remond 2016-07-23 18:57:57 +02:00
parent 68555ff466
commit bfa61eaa46
No known key found for this signature in database
GPG Key ID: E6F6045D79965AA3
1 changed files with 7 additions and 9 deletions

View File

@ -71,7 +71,7 @@
expire :: integer()
}).
-define(EXPIRE, 3600).
-define(EXPIRE, 31536000).
start() ->
init_db(mnesia, ?MYNAME),
@ -389,12 +389,10 @@ process(_Handlers,
?LABEL(<<"ttl">>, [?CT(<<"Token TTL">>), ?CT(<<": ">>)]),
?XAE(<<"select">>, [{<<"name">>, <<"ttl">>}],
[
?XAC(<<"option">>, [{<<"selected">>, <<"selected">>},
{<<"value">>, jlib:integer_to_binary(expire())}],<<"Default (", (integer_to_binary(expire()))/binary, " seconds)">>),
?XAC(<<"option">>, [{<<"value">>, <<"3600">>}],<<"1 Hour">>),
?XAC(<<"option">>, [{<<"value">>, <<"86400">>}],<<"1 Day">>),
?XAC(<<"option">>, [{<<"value">>, <<"2592000">>}],<<"1 Month">>),
?XAC(<<"option">>, [{<<"value">>, <<"31536000">>}],<<"1 Year">>),
?XAC(<<"option">>, [{<<"selected">>, <<"selected">>},{<<"value">>, <<"31536000">>}],<<"1 Year">>),
?XAC(<<"option">>, [{<<"value">>, <<"315360000">>}],<<"10 Years">>)]),
?BR,
?INPUTT(<<"submit">>, <<"">>, <<"Accept">>)