20 lines
595 B
Erlang
20 lines
595 B
Erlang
%% timeline_db.erl
|
|
-module(timeline_db).
|
|
-export([add_message/1, all_messages/0]).
|
|
|
|
-record(global_message, {id, activity, timestamp}).
|
|
|
|
|
|
add_message(Activity) ->
|
|
Id = erlang:unique_integer([monotonic, positive]),
|
|
Timestamp = erlang:system_time(microsecond),
|
|
Record = #global_message{id=Id, activity=Activity, timestamp=Timestamp},
|
|
db_safe_insert:safe_insert(global_message, Record).
|
|
|
|
all_messages() ->
|
|
F = fun() ->
|
|
mnesia:match_object(#global_message{id = '_', activity = '_', timestamp = '_'})
|
|
end,
|
|
{atomic, Messages} = mnesia:transaction(F),
|
|
Messages.
|