merge: rebase 到最新 main（吸納 PR #15 個人自助指令群）後新增管理端指令群
- main 已合併 PR #15（profile/password/email/sessions/tokens/mfa 與 eqrcode 依賴） - 保留 main 的 self_service 模組與 api.ex 個人自助端點，於其上重套管理端： jwks/accounts/audit-logs 指令、API 端點、CLI 接線、docs §3.8–§3.10、README 表格 - mix precommit 全綠（150 tests：admin 100 + self-service 50）
This commit is contained in:
+133
-2
@@ -2,7 +2,12 @@ defmodule BearCli.Api do
|
||||
@moduledoc """
|
||||
Bear 伺服器 HTTP 介面（一律使用 `Req`）。
|
||||
|
||||
目前僅實作 PAT 模式所需的 `GET /userinfo`。
|
||||
- `GET /userinfo`：PAT 模式身分驗證（issue #6）。
|
||||
- App 管理 API `/api/v1/apps`（alterminal/bear#28；PAT Bearer、admin 限定）。
|
||||
- 個人自助 API `/api/v1/profile*`（alterminal/bear#35；PAT Bearer、
|
||||
任何有效帳號）：profile／密碼／email／sessions／PAT／MFA。
|
||||
- 管理端 API `/api/v1/jwks`/`/api/v1/accounts`/`/api/v1/audit-logs`
|
||||
(alterminal/bear#36; PAT Bearer, admin only).
|
||||
"""
|
||||
|
||||
@finch BearCli.Finch
|
||||
@@ -98,9 +103,132 @@ defmodule BearCli.Api do
|
||||
api_request(issuer, token, :post, "/api/v1/apps/" <> URI.encode(id) <> "/toggle", json: %{})
|
||||
end
|
||||
|
||||
# App 管理 API 共用請求。回傳：
|
||||
# -- 個人自助 API（alterminal/bear#35；PAT Bearer、任何有效帳號）--
|
||||
|
||||
@doc "`GET /api/v1/profile`：完整個人資料（含 MFA 狀態）。"
|
||||
def profile_get(issuer, token) do
|
||||
api_request(issuer, token, :get, "/api/v1/profile")
|
||||
end
|
||||
|
||||
@doc "`PUT /api/v1/profile`：更新個人資料欄位（只送有給的欄位）。"
|
||||
def profile_update(issuer, token, attrs) do
|
||||
api_request(issuer, token, :put, "/api/v1/profile", json: attrs)
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/password`：變更密碼（body：`current_password`、
|
||||
`new_password`、`password_confirmation`；伺服器驗舊密碼，不因 CLI 放寬）。
|
||||
"""
|
||||
def profile_change_password(issuer, token, current_password, new_password) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/password",
|
||||
json: %{
|
||||
current_password: current_password,
|
||||
new_password: new_password,
|
||||
password_confirmation: new_password
|
||||
}
|
||||
)
|
||||
end
|
||||
|
||||
@doc "`POST /api/v1/profile/email/request-codes`：寄發 email 變更雙向驗證碼。"
|
||||
def profile_email_request_codes(issuer, token, new_email) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/email/request-codes",
|
||||
json: %{new_email: new_email}
|
||||
)
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/email`：確認變更 email（body：`new_email`、
|
||||
`current_code`、`new_code`）。
|
||||
"""
|
||||
def profile_email_change(issuer, token, new_email, current_code, new_code) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/email",
|
||||
json: %{new_email: new_email, current_code: current_code, new_code: new_code}
|
||||
)
|
||||
end
|
||||
|
||||
@doc "`GET /api/v1/profile/sessions`：列出作用中 session（新到舊）。"
|
||||
def sessions_list(issuer, token) do
|
||||
api_request(issuer, token, :get, "/api/v1/profile/sessions")
|
||||
end
|
||||
|
||||
@doc "`POST /api/v1/profile/sessions/{id}/revoke`：撤銷單一 session。"
|
||||
def sessions_revoke(issuer, token, id) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/sessions/" <> URI.encode(id) <> "/revoke",
|
||||
json: %{}
|
||||
)
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/sessions/revoke-others`：撤銷其他 session
|
||||
（body `keep` 可省略＝全部撤銷）。
|
||||
"""
|
||||
def sessions_revoke_others(issuer, token, keep \\ nil) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/sessions/revoke-others",
|
||||
json: %{keep: keep} |> Map.reject(fn {_k, v} -> is_nil(v) end)
|
||||
)
|
||||
end
|
||||
|
||||
@doc "`GET /api/v1/profile/tokens`：列出未撤銷的 PAT（新到舊）。"
|
||||
def tokens_list(issuer, token) do
|
||||
api_request(issuer, token, :get, "/api/v1/profile/tokens")
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/tokens`：建立 PAT；明文 `token` 只在成功回應
|
||||
出現一次（body：`name`、`expires_in`＝天數或 `never`）。
|
||||
"""
|
||||
def tokens_create(issuer, token, name, expires_in) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/tokens",
|
||||
json: %{name: name, expires_in: expires_in}
|
||||
)
|
||||
end
|
||||
|
||||
@doc "`POST /api/v1/profile/tokens/{id}/revoke`：撤銷單一 PAT。"
|
||||
def tokens_revoke(issuer, token, id) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/tokens/" <> URI.encode(id) <> "/revoke",
|
||||
json: %{}
|
||||
)
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/mfa/setup`（無 body）：開始 TOTP 設定，回
|
||||
`%{"data" => %{"secret" => ..., "otpauth_uri" => ...}}`。已啟用 MFA 回
|
||||
422 `already_enabled`。
|
||||
"""
|
||||
def mfa_setup(issuer, token) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/mfa/setup", json: %{})
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/mfa/setup/confirm`（body：`code`）：確認設定並
|
||||
啟用 MFA，回一次性 recovery codes。
|
||||
"""
|
||||
def mfa_setup_confirm(issuer, token, code) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/mfa/setup/confirm", json: %{code: code})
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/mfa/disable`（body：`code`＝目前 TOTP 或
|
||||
recovery code）：停用 MFA。
|
||||
"""
|
||||
def mfa_disable(issuer, token, code) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/mfa/disable", json: %{code: code})
|
||||
end
|
||||
|
||||
@doc """
|
||||
`POST /api/v1/profile/mfa/recovery-codes`（body：`code`）：重產一組
|
||||
一次性 recovery codes（舊組全部失效）。
|
||||
"""
|
||||
def mfa_recovery_codes(issuer, token, code) do
|
||||
api_request(issuer, token, :post, "/api/v1/profile/mfa/recovery-codes", json: %{code: code})
|
||||
end
|
||||
|
||||
# -- 共用請求輔助 --
|
||||
|
||||
# 回傳：
|
||||
# {:ok, body} | {:error, :unauthorized, desc} | {:error, :forbidden, desc}
|
||||
# | {:error, :not_found, desc} | {:error, :unprocessable_entity, body}
|
||||
# | {:error, :too_many_requests, body}
|
||||
# | {:error, :server_error, status} | {:error, :network, reason}
|
||||
defp api_request(issuer, token, method, path, extra \\ []) do
|
||||
url = String.trim_trailing(issuer, "/") <> path
|
||||
@@ -129,6 +257,9 @@ defmodule BearCli.Api do
|
||||
{:ok, %Req.Response{status: 422, body: body}} ->
|
||||
{:error, :unprocessable_entity, decode_body(body)}
|
||||
|
||||
{:ok, %Req.Response{status: 429, body: body}} ->
|
||||
{:error, :too_many_requests, decode_body(body)}
|
||||
|
||||
{:ok, %Req.Response{status: status}} ->
|
||||
{:error, :server_error, status}
|
||||
|
||||
|
||||
+281
-1
@@ -8,7 +8,7 @@ defmodule BearCli.CLI do
|
||||
優先使用該值，不讀寫本機憑證檔。
|
||||
"""
|
||||
|
||||
alias BearCli.{Accounts, Admin, Api, Apps, AuditLogs, Config, Credentials, Jwks}
|
||||
alias BearCli.{Accounts, Admin, Api, Apps, AuditLogs, Config, Credentials, Jwks, SelfService}
|
||||
|
||||
@global_switches [
|
||||
issuer: :string,
|
||||
@@ -65,6 +65,39 @@ defmodule BearCli.CLI do
|
||||
@statuses ~w(active inactive)
|
||||
@methods ~w(client_secret PKCE)
|
||||
|
||||
# -- 個人自助指令群（docs/commands.md §3.7）--
|
||||
|
||||
@profile_verbs ~w(show set)
|
||||
@sessions_verbs ~w(list revoke revoke-others)
|
||||
@tokens_verbs ~w(list create revoke)
|
||||
@mfa_verbs ~w(status setup disable recovery-codes)
|
||||
|
||||
@profile_set_switches [
|
||||
name: :string,
|
||||
given_name: :string,
|
||||
family_name: :string,
|
||||
nickname: :string,
|
||||
preferred_username: :string,
|
||||
profile: :string,
|
||||
picture: :string,
|
||||
website: :string,
|
||||
gender: :string,
|
||||
birthdate: :string,
|
||||
zoneinfo: :string,
|
||||
locale: :string,
|
||||
phone_number: :string,
|
||||
phone_verified: :boolean,
|
||||
address_formatted: :string,
|
||||
address_street_address: :string,
|
||||
address_locality: :string,
|
||||
address_region: :string,
|
||||
address_postal_code: :string,
|
||||
address_country: :string
|
||||
]
|
||||
|
||||
@email_switches [new: :string]
|
||||
@tokens_create_switches [name: :string, expires_in: :string]
|
||||
|
||||
# -- escript 入口 --
|
||||
|
||||
@doc "escript 主函式。執行後以 `System.halt/1` 設定退出碼。"
|
||||
@@ -177,6 +210,115 @@ defmodule BearCli.CLI do
|
||||
end
|
||||
end
|
||||
|
||||
defp parse_command("profile", args, global) do
|
||||
case args do
|
||||
[verb | rest] when verb in @profile_verbs ->
|
||||
switches = if verb == "set", do: @profile_set_switches, else: []
|
||||
|
||||
case OptionParser.parse(rest, strict: @global_switches ++ switches) do
|
||||
{opts, positionals, []} ->
|
||||
validate_self_service(
|
||||
:profile,
|
||||
verb,
|
||||
positionals,
|
||||
merge_opts(global, opts_to_map(opts))
|
||||
)
|
||||
|
||||
{_opts, _extra, [{opt, _} | _]} ->
|
||||
{:error, "無法解析選項：#{opt}", 2}
|
||||
end
|
||||
|
||||
[] ->
|
||||
{:error, "profile 缺少子指令（可用：#{Enum.join(@profile_verbs, " ")}）", 2}
|
||||
|
||||
[unknown | _] ->
|
||||
{:error, "未知的 profile 子指令：#{unknown}（可用：#{Enum.join(@profile_verbs, " ")}）", 2}
|
||||
end
|
||||
end
|
||||
|
||||
defp parse_command("password", args, global) do
|
||||
case args do
|
||||
["change" | rest] ->
|
||||
case OptionParser.parse(rest, strict: @global_switches) do
|
||||
{opts, [], []} ->
|
||||
{:ok, {:self_service, :password, :change}, merge_opts(global, opts_to_map(opts))}
|
||||
|
||||
{_opts, extra, []} ->
|
||||
{:error, "password change 不接受參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
{_opts, _extra, [{opt, _} | _]} ->
|
||||
{:error, "無法解析選項：#{opt}", 2}
|
||||
end
|
||||
|
||||
[] ->
|
||||
{:error, "password 缺少子指令（可用：change）", 2}
|
||||
|
||||
[unknown | _] ->
|
||||
{:error, "未知的 password 子指令：#{unknown}（可用：change）", 2}
|
||||
end
|
||||
end
|
||||
|
||||
defp parse_command("email", args, global) do
|
||||
case args do
|
||||
["change" | rest] ->
|
||||
case OptionParser.parse(rest, strict: @global_switches ++ @email_switches) do
|
||||
{opts, [], []} ->
|
||||
{:ok, {:self_service, :email, :change}, merge_opts(global, opts_to_map(opts))}
|
||||
|
||||
{_opts, extra, []} ->
|
||||
{:error, "email change 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
{_opts, _extra, [{opt, _} | _]} ->
|
||||
{:error, "無法解析選項：#{opt}", 2}
|
||||
end
|
||||
|
||||
[] ->
|
||||
{:error, "email 缺少子指令（可用：change）", 2}
|
||||
|
||||
[unknown | _] ->
|
||||
{:error, "未知的 email 子指令：#{unknown}（可用：change）", 2}
|
||||
end
|
||||
end
|
||||
|
||||
defp parse_command("sessions", args, global) do
|
||||
case args do
|
||||
[verb | rest] when verb in @sessions_verbs ->
|
||||
parse_group_verb("sessions", verb, rest, [], global)
|
||||
|
||||
[] ->
|
||||
{:error, "sessions 缺少子指令（可用：#{Enum.join(@sessions_verbs, " ")}）", 2}
|
||||
|
||||
[unknown | _] ->
|
||||
{:error, "未知的 sessions 子指令：#{unknown}（可用：#{Enum.join(@sessions_verbs, " ")}）", 2}
|
||||
end
|
||||
end
|
||||
|
||||
defp parse_command("tokens", args, global) do
|
||||
case args do
|
||||
[verb | rest] when verb in @tokens_verbs ->
|
||||
parse_group_verb("tokens", verb, rest, [], global)
|
||||
|
||||
[] ->
|
||||
{:error, "tokens 缺少子指令（可用：#{Enum.join(@tokens_verbs, " ")}）", 2}
|
||||
|
||||
[unknown | _] ->
|
||||
{:error, "未知的 tokens 子指令：#{unknown}（可用：#{Enum.join(@tokens_verbs, " ")}）", 2}
|
||||
end
|
||||
end
|
||||
|
||||
defp parse_command("mfa", args, global) do
|
||||
case args do
|
||||
[verb | rest] when verb in @mfa_verbs ->
|
||||
parse_group_verb("mfa", verb, rest, [], global)
|
||||
|
||||
[] ->
|
||||
{:error, "mfa 缺少子指令（可用：#{Enum.join(@mfa_verbs, " ")}）", 2}
|
||||
|
||||
[unknown | _] ->
|
||||
{:error, "未知的 mfa 子指令：#{unknown}（可用：#{Enum.join(@mfa_verbs, " ")}）", 2}
|
||||
end
|
||||
end
|
||||
|
||||
# 管理端指令群（jwks/accounts/audit-logs；解析委由 BearCli.Admin）
|
||||
defp parse_command(group, args, global) when group in ~w(jwks accounts audit-logs) do
|
||||
case Admin.parse([group | args], global) do
|
||||
@@ -189,6 +331,22 @@ defmodule BearCli.CLI do
|
||||
{:error, "未知指令：#{unknown}（可用 bear --help 查看說明）", 2}
|
||||
end
|
||||
|
||||
# sessions／tokens／mfa 共用：verb 已驗證合法後解析選項與位置參數。
|
||||
defp parse_group_verb(group, verb, rest, extra_switches, global) do
|
||||
switches = group_switches(group, verb) ++ extra_switches
|
||||
|
||||
case OptionParser.parse(rest, strict: @global_switches ++ switches) do
|
||||
{opts, positionals, []} ->
|
||||
validate_self_service(group, verb, positionals, merge_opts(global, opts_to_map(opts)))
|
||||
|
||||
{_opts, _extra, [{opt, _} | _]} ->
|
||||
{:error, "無法解析選項：#{opt}", 2}
|
||||
end
|
||||
end
|
||||
|
||||
defp group_switches("tokens", "create"), do: @tokens_create_switches
|
||||
defp group_switches(_group, _verb), do: []
|
||||
|
||||
defp parse_opts(args, switches) do
|
||||
case OptionParser.parse(args, strict: switches) do
|
||||
{opts, [], []} ->
|
||||
@@ -310,6 +468,92 @@ defmodule BearCli.CLI do
|
||||
{:error, "#{flag} 不接受的值：#{value}（可用：#{Enum.join(allowed, "、")}）", 2}
|
||||
end
|
||||
|
||||
# -- 個人自助指令群解析輔助（§3.7）--
|
||||
|
||||
# 各群組的位置參數驗證；通過後回 {:ok, {:self_service, group, verb}, opts}。
|
||||
defp validate_self_service(:profile, "show", [], opts),
|
||||
do: {:ok, {:self_service, :profile, :show}, opts}
|
||||
|
||||
defp validate_self_service(:profile, "show", extra, _opts),
|
||||
do: {:error, "profile show 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service(:profile, "set", [], opts),
|
||||
do: {:ok, {:self_service, :profile, :set}, opts}
|
||||
|
||||
defp validate_self_service(:profile, "set", extra, _opts),
|
||||
do: {:error, "profile set 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("sessions", "list", [], opts),
|
||||
do: {:ok, {:self_service, :sessions, :list}, opts}
|
||||
|
||||
defp validate_self_service("sessions", "list", extra, _opts),
|
||||
do: {:error, "sessions list 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("sessions", "revoke", [id], opts),
|
||||
do: {:ok, {:self_service, :sessions, :revoke}, Map.put(opts, :id_arg, id)}
|
||||
|
||||
defp validate_self_service("sessions", "revoke", [], _opts),
|
||||
do: {:error, "sessions revoke 缺少 <id>", 2}
|
||||
|
||||
defp validate_self_service("sessions", "revoke", extra, _opts),
|
||||
do: {:error, "sessions revoke 只接受一個 <id>（多餘：#{Enum.join(Enum.drop(extra, 1), " ")}）", 2}
|
||||
|
||||
defp validate_self_service("sessions", "revoke-others", [], opts),
|
||||
do: {:ok, {:self_service, :sessions, :"revoke-others"}, opts}
|
||||
|
||||
defp validate_self_service("sessions", "revoke-others", extra, _opts),
|
||||
do: {:error, "sessions revoke-others 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("tokens", "list", [], opts),
|
||||
do: {:ok, {:self_service, :tokens, :list}, opts}
|
||||
|
||||
defp validate_self_service("tokens", "list", extra, _opts),
|
||||
do: {:error, "tokens list 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("tokens", "create", [], opts) do
|
||||
if blank?(opts[:name]) do
|
||||
{:error, "tokens create 缺少 --name NAME", 2}
|
||||
else
|
||||
{:ok, {:self_service, :tokens, :create}, opts}
|
||||
end
|
||||
end
|
||||
|
||||
defp validate_self_service("tokens", "create", extra, _opts),
|
||||
do: {:error, "tokens create 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("tokens", "revoke", [id], opts),
|
||||
do: {:ok, {:self_service, :tokens, :revoke}, Map.put(opts, :id_arg, id)}
|
||||
|
||||
defp validate_self_service("tokens", "revoke", [], _opts),
|
||||
do: {:error, "tokens revoke 缺少 <id>", 2}
|
||||
|
||||
defp validate_self_service("tokens", "revoke", extra, _opts),
|
||||
do: {:error, "tokens revoke 只接受一個 <id>（多餘：#{Enum.join(Enum.drop(extra, 1), " ")}）", 2}
|
||||
|
||||
defp validate_self_service("mfa", "status", [], opts),
|
||||
do: {:ok, {:self_service, :mfa, :status}, opts}
|
||||
|
||||
defp validate_self_service("mfa", "status", extra, _opts),
|
||||
do: {:error, "mfa status 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("mfa", "setup", [], opts),
|
||||
do: {:ok, {:self_service, :mfa, :setup}, opts}
|
||||
|
||||
defp validate_self_service("mfa", "setup", extra, _opts),
|
||||
do: {:error, "mfa setup 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("mfa", "disable", [], opts),
|
||||
do: {:ok, {:self_service, :mfa, :disable}, opts}
|
||||
|
||||
defp validate_self_service("mfa", "disable", extra, _opts),
|
||||
do: {:error, "mfa disable 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp validate_self_service("mfa", "recovery-codes", [], opts),
|
||||
do: {:ok, {:self_service, :mfa, :"recovery-codes"}, opts}
|
||||
|
||||
defp validate_self_service("mfa", "recovery-codes", extra, _opts),
|
||||
do: {:error, "mfa recovery-codes 不接受位置參數：#{Enum.join(extra, " ")}", 2}
|
||||
|
||||
defp merge_opts(global, opts) do
|
||||
Map.merge(Map.new(global), Map.new(opts))
|
||||
end
|
||||
@@ -353,6 +597,12 @@ defmodule BearCli.CLI do
|
||||
apps_api = cmd_opts[:apps_api] || opts[:apps_api] || Api
|
||||
Apps.run(verb, Map.put(cmd_opts, :apps_api, apps_api))
|
||||
|
||||
# 個人自助指令群（{:ok, {:self_service, group, verb}, opts} 形狀）
|
||||
{:ok, {:self_service, group, verb}, cmd_opts} when is_atom(group) and is_atom(verb) ->
|
||||
inject_opts = opts |> Map.new() |> Map.take([:ss_api, :io, :tty?])
|
||||
ss_opts = Map.merge(inject_opts, Map.take(cmd_opts, [:ss_api, :io, :tty?]))
|
||||
SelfService.run(group, verb, Map.merge(cmd_opts, ss_opts))
|
||||
|
||||
# 管理端指令群（jwks/accounts/audit-logs；各自注入對應的 api 模組）
|
||||
{:ok, {Jwks, verb}, cmd_opts} when is_atom(verb) ->
|
||||
jwks_api = cmd_opts[:jwks_api] || opts[:jwks_api] || Api
|
||||
@@ -677,6 +927,12 @@ defmodule BearCli.CLI do
|
||||
jwks <動詞> 簽章金鑰管理（admin）
|
||||
accounts <動詞> 帳號管理（admin）
|
||||
audit-logs list 稽核日誌（admin）
|
||||
profile <動詞> 個人資料（show／set）
|
||||
password change 變更密碼（互動輸入，不進 shell history）
|
||||
email change --new E 變更 email（雙向驗證碼流程）
|
||||
sessions <動詞> 管理網頁 session（list／revoke／revoke-others）
|
||||
tokens <動詞> 管理 PAT（list／create／revoke）
|
||||
mfa <動詞> TOTP 兩因子（status／setup／disable／recovery-codes）
|
||||
|
||||
apps 指令群（需 admin 權限的 PAT）：
|
||||
apps list [--visibility public|internal] [--status active|inactive]
|
||||
@@ -690,6 +946,30 @@ defmodule BearCli.CLI do
|
||||
apps rotate-secret <client-id>
|
||||
apps toggle <client-id>
|
||||
|
||||
個人自助指令群（任何有效 PAT 皆可）：
|
||||
profile show
|
||||
profile set [--name NAME] [--given-name NAME] [--family-name NAME]
|
||||
[--nickname NAME] [--preferred-username NAME]
|
||||
[--profile URL] [--picture URL] [--website URL]
|
||||
[--gender male|female|other] [--birthdate YYYY-MM-DD]
|
||||
[--zoneinfo TZ] [--locale LOC] [--phone-number E164]
|
||||
[--phone-verified] [--address-formatted TEXT]
|
||||
[--address-street-address TEXT] [--address-locality TEXT]
|
||||
[--address-region TEXT] [--address-postal-code TEXT]
|
||||
[--address-country TEXT]
|
||||
password change
|
||||
email change --new EMAIL
|
||||
sessions list
|
||||
sessions revoke <id>
|
||||
sessions revoke-others
|
||||
tokens list
|
||||
tokens create --name NAME [--expires-in DAYS|never]
|
||||
tokens revoke <id>
|
||||
mfa status
|
||||
mfa setup
|
||||
mfa disable
|
||||
mfa recovery-codes
|
||||
|
||||
全域選項：
|
||||
--issuer URL Bear（OIDC Provider）位址（預設 https://alterminal.com）
|
||||
--config PATH 設定檔路徑（預設 ~/.config/bear/config.json）
|
||||
|
||||
@@ -0,0 +1,775 @@
|
||||
defmodule BearCli.SelfService do
|
||||
@moduledoc """
|
||||
`bear` 個人自助指令群（docs/commands.md §3.7、issue #11）。
|
||||
|
||||
對應伺服器端個人自助 JSON API（alterminal/bear#35，`/api/v1/profile*`、
|
||||
PAT Bearer、任何有效帳號）：profile／password／email／sessions／
|
||||
tokens／mfa。
|
||||
|
||||
- 敏感輸入（密碼、email／MFA 驗證碼）一律互動提示讀取且不回顧，
|
||||
不接受命令列明文參數；非 TTY 環境 → 退出碼 2。
|
||||
- 一次性明文（`tokens create` 的 PAT、`mfa` 的 recovery codes）只於
|
||||
成功當下輸出於 stdout，不寫入憑證檔／log／`--verbose` 輸出。
|
||||
|
||||
退出碼：0 成功；1 404／422／429；2 用法錯誤（含非 TTY 的互動輸入）；
|
||||
3 未登入或 401；6 網路／伺服器錯誤；8 權限不足（403）。
|
||||
"""
|
||||
|
||||
alias BearCli.{Api, Config, Credentials}
|
||||
|
||||
@genders ~w(male female other)
|
||||
|
||||
# profile set 的可更新欄位：CLI 選項名（atom）→ API 欄位名。
|
||||
@profile_set_fields [
|
||||
name: "name",
|
||||
given_name: "given_name",
|
||||
family_name: "family_name",
|
||||
nickname: "nickname",
|
||||
preferred_username: "preferred_username",
|
||||
profile: "profile",
|
||||
picture: "picture",
|
||||
website: "website",
|
||||
gender: "gender",
|
||||
birthdate: "birthdate",
|
||||
zoneinfo: "zoneinfo",
|
||||
locale: "locale",
|
||||
phone_number: "phone_number",
|
||||
phone_verified: "phone_number_verified",
|
||||
address_formatted: "address_formatted",
|
||||
address_street_address: "address_street_address",
|
||||
address_locality: "address_locality",
|
||||
address_region: "address_region",
|
||||
address_postal_code: "address_postal_code",
|
||||
address_country: "address_country"
|
||||
]
|
||||
|
||||
@url_fields ~w(profile picture website)
|
||||
|
||||
# -- 入口 --
|
||||
|
||||
@doc """
|
||||
執行個人自助指令，回傳退出碼。`group` 為 :profile／:password／:email／
|
||||
:sessions／:tokens／:mfa，`verb` 為子指令 atom，`opts` 為解析後選項。
|
||||
|
||||
`opts[:ss_api]` 可注入假 API 模組供測試；`opts[:io]` 可注入互動輸入
|
||||
模組（實作 `prompt_secret/1`），`opts[:tty?]` 可覆寫 TTY 判定。
|
||||
"""
|
||||
def run(group, verb, opts) do
|
||||
api = opts[:ss_api] || Api
|
||||
|
||||
with {:ok, ctx} <- context(opts) do
|
||||
execute(group, verb, ctx, opts, api)
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
# -- 各指令實作（execute/5 子句群）--
|
||||
|
||||
defp execute(:profile, :show, ctx, opts, api) do
|
||||
case api.profile_get(ctx.issuer, ctx.token) do
|
||||
{:ok, body} ->
|
||||
show_profile(body["data"] || %{}, opts)
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:profile, :set, ctx, opts, api) do
|
||||
case build_profile_attrs(opts) do
|
||||
{:ok, attrs} ->
|
||||
case api.profile_update(ctx.issuer, ctx.token, attrs) do
|
||||
{:ok, body} ->
|
||||
show_profile(body["data"] || %{}, opts)
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
|
||||
{:error, message, code} ->
|
||||
fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:password, :change, ctx, opts, api) do
|
||||
with {:ok, {current, new}} <- read_password_prompts(opts) do
|
||||
case api.profile_change_password(ctx.issuer, ctx.token, current, new) do
|
||||
{:ok, _body} ->
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true}))
|
||||
else
|
||||
IO.puts("密碼已變更")
|
||||
IO.puts("提醒：變更密碼不自動撤銷其他 session；需要時另用 bear sessions revoke-others。")
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:email, :change, ctx, opts, api) do
|
||||
# OptionParser 把 --new EMAIL 正規化為 :new（底線）。
|
||||
new_email = opts[:new] || opts[:new_email]
|
||||
|
||||
with :ok <- require_new_email(new_email),
|
||||
{:ok, {current_code, new_code}} <- request_and_read_codes(ctx, opts, api, new_email) do
|
||||
case api.profile_email_change(ctx.issuer, ctx.token, new_email, current_code, new_code) do
|
||||
{:ok, body} ->
|
||||
updated = (body["data"] || %{})["email"] || new_email
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, email: updated}))
|
||||
else
|
||||
IO.puts("email 已更新：#{updated}")
|
||||
IO.puts("提醒：bear login 用的 PAT 不綁 email，不受影響。")
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:sessions, :list, ctx, opts, api) do
|
||||
case api.sessions_list(ctx.issuer, ctx.token) do
|
||||
{:ok, body} ->
|
||||
sessions = body["data"] || []
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, sessions: sessions}))
|
||||
else
|
||||
print_sessions_table(sessions)
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:sessions, :revoke, ctx, opts, api) do
|
||||
id = opts[:id_arg]
|
||||
|
||||
with :ok <- require_id(id, "sessions revoke") do
|
||||
case api.sessions_revoke(ctx.issuer, ctx.token, id) do
|
||||
{:ok, _body} ->
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, revoked: id}))
|
||||
else
|
||||
IO.puts("session 已撤銷")
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:sessions, :"revoke-others", ctx, opts, api) do
|
||||
case api.sessions_revoke_others(ctx.issuer, ctx.token) do
|
||||
{:ok, body} ->
|
||||
count = (body["data"] || %{})["revoked_count"]
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, revoked: count}))
|
||||
else
|
||||
IO.puts("已撤銷 #{count} 個其他 session")
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:tokens, :list, ctx, opts, api) do
|
||||
case api.tokens_list(ctx.issuer, ctx.token) do
|
||||
{:ok, body} ->
|
||||
tokens = body["data"] || []
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, tokens: tokens}))
|
||||
else
|
||||
print_tokens_table(tokens)
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:tokens, :create, ctx, opts, api) do
|
||||
name = opts[:name]
|
||||
|
||||
with {:ok, expires_in} <- parse_expires_in(opts[:expires_in]) do
|
||||
case api.tokens_create(ctx.issuer, ctx.token, name, expires_in) do
|
||||
{:ok, body} ->
|
||||
token = body["data"] || %{}
|
||||
raw = body["token"]
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, token: token, raw: raw}))
|
||||
else
|
||||
expires_at = token["expires_at"]
|
||||
expiry_note = if expires_at, do: "（#{expires_at} 到期）", else: "（無到期日）"
|
||||
|
||||
IO.puts("PAT 已建立：#{token["name"]}#{expiry_note}")
|
||||
IO.puts("token（只顯示這一次，請立即保存）：")
|
||||
IO.puts(" #{raw}")
|
||||
IO.puts("提醒：新 PAT 要使用須另以 bear login --token 登入（或設 BEAR_TOKEN）。")
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:tokens, :revoke, ctx, opts, api) do
|
||||
id = opts[:id_arg]
|
||||
|
||||
with :ok <- require_id(id, "tokens revoke") do
|
||||
case api.tokens_revoke(ctx.issuer, ctx.token, id) do
|
||||
{:ok, body} ->
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, revoked: (body["data"] || %{})["revoked"] || id}))
|
||||
else
|
||||
IO.puts("PAT 已撤銷")
|
||||
end
|
||||
|
||||
# 撤銷目前憑證用的 PAT 時，後續指令會得 401；本機憑證檔只存 PAT
|
||||
# 明文、未存 token id，CLI 無法可靠比對，一律提示重新登入的退路。
|
||||
IO.puts(
|
||||
:stderr,
|
||||
"提醒：若撤銷的是本機憑證所用的 PAT，後續指令會得到 401；屆時重新 bear login。"
|
||||
)
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:mfa, :status, ctx, opts, api) do
|
||||
case api.profile_get(ctx.issuer, ctx.token) do
|
||||
{:ok, body} ->
|
||||
data = body["data"] || %{}
|
||||
enabled = data["mfa_enabled"] || data["totp_enabled"] || false
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, totp_enabled: enabled}))
|
||||
else
|
||||
IO.puts("MFA（TOTP）：#{if enabled, do: "已啟用", else: "未啟用"}")
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:mfa, :setup, ctx, opts, api) do
|
||||
with {:ok, _data} <- mfa_begin(ctx, opts, api),
|
||||
{:ok, code} <- prompt_secret(opts, "6 位驗證碼（掃描 QR 後由驗證器產生）") do
|
||||
case api.mfa_setup_confirm(ctx.issuer, ctx.token, code) do
|
||||
{:ok, body} ->
|
||||
codes = (body["data"] || %{})["recovery_codes"] || []
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, recovery_codes: codes}))
|
||||
else
|
||||
IO.puts("MFA 已啟用。")
|
||||
print_recovery_codes(codes)
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:mfa, :disable, ctx, opts, api) do
|
||||
with {:ok, code} <- prompt_secret(opts, "目前的 TOTP 碼或 recovery code") do
|
||||
case api.mfa_disable(ctx.issuer, ctx.token, code) do
|
||||
{:ok, _body} ->
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true}))
|
||||
else
|
||||
IO.puts("MFA 已停用")
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
defp execute(:mfa, :"recovery-codes", ctx, opts, api) do
|
||||
with {:ok, code} <- prompt_secret(opts, "目前的 TOTP 碼或 recovery code") do
|
||||
case api.mfa_recovery_codes(ctx.issuer, ctx.token, code) do
|
||||
{:ok, body} ->
|
||||
codes = (body["data"] || %{})["recovery_codes"] || []
|
||||
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, recovery_codes: codes}))
|
||||
else
|
||||
print_recovery_codes(codes)
|
||||
end
|
||||
|
||||
0
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
fail_api(opts, ctx, error)
|
||||
end
|
||||
else
|
||||
{:error, message, code} -> fail(opts, message, code)
|
||||
end
|
||||
end
|
||||
|
||||
# -- 共用背景（token／issuer）--
|
||||
|
||||
defp context(opts) do
|
||||
if token = Config.env_token() do
|
||||
# BEAR_TOKEN 優先於憑證檔（不讀檔、不寫檔）。
|
||||
{:ok, %{token: token, issuer: resolve_issuer(opts, nil)}}
|
||||
else
|
||||
case Credentials.load() do
|
||||
{:ok, creds} ->
|
||||
token = creds["access_token"]
|
||||
|
||||
if blank?(token) do
|
||||
{:error, "憑證檔缺少 access_token，請重新 bear login", 7}
|
||||
else
|
||||
{:ok, %{token: token, issuer: resolve_issuer(opts, creds["issuer"])}}
|
||||
end
|
||||
|
||||
:error ->
|
||||
{:error, "未登入（請先執行 bear login）", 3}
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
defp resolve_issuer(opts, stored_issuer) do
|
||||
opts[:issuer] || stored_issuer || Config.resolve_issuer(nil, opts[:config])
|
||||
end
|
||||
|
||||
# -- profile set 屬性組裝與本地驗證 --
|
||||
|
||||
# 只送有給的欄位（§3.7.2）；非法值本地檢查 → 用法錯誤 2，不發請求。
|
||||
defp build_profile_attrs(opts) do
|
||||
given =
|
||||
@profile_set_fields
|
||||
|> Enum.flat_map(fn {opt_key, api_key} ->
|
||||
case Map.get(opts, opt_key) do
|
||||
v when is_binary(v) and v != "" -> [{api_key, v}]
|
||||
true -> [{api_key, true}]
|
||||
_other -> []
|
||||
end
|
||||
end)
|
||||
|> Map.new()
|
||||
|
||||
cond do
|
||||
given == %{} ->
|
||||
{:error, "profile set 未給任何欄位（可用選項見 bear --help）", 2}
|
||||
|
||||
invalid_gender?(given) ->
|
||||
{:error, "--gender 不接受的值：#{given["gender"]}（可用：#{Enum.join(@genders, "、")}）", 2}
|
||||
|
||||
true ->
|
||||
check_url_fields(given)
|
||||
end
|
||||
end
|
||||
|
||||
defp invalid_gender?(%{"gender" => g}), do: g not in @genders
|
||||
defp invalid_gender?(_), do: false
|
||||
|
||||
# URL 類欄位本地檢查 http(s)://（§3.7.2）。
|
||||
defp check_url_fields(given) do
|
||||
bad =
|
||||
Enum.find(@url_fields, fn field ->
|
||||
case given[field] do
|
||||
v when is_binary(v) ->
|
||||
not (String.starts_with?(v, "http://") or String.starts_with?(v, "https://"))
|
||||
|
||||
_ ->
|
||||
false
|
||||
end
|
||||
end)
|
||||
|
||||
case bad do
|
||||
nil -> {:ok, given}
|
||||
field -> {:error, "--#{String.replace(field, "_", "-")} 需為 http(s):// 開頭的 URL", 2}
|
||||
end
|
||||
end
|
||||
|
||||
# -- password 互動輸入 --
|
||||
|
||||
defp read_password_prompts(opts) do
|
||||
with {:ok, current} <- prompt_secret(opts, "目前密碼"),
|
||||
{:ok, new} <- prompt_secret(opts, "新密碼"),
|
||||
{:ok, confirm} <- prompt_secret(opts, "確認新密碼") do
|
||||
if new == confirm do
|
||||
{:ok, {current, new}}
|
||||
else
|
||||
# 兩次新密碼不一致 → 本地檢查，不發請求（§3.7.3）。
|
||||
{:error, "兩次輸入的新密碼不一致", 2}
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
# -- email 流程輔助 --
|
||||
|
||||
defp require_new_email(nil), do: {:error, "email change 缺少 --new EMAIL", 2}
|
||||
defp require_new_email(""), do: {:error, "email change 缺少 --new EMAIL", 2}
|
||||
defp require_new_email(_), do: :ok
|
||||
|
||||
defp request_and_read_codes(ctx, opts, api, new_email) do
|
||||
case api.profile_email_request_codes(ctx.issuer, ctx.token, new_email) do
|
||||
{:ok, _body} ->
|
||||
IO.puts(:stderr, "驗證碼已寄至現有信箱與 #{new_email}，請查收。")
|
||||
|
||||
with {:ok, current_code} <- prompt_secret(opts, "現有信箱驗證碼"),
|
||||
{:ok, new_code} <- prompt_secret(opts, "新信箱驗證碼") do
|
||||
{:ok, {current_code, new_code}}
|
||||
end
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
{message, code} = format_api_error(ctx, error)
|
||||
{:error, message, code}
|
||||
end
|
||||
end
|
||||
|
||||
# -- tokens create 選項 --
|
||||
|
||||
# --expires-in：正整數天數或 never；預設 30（§3.7.6）。
|
||||
defp parse_expires_in(nil), do: {:ok, "30"}
|
||||
defp parse_expires_in("never"), do: {:ok, "never"}
|
||||
|
||||
defp parse_expires_in(value) when is_binary(value) do
|
||||
case Integer.parse(value) do
|
||||
{n, ""} when n > 0 -> {:ok, value}
|
||||
_ -> {:error, "--expires-in 需為正整數天數或 never", 2}
|
||||
end
|
||||
end
|
||||
|
||||
# -- mfa setup 第一步 --
|
||||
|
||||
defp mfa_begin(ctx, opts, api) do
|
||||
case api.mfa_setup(ctx.issuer, ctx.token) do
|
||||
{:ok, body} ->
|
||||
data = body["data"] || %{}
|
||||
secret = data["secret"]
|
||||
uri = data["otpauth_uri"]
|
||||
|
||||
if opts[:json] do
|
||||
# 兩步互動流程：第一步資訊走 stderr（stdout 保留給最終結果 JSON，
|
||||
# 維持單一 JSON 物件的機器可讀輸出）。
|
||||
IO.puts(
|
||||
:stderr,
|
||||
Jason.encode!(%{step: "setup", secret: secret, otpauth_uri: uri})
|
||||
)
|
||||
else
|
||||
IO.puts("請用驗證器（Google Authenticator 等）掃描 QR，或手動輸入：")
|
||||
IO.puts(" otpauth URI：#{uri}")
|
||||
IO.puts(" secret（Base32）：#{secret}")
|
||||
print_qr(uri)
|
||||
end
|
||||
|
||||
{:ok, data}
|
||||
|
||||
{:error, _kind, _detail} = error ->
|
||||
{message, code} = format_api_error(ctx, error)
|
||||
{:error, message, code}
|
||||
end
|
||||
end
|
||||
|
||||
# -- 互動輸入 --
|
||||
|
||||
# 敏感輸入一律互動提示讀取且不回顯；非 TTY → 退出碼 2（§3.7 群組共通）。
|
||||
# 測試可注入 opts[:io]（實作 prompt_secret/1）與 opts[:tty?]。
|
||||
defp prompt_secret(opts, label) do
|
||||
tty? = Map.get(opts, :tty?, true)
|
||||
io = opts[:io]
|
||||
|
||||
cond do
|
||||
not tty? ->
|
||||
{:error, "此指令需要互動輸入（#{label}），請在終端機執行", 2}
|
||||
|
||||
io ->
|
||||
case io.prompt_secret(label) do
|
||||
:eof -> {:error, "未讀到輸入（#{label}）", 2}
|
||||
{:ok, value} -> {:ok, value}
|
||||
end
|
||||
|
||||
true ->
|
||||
# 非 TTY（pipe／redirect）讀不到互動輸入 → 退出碼 2（§3.7 群組共通）。
|
||||
if tty_stdin?() do
|
||||
case IO.gets("#{label}：") do
|
||||
:eof -> {:error, "未讀到輸入（#{label}）", 2}
|
||||
line -> {:ok, String.trim(line)}
|
||||
end
|
||||
else
|
||||
{:error, "此指令需要互動輸入（#{label}），請在終端機執行", 2}
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
# :io.rows/0 僅在終端機裝置成功；pipe／檔案重導回 {:error, :enotsup}。
|
||||
defp tty_stdin? do
|
||||
match?({:ok, _}, :io.rows())
|
||||
end
|
||||
|
||||
# -- 輸出 --
|
||||
|
||||
@profile_fields ~w(id email role name given_name family_name nickname preferred_username profile picture website gender birthdate zoneinfo locale phone_number phone_number_verified address mfa_enabled created_at updated_at)
|
||||
|
||||
defp show_profile(profile, opts) do
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: true, profile: profile}))
|
||||
else
|
||||
Enum.each(@profile_fields, fn key ->
|
||||
if Map.has_key?(profile, key) do
|
||||
IO.puts("#{String.pad_trailing(key, 22)}: #{format_value(profile[key])}")
|
||||
end
|
||||
end)
|
||||
end
|
||||
end
|
||||
|
||||
defp format_value(nil), do: "(無)"
|
||||
defp format_value(true), do: "true"
|
||||
defp format_value(false), do: "false"
|
||||
defp format_value(v) when is_binary(v), do: v
|
||||
defp format_value(v) when is_number(v), do: to_string(v)
|
||||
defp format_value(v), do: Jason.encode!(v)
|
||||
|
||||
@sessions_headers ["ID", "IP", "USER AGENT", "CREATED", "LAST SEEN"]
|
||||
|
||||
defp print_sessions_table(sessions) do
|
||||
rows =
|
||||
Enum.map(sessions, fn s ->
|
||||
[
|
||||
s["id"] || "",
|
||||
s["ip"] || "",
|
||||
truncate(s["user_agent"] || "", 28),
|
||||
s["created_at"] || "",
|
||||
s["last_seen_at"] || ""
|
||||
]
|
||||
end)
|
||||
|
||||
print_table(@sessions_headers, rows)
|
||||
end
|
||||
|
||||
@tokens_headers ["ID", "NAME", "SCOPE", "CREATED", "EXPIRES", "LAST USED", "STATUS"]
|
||||
|
||||
defp print_tokens_table(tokens) do
|
||||
rows =
|
||||
Enum.map(tokens, fn t ->
|
||||
[
|
||||
t["id"] || "",
|
||||
t["name"] || "",
|
||||
t["scope"] || "",
|
||||
t["created_at"] || "",
|
||||
t["expires_at"] || "(無到期)",
|
||||
t["last_used_at"] || "(未使用)",
|
||||
token_status(t)
|
||||
]
|
||||
end)
|
||||
|
||||
print_table(@tokens_headers, rows)
|
||||
end
|
||||
|
||||
# list 僅回未撤銷 token；STATUS 依 expires_at 本地判定（§3.7.6）。
|
||||
defp token_status(%{"expires_at" => nil}), do: "active"
|
||||
|
||||
defp token_status(%{"expires_at" => expires_at}) when is_binary(expires_at) do
|
||||
case DateTime.from_iso8601(expires_at) do
|
||||
{:ok, dt, _} ->
|
||||
if DateTime.compare(dt, DateTime.utc_now()) == :gt, do: "active", else: "expired"
|
||||
|
||||
_ ->
|
||||
"active"
|
||||
end
|
||||
end
|
||||
|
||||
defp token_status(_), do: "active"
|
||||
|
||||
defp print_table(headers, rows) do
|
||||
widths =
|
||||
Enum.with_index(headers, fn _h, i ->
|
||||
Enum.max([
|
||||
String.length(Enum.at(headers, i))
|
||||
| Enum.map(rows, &String.length(Enum.at(&1, i)))
|
||||
])
|
||||
end)
|
||||
|
||||
render_row = fn cells ->
|
||||
cells
|
||||
|> Enum.with_index()
|
||||
|> Enum.map(fn {cell, i} -> String.pad_trailing(to_string(cell), Enum.at(widths, i)) end)
|
||||
|> Enum.join(" ")
|
||||
|> String.trim_trailing()
|
||||
end
|
||||
|
||||
IO.puts(render_row.(headers))
|
||||
|
||||
case rows do
|
||||
[] -> IO.puts("(無資料)")
|
||||
_ -> Enum.each(rows, fn cells -> IO.puts(render_row.(cells)) end)
|
||||
end
|
||||
end
|
||||
|
||||
defp truncate(text, max) do
|
||||
if String.length(text) > max do
|
||||
String.slice(text, 0, max - 1) <> "…"
|
||||
else
|
||||
text
|
||||
end
|
||||
end
|
||||
|
||||
# recovery codes 只顯示一次（同 PAT 明文處理）。
|
||||
defp print_recovery_codes([]), do: IO.puts("(伺服器未回傳 recovery codes)")
|
||||
|
||||
defp print_recovery_codes(codes) do
|
||||
IO.puts("recovery codes（只顯示這一次，請立即保存；舊組全部失效）：")
|
||||
|
||||
Enum.each(codes, fn code ->
|
||||
IO.puts(" #{code}")
|
||||
end)
|
||||
end
|
||||
|
||||
# QR 由 CLI 本地生成（eqrcode），不經伺服器（§3.7.7）。產生失敗不阻斷流程，
|
||||
# 只印 URI 與 secret 供手動輸入。
|
||||
defp print_qr(uri) do
|
||||
qr = EQRCode.encode(uri)
|
||||
m = qr.matrix
|
||||
|
||||
IO.puts("QR（掃碼加入驗證器）：")
|
||||
|
||||
for i <- 0..(tuple_size(m) - 1) do
|
||||
row =
|
||||
for j <- 0..(tuple_size(m) - 1) do
|
||||
if elem(elem(m, i), j) == 1, do: "██", else: " "
|
||||
end
|
||||
|
||||
IO.puts(Enum.join(row))
|
||||
end
|
||||
rescue
|
||||
_ -> IO.puts(:stderr, "（QR 產生失敗，請手動輸入上列 otpauth URI／secret）")
|
||||
end
|
||||
|
||||
# -- 錯誤處理 --
|
||||
|
||||
defp fail_api(opts, ctx, error) do
|
||||
{message, code} = format_api_error(ctx, error)
|
||||
fail(opts, message, code)
|
||||
end
|
||||
|
||||
# API 錯誤 → 依 §3.7 群組共通退出碼輸出，回傳退出碼。
|
||||
defp format_api_error(_ctx, {:error, :unauthorized, desc}) do
|
||||
{"token 無效或已過期（#{desc}），請重新 bear login", 3}
|
||||
end
|
||||
|
||||
defp format_api_error(_ctx, {:error, :forbidden, desc}) do
|
||||
{"權限不足（HTTP 403：#{desc}）", 8}
|
||||
end
|
||||
|
||||
defp format_api_error(_ctx, {:error, :not_found, _desc}) do
|
||||
{"找不到目標（HTTP 404）", 1}
|
||||
end
|
||||
|
||||
# 語意錯誤（same_email／email_taken／invalid_code／already_enabled 等）。
|
||||
defp format_api_error(
|
||||
_ctx,
|
||||
{:error, :unprocessable_entity, %{"error" => error, "error_description" => desc}}
|
||||
) do
|
||||
{"#{error}：#{desc}", 1}
|
||||
end
|
||||
|
||||
# 422 逐欄位驗證錯誤（changeset errors）。
|
||||
defp format_api_error(_ctx, {:error, :unprocessable_entity, %{"errors" => errors}}) do
|
||||
details =
|
||||
errors
|
||||
|> Enum.map(fn {field, messages} ->
|
||||
"#{field}: #{Enum.join(List.wrap(messages), "、")}"
|
||||
end)
|
||||
|> Enum.join("；")
|
||||
|
||||
if details == "" do
|
||||
{"驗證失敗（HTTP 422）", 1}
|
||||
else
|
||||
{"驗證失敗（HTTP 422）：#{details}", 1}
|
||||
end
|
||||
end
|
||||
|
||||
defp format_api_error(_ctx, {:error, :unprocessable_entity, _body}) do
|
||||
{"驗證失敗（HTTP 422）", 1}
|
||||
end
|
||||
|
||||
# 伺服器限流（email 驗證碼）→ 退出碼 1，提示稍後再試（§3.7.4）。
|
||||
defp format_api_error(_ctx, {:error, :too_many_requests, _body}) do
|
||||
{"請求過於頻繁（HTTP 429），請稍後再試", 1}
|
||||
end
|
||||
|
||||
defp format_api_error(_ctx, {:error, :server_error, status}) do
|
||||
{"伺服器回應 #{status}", 6}
|
||||
end
|
||||
|
||||
defp format_api_error(ctx, {:error, :network, reason}) do
|
||||
{"無法連線到 #{ctx.issuer}：#{reason}", 6}
|
||||
end
|
||||
|
||||
defp fail(opts, message, code) do
|
||||
if opts[:json] do
|
||||
IO.puts(Jason.encode!(%{ok: false, error: message, code: code}))
|
||||
else
|
||||
IO.puts(:stderr, "錯誤：#{message}")
|
||||
end
|
||||
|
||||
code
|
||||
end
|
||||
|
||||
defp require_id(nil, command), do: {:error, "#{command} 缺少 <id>", 2}
|
||||
defp require_id("", command), do: {:error, "#{command} 缺少 <id>", 2}
|
||||
defp require_id(_, _command), do: :ok
|
||||
|
||||
defp blank?(nil), do: true
|
||||
defp blank?(""), do: true
|
||||
defp blank?(_), do: false
|
||||
end
|
||||
Reference in New Issue
Block a user