forked from potsda.mn/mobilizon
29 lines
853 B
Elixir
29 lines
853 B
Elixir
defmodule Mobilizon.Web.Email.Checker do
|
||
@moduledoc """
|
||
Provides a function to test emails against a "not so bad" regex.
|
||
"""
|
||
|
||
@email_regex ~r/^[\w.!#$%&’*+\-\/=?\^`{|}~]+@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*$/i
|
||
|
||
@doc """
|
||
Returns whether the email is valid.
|
||
"""
|
||
@spec valid?(String.t()) :: boolean
|
||
def valid?(email), do: email =~ @email_regex
|
||
|
||
@spec validate_changeset(Ecto.Changeset.t()) :: Ecto.Changeset.t()
|
||
def validate_changeset(%Ecto.Changeset{} = changeset) do
|
||
changeset = Ecto.Changeset.validate_length(changeset, :email, min: 3, max: 250)
|
||
|
||
case Ecto.Changeset.fetch_change(changeset, :email) do
|
||
{:ok, email} ->
|
||
if valid?(email),
|
||
do: changeset,
|
||
else: Ecto.Changeset.add_error(changeset, :email, "Email doesn't fit required format")
|
||
|
||
:error ->
|
||
changeset
|
||
end
|
||
end
|
||
end
|