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
|
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
def changeset(key, attrs) do
key
|> cast(update_encode_key(attrs, :key), [:key])
|> 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")
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
|
