关于erlang中的整点/整天报时接口

今天由于游戏的某些整点报时的需要，比如游戏排行榜数据得在凌晨更新一次，系统发给新手的每日新手倒计时奖励得每日凌晨更新一次，还有某些每到整点就需要触发的事情。鉴于考虑这个整点报时的可复用性，就计划写一个统一的接口，让erlang中的每一个进程在调用了这个接口注册之后，都能按时收到一个 info 消息，有了这样的一个高大全，定时就简单得多了。

%% @spec start_timely_info(integer(), integer()) -> {ok, TRef} | {error, Reason}
%% @doc 调用此接口，需要在info 中添加 消息接收
%% do_info({'do_timely_info', CallBack, Kind, Num}, State) ->
%%     lib_timely_info:start_timely_info(CallBack, Kind, Num, 1),
%%     {noreply, State};
%% 其中CallBack是改计时器需要定时触发的回调函数
%% 定时类型（按天（2）、小时（1）、星期（3））
%% -define(TIMELY_KIND_HOUR,    1).
%% -define(TIMELY_KIND_DAY,    2).
%% -define(TIMELY_KIND_WEEK,    3).
%% % ---------------------------------------------------------
%% % 定时器抛出的事件是否激活(0表示不激活，1表示激活)
%% -define(TIMELY_HANDLE_ACTIVE,        1).
%% -define(TIMELY_HANDLE_NOT_ACTIVE,    0).
%% ---------------CallBack---Kind---Num-- Active-----------
%% ---------------回调函数--定时类型-数量-是否激活回调函数----
start_timely_info(CallBack, Kind, Num,Active) ->
    if Active =:= 1 ->
        {M,F,A} = CallBack,
        erlang:apply(M,F,A);
       true ->
           skip
    end,
    Now = misc_timer:now_seconds(),
    LeftTime = 
        case Kind of
            ?HOUR ->
                ?ONE_HOUR - misc_timer:now_seconds() rem ?ONE_HOUR + (Num -1) * ?ONE_HOUR;
            ?DAY ->
                util:get_next_day_seconds(Now) - Now + (Num - 1) * ?ONE_DAY;
            _ ->
                ?ONE_WEEK
        end,
    timer:send_after(LeftTime * 1000, self(),{'do_timely_info', CallBack, Kind, Num}).

 

在调用接口的同时，若传入回调函数，让改接口函数定时给执行的话，只需要将回调函数 Callback 当做参数传入就可以了

另：为满足某些特殊需求，比如我在注册的时候就需要启动一次这个回调函数，因此增加一个参数来确定是不是需要立即执行回调函数