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
|
defmodule ShardWeb.ChatController do
use ShardWeb, :controller
def chat(conn, %{"chan" => chan}) do
conn = put_gon(conn, chat_channel: "chat:" <> chan)
shard = %SApp.Chat.Manifest{channel: chan} |> SData.term_hash
render conn, "chat.html",
public: true,
shard: shard,
chan: chan
end
def privchat(conn, %{"people_list" => people_list}) do
known_people = for {_, %SApp.Identity.Manifest{pk: pk}, pid} <- Shard.Manager.list_shards() do
info = GenServer.call(pid, :get_info)
{pk, info.nick}
end
pk_list = for qname <- String.split(people_list, ",") do
candidates = for {pk, nick} <- known_people,
:binary.longest_common_prefix([qname, nick]) == byte_size(qname)
or :binary.longest_common_prefix([qname, Shard.Keys.pk_display pk]) == byte_size(qname)
or Base.decode16(qname) == {:ok, pk},
do: {pk, nick}
case candidates do
[] -> :error
[{pk, _}] -> pk
_ -> :error
end
end
if Enum.all?(pk_list, &(&1 != :error)) do
pk_list_str = pk_list |> Enum.map(&Base.encode16/1) |> Enum.join(",")
conn = put_gon(conn, chat_channel: "privchat:" <> pk_list_str)
name = pk_list
|> Enum.map(&SApp.Identity.get_nick/1)
|> Enum.join(", ")
shard = [conn.assigns.pk | pk_list] |> SApp.Chat.PrivChat.Manifest.new |> SData.term_hash
render conn, "chat.html",
public: false,
shard: shard,
nicks: name
else
render conn, ShardWeb.ErrorView, "404.html"
end
end
end
|
