Adding user graphql vcard resolver

priv/graphql/schemas/user/user_schema.gql

@@ -22,6 +22,8 @@ type UserQuery{
   stanza: StanzaUserQuery
   "Roster/Contacts management"
   roster: RosterUserQuery
+  "Vcard management"
+  vcard: VcardUserQuery
 }
 
 """
@@ -39,4 +41,6 @@ type UserMutation @protected{
   stanza: StanzaUserMutation
   "Roster/Contacts management"
   roster: RosterUserMutation
+  "Vcard management"
+  vcard: VcardUserMutation
 }

priv/graphql/schemas/user/vcard.gql

@@ -0,0 +1,13 @@
+"""
+Allow user to set its vcard
+"""
+type VcardUserMutation @protected{
+    setVcard(vcard: VcardInput!): Vcard
+}
+
+"""
+Allow user to get its vcard
+"""
+type VcardUserQuery @protected{
+    getVcard: Vcard
+}

src/graphql/admin/mongoose_graphql_vcard_admin_mutation.erl

@@ -13,8 +13,6 @@
 -include("mongoose.hrl").
 -include("jlib.hrl").
 
--define(UNKNOWN_DOMAIN_RESULT, {unknown_domain, "Domain not found"}).
-
 execute(_Ctx, vcard, <<"setVcard">>, #{<<"user">> := CallerJID, <<"vcard">> := VCARD}) ->
     case mod_vcard_api:set_vcard(CallerJID, VCARD) of
         {ok, _} = Vcard -> Vcard;

src/graphql/admin/mongoose_graphql_vcard_admin_query.erl

@@ -11,8 +11,6 @@
 -include("mongoose.hrl").
 -include("jlib.hrl").
 
--define(UNKNOWN_DOMAIN_RESULT, {unknown_domain, "Domain not found"}).
-
 execute(_Ctx, vcard, <<"getVcard">>, #{<<"user">> := CallerJID}) ->
     case mod_vcard_api:get_vcard(CallerJID) of
         {ok, _} = Vcard -> Vcard;

src/graphql/mongoose_graphql.erl

@@ -164,6 +164,8 @@ user_mapping_rules() ->
         'MUCLightUserQuery' => mongoose_graphql_muc_light_user_query,
         'RosterUserQuery' => mongoose_graphql_roster_user_query,
         'RosterUserMutation' => mongoose_graphql_roster_user_mutation,
+        'VcardUserMutation' => mongoose_graphql_vcard_user_mutation,
+        'VcardUserQuery' => mongoose_graphql_vcard_user_query,
         'SessionUserQuery' => mongoose_graphql_session_user_query,
         'StanzaUserMutation' => mongoose_graphql_stanza_user_mutation,
         'StanzaUserQuery' => mongoose_graphql_stanza_user_query,

src/graphql/mongoose_graphql_enum.erl

@@ -64,6 +64,7 @@ output(<<"MUCRole">>, Role) ->
     {ok, list_to_binary(string:to_upper(atom_to_list(Role)))};
 output(<<"MUCAffiliation">>, Aff) ->
     {ok, list_to_binary(string:to_upper(atom_to_list(Aff)))};
+output(<<"AddressTags">>, Name) -> {ok, Name};
 output(<<"EmailTags">>, Name) -> {ok, Name};
 output(<<"PrivacyClassification">>, Name) -> {ok, Name};
 output(<<"TelephoneTags">>, Name) -> {ok, Name}.

src/graphql/mongoose_graphql_errors.erl

@@ -44,9 +44,6 @@ err(_Ctx, ErrorTerm) ->
 %% callback invoked when resolver crashes
 -spec crash(map(), term()) -> err_msg().
 crash(_Ctx, Err = #{type := Type}) ->
-    io:format("---------------------------------------\n"),
-    io:format("~p", [Err]),
-    io:format("---------------------------------------\n"),
     ?LOG_ERROR(Err#{what => graphql_crash}),
     #{message => <<"Unexpected ", Type/binary, " resolver crash">>,
       extensions => #{code => resolver_crash}}.

src/graphql/user/mongoose_graphql_user_mutation.erl

@@ -14,4 +14,6 @@ execute(_Ctx, _Obj, <<"muc_light">>, _Args) ->
 execute(_Ctx, _Obj, <<"stanza">>, _Args) ->
     {ok, stanza};
 execute(_Ctx, _Obj, <<"roster">>, _Args) ->
-    {ok, roster}.
+    {ok, roster};
+execute(_Ctx, _Obj, <<"vcard">>, _Args) ->
+    {ok, vcard}.

src/graphql/user/mongoose_graphql_user_query.erl

@@ -18,4 +18,6 @@ execute(_Ctx, _Obj, <<"checkAuth">>, _Args) ->
 execute(_Ctx, _Obj, <<"stanza">>, _Args) ->
     {ok, stanza};
 execute(_Ctx, _Obj, <<"roster">>, _Args) ->
-    {ok, roster}.
+    {ok, roster};
+execute(_Ctx, _Obj, <<"vcard">>, _Args) ->
+    {ok, vcard}.

src/graphql/user/mongoose_graphql_vcard_user_mutation.erl

@@ -0,0 +1,23 @@
+-module(mongoose_graphql_vcard_user_mutation).
+-behaviour(mongoose_graphql).
+
+-include("mod_vcard.hrl").
+
+-export([execute/4]).
+
+-import(mongoose_graphql_helper, [make_error/2, format_result/2, null_to_default/2]).
+
+-ignore_xref([execute/4]).
+
+-include("../mongoose_graphql_types.hrl").
+-include("mongoose.hrl").
+-include("jlib.hrl").
+
+execute(#{user := CallerJID}, vcard, <<"setVcard">>, #{<<"vcard">> := VCARD}) ->
+    case mod_vcard_api:set_vcard(CallerJID, VCARD) of
+        {ok, _} = Vcard -> Vcard;
+        {error, not_found} ->
+            make_error({error, "User does not exist"}, #{user => CallerJID});
+        _ ->
+            make_error({error, "Internal server error"}, #{user => CallerJID})
+    end.

src/graphql/user/mongoose_graphql_vcard_user_query.erl

@@ -0,0 +1,21 @@
+-module(mongoose_graphql_vcard_user_query).
+-behaviour(mongoose_graphql).
+
+-export([execute/4]).
+
+-import(mongoose_graphql_helper, [make_error/2, format_result/2, null_to_default/2]).
+
+-ignore_xref([execute/4]).
+
+-include("../mongoose_graphql_types.hrl").
+-include("mongoose.hrl").
+-include("jlib.hrl").
+
+execute(#{user := CallerJID}, vcard, <<"getVcard">>, _) ->
+    case mod_vcard_api:get_vcard(CallerJID) of
+        {ok, _} = Vcard -> Vcard;
+        {error, not_found} ->
+            make_error({error, "User does not exist"}, #{user => CallerJID});
+        _ ->
+            make_error({error, "Internal server error"}, #{user => CallerJID})
+    end.