ADD le slap

[euphorik.git] / modules / erl / euphorik_protocole.erl

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index c1bc376..c2342ca 100755 (executable)
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -12,6 +12,7 @@
    wait_event/1,
    put_message/1,
    ban/1,
+   slap/1,
    erreur/1
 ]).\r
 
@@ -271,6 +272,36 @@ ban(
       end.
       
 
+% slapage d'un user (avertissement)
+slap(
+   [
+      {cookie, Cookie},
+      {user_id, User_id}
+   ]) ->
+      % controle que l'utilisateur est un admin
+      case euphorik_bd:user_by_cookie(Cookie) of
+         {ok, User1 = #user{ek_master = true}} ->
+            case euphorik_bd:user_by_id(User_id) of
+               {ok, User1} ->
+                  euphorik_bd:nouveau_message_sys(lists:flatten(io_lib:format("~s s'auto slap (et il aime ça)", [User1#user.pseudo])));
+               {ok, User2 = #user{ek_master = false}} ->
+                  euphorik_bd:nouveau_message_sys(lists:flatten(io_lib:format("~s se fait slaper par ~s",
+                     [
+                        User2#user.pseudo,
+                        User1#user.pseudo
+                     ]
+                  ))),
+                  json_reponse_ok();
+               {ok, _} ->
+                  erreur("L'utilisateur est lui même un ekMaster");
+               _ ->
+                  erreur("Utilisateur à slaper inconnu")
+            end;
+         _ ->
+            erreur("Utilisateur inconnu ou non ek master")
+      end.
+      
+
 % Construit une erreur
 erreur(Message) ->
    {