1 files changed, 44 insertions, 0 deletions
diff --git a/shardweb/lib/controllers/identity_controller.ex b/shardweb/lib/controllers/identity_controller.ex
new file mode 100644
index 0000000..fdaefd0
--- /dev/null
+++ b/shardweb/lib/controllers/identity_controller.ex
@@ -0,0 +1,44 @@
+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 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, :view)
+  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, :view))
+        else
+          conn
+          |> put_flash(:error, "No secret key found")
+          |> render("view.html")
+        end
+      _ ->
+        conn
+        |> put_flash(:error, "Bad argument")
+        |> render("view.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, :view)
+  end
+end