zf

zenflows testing
git clone https://s.sonu.ch/~srfsh/zf.git
Log | Files | Refs | Submodules | README | LICENSE

resolv.ex (1432B)


      1 # Zenflows is designed to implement the Valueflows vocabulary,
      2 # written and maintained by srfsh <info@dyne.org>.
      3 # Copyright (C) 2021-2023 Dyne.org foundation <foundation@dyne.org>.
      4 #
      5 # This program is free software: you can redistribute it and/or modify
      6 # it under the terms of the GNU Affero General Public License as published by
      7 # the Free Software Foundation, either version 3 of the License, or
      8 # (at your option) any later version.
      9 #
     10 # This program is distributed in the hope that it will be useful,
     11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
     12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     13 # GNU Affero General Public License for more details.
     14 #
     15 # You should have received a copy of the GNU Affero General Public License
     16 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
     17 
     18 defmodule Zenflows.Keypairoom.Resolv do
     19 @moduledoc "Resolvers of keypairoom-related queries."
     20 
     21 require Logger
     22 
     23 alias Zenflows.Keypairoom.Domain
     24 
     25 def keypairoom_server(%{first_registration: first?, user_data: data}, _) do
     26 	case Jason.decode(data) do
     27 		{:ok, %{"email" => email} = data} when is_binary(email) ->
     28 			case Domain.keypairoom_server(first?, data) do
     29 				{:ok, value} ->
     30 					{:ok, value}
     31 
     32 				{:error, reason} ->
     33 					{:error, reason}
     34 			end
     35 		{:ok, _} ->
     36 			{:error, "invalid user-data must contain email that is a string"}
     37 		{:error, reason} ->
     38 			{:error, reason}
     39 	end
     40 end
     41 end