1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
defmodule ShardWeb.IdentityController do
use ShardWeb, :controller
def list(conn, _params) do
render conn, "list.html"
end
def self(conn, _params) do
render conn, "self.html"
end
def view(conn, %{"pk" => pk}) do
{:ok, pk} = Base.decode16(pk)
shard = %SApp.Identity.Manifest{pk: pk} |> SData.term_hash
pid = Shard.Manager.find_proc shard
if pid == nil do
render conn, ShardWeb.ErrorView, "404.html"
else
render conn, "view.html",
view_pk: pk,
view_nick: SApp.Identity.get_nick(pk),
shard: shard,
pid: pid
end
end
def update(conn, params) do
pid = SApp.Identity.find_proc(conn.assigns.pk)
info = GenServer.call(pid, :get_info)
info = %{info | nick: params["nick"]}
GenServer.call(pid, {:set_info, info})
redirect conn, to: identity_path(conn, :self)
end
def switch(conn, params) do
case Base.decode16(params["pk"]) do
{:ok, pk} ->
if Shard.Keys.have_sk? pk do
conn
|> put_session(:pk, pk)
|> redirect(to: identity_path(conn, :self))
else
conn
|> put_flash(:error, "No secret key found")
|> render("self.html")
end
_ ->
conn
|> put_flash(:error, "Bad argument")
|> render("self.html")
end
end
def create(conn, _params) do
pk = Shard.Keys.new_identity
conn = put_session(conn, :pk, pk)
redirect conn, to: identity_path(conn, :self)
end
end
|
