move stats handler under supervision

apps/server/src/game_stats.erl

@@ -50,7 +50,7 @@ get_player_stats(UserId) -> {ok, [{total_games,crypto:rand_uniform(1,10)},
                                   {average_play_time,crypto:rand_uniform(1000,5000)}]}.
 
 init([]) ->
-    wf:ref(stats),
+    wf:reg(stats),
     {ok, no_state}.
 
 handle_call(Request, From, State) ->
@@ -60,6 +60,7 @@ handle_call(Request, From, State) ->
 handle_cast({add_game, Game}, State) -> {noreply, State};
 handle_cast(Msg, State) -> error_logger:error_msg("unknown cast ~p ~n", [Msg]), {noreply, State}.
 handle_info({stats,Route,Message}, State) ->
+    wf:info("Stats: Route: ~p Message: ~p~n",[Route,Message]),
     handle_stats(Route,Message),
     {noreply, State};
 

apps/server/src/game_sup.erl

@@ -20,9 +20,10 @@ init([]) ->
     Shutdown = 2000,
     IdGen = {id_generator, {id_generator, start_link, []},  Restart, Shutdown, worker, [id_generator]},
     AuthServer = {auth_server, {auth_server, start_link, []}, Restart, Shutdown, worker, [auth_server]},
+    GameStats = {game_stats, {game_stats, start_link, []}, Restart, Shutdown, worker, [game_stats]},
     GameManager = {game_manager, {game_manager, start_link, []}, Restart, Shutdown, worker, [game_manager]},
     TavlaSup = {tavla_sup, {tavla_sup, start_link, []}, Restart, Shutdown, supervisor, [tavla_sup]},
     OkeySup = {okey_sup, {okey_sup, start_link, []}, Restart, Shutdown, supervisor, [okey_sup]},
     LuckySup = {lucky_sup, {lucky_sup, start_link, []}, Restart, Shutdown, supervisor, [lucky_sup]},
-    {ok, {SupFlags, [IdGen,GameManager,LuckySup,TavlaSup,OkeySup,AuthServer]}}.
+    {ok, {SupFlags, [IdGen,GameManager,LuckySup,TavlaSup,OkeySup,AuthServer,GameStats]}}.