Packages

chat

6.8.2
9.4.14 9.4.13 9.2.28 9.1.4 9.1.2 9.1.1 6.8.2 6.7.14 5.11.1 5.11.0 3.9.0 3.8.1 3.7.5 3.7.4 3.7.3 3.7.2 3.7.1 3.7.0 3.6.0

CHAT CXC 138 25 X.509 CMS Instant Messenger

HexDocs

Current section

Files

Jump to
Readme
19 Versions
9 Dependencies
Dependants
Files
Activity
chat src services chat_history.erl
Raw

src/services/chat_history.erl 

-module(chat_history).

-include_lib("chat/include/roster.hrl").

-include_lib("n2o/include/n2o.hrl").

-include_lib("kvs/include/kvs.hrl").

-export([start/0,info/3]).



start() -> n2o_pi:start(#pi{module = ?MODULE, table = system, sup = roster, name = <<"History Service">>, state = []}).



info(#'History'{status = get_reply, entity_id = Id} = History, Req, #cx{params = ClientId} = State) when Id /= [] -> {reply, {bert, History#'History'{data = []}}, Req, State};

info(#'History'{status = get} = History, Req, #cx{state = []} = State) -> info(History, Req, State#cx{state = {status, get}});

info(#'History'{status = get, data = [#'Message'{feed_id = Feed}|_]} = History, Req, State) when Feed /= []-> info(History#'History'{feed = Feed}, Req, State);

info(#'History'{status = get, roster_id = Roster0, feed = Feed, size = N, entity_id = MId, data = MsgData} = History, Req, #cx{params = ClientId, state = {status, InitialStatus}} = State) -> {reply, {bert, #io{}}, Req, State};

info(#'History'{status = update, feed = Feed, entity_id = MId}, Req, #cx{client_pid = C, params = ClientId, state = verified} = State) -> {reply, {bert, #io{}}, Req, State#cx{state = []}};

info(#'History'{status = update, entity_id = MId} = History, Req, #cx{} = State) when MId == 0; MId == []->  info(History, Req, State#cx{state = verified});

info(#'History'{status = delete, feed = Feed}, Req, #cx{client_pid = C, params = ClientId} = State) -> {reply, {bert, #io{}}, Req, State};

info(#'History'{roster_id = RosterId, feed = #'StickerPack'{} = Feed, size = N, status = get} = Data, Req, #cx{params = ClientId} = State) -> {reply, {bert, Data#'History'{data = []}}, Req, State};

info(#'History'{} = Data, Req, State) -> {reply, {bert, <<>>}, Req, State}.