3
-behaviour(gen_server).
5
-export([is_operation_ok/1]).
6
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
7
terminate/2, code_change/3]).
10
gen_server:call(gs2, {is_operation_ok, Op}).
15
handle_call({is_operation_ok, Op}, _From, State) ->
16
Data = gs1:get_data(),
17
Reply = lists2:assoc(Op, Data),
18
{reply, Reply, State}.
20
handle_cast(_Request, State) ->
23
handle_info(_Info, State) ->
26
terminate(_Reason, _State) ->
29
code_change(_OldVsn, State, _Extra) ->