apps/dreki/src/dreki_id.erl


1
2
3
4
5
6
7
8
9
10
11
12
13

-module(dreki_id).

-export([get/0, valid/1]).

get() ->
  uuid:get_v4().

valid(MaybeId) ->
  case re:run(MaybeId, "^[a-z0-9-_.]{3,100}$") of
    nomatch -> {error, {invalid_dreki_id, MaybeId}};
    {match, _} -> ok
  end.