added serverLog to API

This commit is contained in:
Jeena Paradies 2011-05-05 12:51:10 +02:00
parent 4abcdd5579
commit 08e086084c
4 changed files with 14 additions and 15 deletions

View file

@ -90,9 +90,13 @@ expose(Global, Table) ->
ggs_table:send_command(Table, Player, {Command, Args})
end},
{"sendCommandToAll", fun(#erlv8_fun_invocation{}, [Command, Args])->
erlang:display(Args),
ggs_table:notify_all_players(Table, {Command, Args})
end}
end},
{"serverInfo", fun(#erlv8_fun_invocation{}, []) ->
{ok, TableList} = ggs_table:get_player_list(Table),
integer_to_list(length(TableList))
end}
%{"log", fun(#erlv8_fun_invocation{}, [Arg]) -> erlang:display(Arg) end }
%{"setTimeout", fund(#erlv8_fun_invocation{}, [Time, FunctionName])-> setTimeout(Time, FunctionName) end}
])).

View file

@ -37,16 +37,8 @@ init(_Args) ->
handle_cast({add_one, Type}, St) ->
case Type of
server -> NewSt = #ate {
server_messages = St#ate.server_messages + 1,
client_messages = St#ate.client_messages,
stats = St#ate.stats
};
client -> NewSt = #ate {
server_messages = St#ate.server_messages,
client_messages = St#ate.client_messages + 1,
stats = St#ate.stats
}
server -> NewSt = St#ate { server_messages = St#ate.server_messages + 1 };
client -> NewSt = St#ate { client_messages = St#ate.client_messages + 1 }
end,
{noreply, NewSt};