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}, _} <- Shard.Manager.list_shards() do
{pk, SApp.Identity.get_nick(pk)}
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
