VoIP Mailing List Archives

[m.sobkow at marketelsy...]

I seem to be missing "something" in implementing the ERLang callbacks
for Freeswitch. Our Freeswitch server is starting and getting
registered with ERLang, we're invoking the bind for configuration, but
I'm not seeing any of my callbacks fire. What am I missing?

Sample code follows:

-module(freeswitch_bind).

-behaviour(gen_server).

-record(st, {fsnode, pbxpid}).

-export([start/3, terminate/2, code_change/3, init/1,
handle_call/3, handle_cast/2, handle_info/2]).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% gen_server methods
start(Node, Section, Pid) ->
gen_server:start(?MODULE, [Node, Section, Pid], []).

init([Node, Section, Pid]) ->
io:format( "freeswitch_bind:init( [Node=~w, Section=~w, Pid=~w])~n",
[Node, Section, Pid] ),
{api, Node} ! {bind, Section},
receive
ok ->
{ok, #st{fsnode=Node, pbxpid=Pid}};
{error, Reason} ->
{stop, {error, {freeswitch_error, Reason}}}
after 5000 ->
{stop, {error, freeswitch_timeout}}
end.

terminate(_Reason, _State) ->
ok.

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

%%
%% Configuration handler replies that the requested document section,
tag, and key are not
%% found.
%%
handle_call({fetch, configuration, Tag, Key, Value, Params}, _From,
State) ->
io:format( "freeswitch_fetch:handle_call( {fetch, configuration,
Tag=~w, Key=~w, Value=~w, Params=~w}, _From, State=~w)~n",
[Tag, Key, Value, Params, State]),
Xml =
"<document type=\"freeswitch/xml\">
<section name=\"result\">
<result status=\"not found\" />
</section>
</document>",
{ reply, {ok, Xml }, State };

%%
%% Directory handler replies that the requested document section,
tag, and key are not
%% found.
%%
handle_call({fetch, directory, Tag, Key, Value, Params}, _From, State) ->
io:format( "freeswitch_fetch:handle_call( {fetch, directory, Tag=~w,
Key=~w, Value=~w, Params=~w}, _From, State=~w)~n",
[Tag, Key, Value, Params, State]),
Xml =
"<document type=\"freeswitch/xml\">
<section name=\"result\">
<result status=\"not found\" />
</section>
</document>",
{ reply, {ok, Xml }, State };

%%
%% Dialplan handler replies that the requested document section, tag,
and key are not
%% found.
%%
handle_call({fetch, dialplan, Tag, Key, Value, Params}, _From, State) ->
io:format( "freeswitch_fetch:handle_call( {fetch, dialplan, Tag=~w,
Key=~w, Value=~w, Params=~w}, _From, State=~w)~n",
[Tag, Key, Value, Params, State]),
Xml =
"<document type=\"freeswitch/xml\">
<section name=\"result\">
<result status=\"not found\" />
</section>
</document>",
{ reply, {ok, Xml }, State };

%%
%% Default handler replies that the requested document section, tag,
and key are not
%% found.
%%
handle_call({fetch, Section, Tag, Key, Value, Params}, _From, State) ->
io:format( "freeswitch_fetch:handle_call( {fetch, Section=~w,
Tag=~w, Key=~w, Value=~w, Params=~w}, _From, State=~w)~n",
[Section, Tag, Key, Value, Params, State]),
Xml =
"<document type=\"freeswitch/xml\">
<section name=\"result\">
<result status=\"not found\" />
</section>
</document>",
{ reply, {ok, Xml }, State };

%%
%% If the request isn't recognized, just log it and do nothing.
%%
handle_call(Request, _From, State) ->
io:format("freeswitch_bind:handle_call( ~w, _From, State)
unrecognized request~n",
[Request]),
{reply, {error, unrecognized_request}, State}.

handle_cast(Message, State) ->
error_logger:error_msg("~p received unrecognized cast ~p~n",
[self(), Message]),
{noreply, State}.

handle_info({fetch, Section, Tag, Key, Value, FetchID, Params},
#st{fsnode=Node, pbxpid=Pid}=State) ->
{ok, XML} = gen_server:call(Pid, {fetch, Section, Tag, Key, Value,
Params}),
{api, Node} ! {fetch_reply, FetchID, XML},
receive
ok ->
{noreply, State};
{error, Reason} ->
{stop, {error, Reason}, State}
end.


_______________________________________________
FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org

[andrew at hijacked.us]

On Mon, Sep 14, 2009 at 01:54:31PM -0600, Mark Sobkow wrote:

[andrew at hijacked.us]

On Tue, Sep 15, 2009 at 02:29:14PM -0400, Andrew Thompson wrote: