anchor.diff:  %%----------------------------------------------------------------------
   %% Operation-2
   %%----------------------------------------------------------------------
  -%% @TODO
   %% Command: "du ${NODE_NAME}"
   %%
  -handle_call(_Socket, <<?STORAGE_STATS, _Option/binary>> = _Command, State) ->
  -    {reply, [], State};
  -
  -
  -%% @TODO
  +handle_call(_Socket, <<?STORAGE_STATS, Option/binary>> = Command, State) ->
  +    Reply = case leo_manager_console_commons:du(Command, Option) of
  +                {ok, {Option1, StorageStats}} ->
  +                    format_stats_list(Option1, StorageStats);
  +                {error, Cause} ->
  +                    ?output_error_1(Cause)
  +            end,
  +    {reply, Reply, State};
  +
  +
   %% Command: "compact ${NODE_NAME}"
   %%
  -handle_call(_Socket, <<?COMPACT, _Option/binary>> = _Command, State) ->
  -    {reply, [], State};
  +handle_call(_Socket, <<?COMPACT, Option/binary>> = Command, State) ->
  +    Reply = case leo_manager_console_commons:compact(Command, Option) of
  +                ok ->
  +                    ?output_ok();
  +                {error, Cause} ->
  +                    ?output_error_1(Cause)
  +            end,
  +    {reply, Reply, State};
   
   
   %%----------------------------------------------------------------------
  
positive.code:                     %% @TODO
                      ?OK;
                  {error, Cause} ->
                      gen_json({[{error, list_to_binary(Cause)}]})
              end,
      {reply, Reply, State};
  
  
negative.code:             <<Result/binary, ?CRLF>>
      end.
  
  
  %% @doc Format s stats-list
  %% @private
  -spec(format_stats_list(summary | detail, {integer(), integer()} | list()) ->
               string()).
  format_stats_list(summary, {FileSize, Total}) ->
      gen_json({[{<<"file_size">>, FileSize},{<<"total_of_objects">>, Total}]});
  
  format_stats_list(detail, StatsList) when is_list(StatsList) ->
      JSON = lists:map(fun({ok, #storage_stats{file_path   = FilePath,
                                               total_sizes = FileSize,
                                               total_num   = ObjTotal}}) ->
                               {[{<<"file_path">>,        list_to_binary(FilePath)},
                                 {<<"file_size">>,        FileSize},
                                 {<<"total_of_objects">>, ObjTotal}
                                ]};
                          (_) ->
                               []
                       end, StatsList),
      gen_json(JSON);
  format_stats_list(_, _) ->
      [].
  