chessh/lib/chessh/schema/key.ex
Logan Hunt 4666d7871a
Web Client (#11)
* Github Oauth

* A simple frontend

* Add middleware proxy on dev

* Forward proxy and rewrite path, add oauth to frontend, increase jwt expiry time to 12 hours

* Some simple style changes

* Add keys as user

* Checkpoint - auth is broken

* Fix auth and use player model, unrelated to this pr: flip board if dark

* Close player session when password or key deleted or put

* Add build script - this branch is quickly becoming cringe

* Docker v2 - add migration and scripts, fix local storage and index that caused build issues

* Ignore keys, proxy api correctly nginx

* Finally nginx is resolved jesus christ

* Remove max screen dimension limits cuz cringe

* Cursor highlight

* Add password form, some minor frontend changes as well

* Remove cringe on home page

* Move to 127.0.0.1 loopback in env

* Add github id in player structs for tests
2023-01-19 14:04:10 -07:00

53 lines
1.3 KiB
Elixir

defmodule Chessh.Key do
use Ecto.Schema
import Ecto.Changeset
schema "keys" do
field(:key, :string)
field(:name, :string)
belongs_to(:player, Chessh.Player)
timestamps()
end
defimpl Jason.Encoder, for: Chessh.Key do
def encode(value, opts) do
Jason.Encode.map(Map.take(value, [:id, :key, :name]), opts)
end
end
def changeset(key, attrs) do
key
|> cast(update_encode_key(attrs, :key), [:key, :player_id])
|> cast(attrs, [:name])
|> validate_required([:key, :name])
|> validate_format(:key, ~r/^[\-\w\d]+ [^ ]+$/, message: "invalid public ssh key")
|> validate_format(:key, ~r/^(?!ssh-dss).+/, message: "DSA keys are not supported")
|> unique_constraint([:player_id, :key], message: "Player already has that key")
end
def encode_key(key) do
if is_tuple(key) do
case key do
{pub, [opts]} -> [{pub, [opts]}]
{pub, []} -> [{pub, [comment: '']}]
key -> [{key, [comment: '']}]
end
|> :ssh_file.encode(:openssh_key)
else
key
end
|> String.replace(~r/ [^ ]+\@[^ ]+$/, "")
|> String.trim()
end
defp update_encode_key(attrs, field) do
if Map.has_key?(attrs, field) do
Map.update!(attrs, field, &encode_key/1)
else
attrs
end
end
end