%%% Converts events from a player's event manager into a
%%% cast sent to the sockserv socket gen_server.
-module(sockserv_pq_events).
-behaviour(gen_event).
-export([init/1, handle_event/2, handle_call/2, handle_info/2,
         terminate/2, code_change/3]).

init(Parent) -> {ok, Parent}.

handle_event(E, Pid) ->
    gen_server:cast(Pid, E),
    {ok, Pid}.

handle_call(Req, Pid) ->
    Pid ! Req,
    {ok, ok, Pid}.

handle_info(E, Pid) ->
    Pid ! E,
    {ok, Pid}.

terminate(_, _) -> ok.

code_change(_OldVsn, Pid, _Extra) ->
    {ok, Pid}.