@@ -153,26 +153,26 @@ log_program_error(LogEntry=#user_program_log_entry{ severity=Severity, program_i
153153
154154-spec log_platform (log_severity (), _ , _ , _ ) -> ok .
155155log_platform (warning , ErrorNS , Error , _StackTrace ) ->
156- io :fwrite (" [~p ] ~p :~p~n " , [warning , ErrorNS , Error ]);
156+ io :fwrite (" ~s [~p ] ~p :~p~n " , [get_time_string (), warning , ErrorNS , Error ]);
157157log_platform (debug , _ErrorNS , _Error , _StackTrace ) ->
158158 ok ; % % Ignored for now
159159
160160log_platform (Severity , ErrorNS , Error , StackTrace ) ->
161- io :fwrite (" [~p ] ~p :~p || ~p~n " , [Severity , ErrorNS , Error , StackTrace ]).
161+ io :fwrite (" ~s [~p ] ~p :~p || ~p~n " , [get_time_string (), Severity , ErrorNS , Error , StackTrace ]).
162162
163163-spec log_platform (atom (), _ ) -> ok .
164164log_platform (Severity , Msg ) when is_list (Msg ) ->
165- io :fwrite (" [~p ] ~s~n " , [Severity , binary :list_to_bin (lists :flatten (Msg ))]);
165+ io :fwrite (" ~s [~p ] ~s~n " , [get_time_string (), Severity , binary :list_to_bin (lists :flatten (Msg ))]);
166166log_platform (Severity , Msg ) ->
167- io :fwrite (" [~p ] ~p~n " , [Severity , Msg ]).
167+ io :fwrite (" ~s [~p ] ~p~n " , [get_time_string (), Severity , Msg ]).
168168
169169-spec log_api (log_severity (), _ , _ ) -> ok .
170170log_api (debug , _ , _ ) ->
171171 ok ; % % Ignored for now
172172log_api (Severity , Endpoint , Error ) when is_binary (Error ) ->
173- io :fwrite (" [~p @~p ] ~s~n " , [Severity , Endpoint , Error ]);
173+ io :fwrite (" ~s [~p @~p ] ~s~n " , [get_time_string (), Severity , Endpoint , Error ]);
174174log_api (Severity , Endpoint , Error ) ->
175- io :fwrite (" [~p @~p ] ~p~n " , [Severity , Endpoint , Error ]).
175+ io :fwrite (" ~s [~p @~p ] ~p~n " , [get_time_string (), Severity , Endpoint , Error ]).
176176
177177
178178% %====================================================================
@@ -196,3 +196,7 @@ get_signal_storage_config() ->
196196
197197get_timestamp () ->
198198 erlang :system_time (millisecond ).
199+
200+ get_time_string () ->
201+ {{Year ,Month ,Day },{Hour ,Min ,Sec }} = erlang :localtime (),
202+ io_lib :format (" ~4..0B /~2..0B /~2..0B ~2..0B :~2..0B :~2..0B " , [Year , Month , Day , Hour , Min , Sec ]).
0 commit comments