-% Décode les données JSON.\r
-traiter_donnees(Contenu, IP) ->\r
- {ok, {struct, [{header, {struct, [{action, Action}, {version, Version_client}]}} | Reste]}} = json:decode_string(Contenu),\r
- json:encode(\r
+% Décode le message JSON.\r
+traiter_message(Contenu, IP) ->\r
+ % extrait l'entête obligatoire des messages JSON\r
+ {ok, {struct, [{"header", {struct, [{"action", Action}, {"version", Version_client}]}} | Reste]}} = json2:decode_string(Contenu),\r
+\r
+ json2:encode(\r