[Freeswitch-users] mod_erlang_event

23 Feb 2010

      It's become clear that I need to use Erlang event processing to do what 
I need to do with Freeswitch, but I can't even get the most basic of 
tasks working yet.  (i.e. Answer the call and collect the PIN code from 
the operator.)

The dialplan version of what I'm trying to do is:

<extension name=\"OpCallsIn\">
    <condition field=\"destination_number\" expression=\"^6100$\">
        <action application=\"answer\" />
        <action application=\"play_and_get_digits\" data=\"4 4 1 5000 # 
/opt/freeswitch/sounds/en/us/callie/conference/8000/conf-pin.wav 
/opt/freeswitch/sounds/en/us/callie/conference/8000/conf-bad-pin.wav 
operator_pin \\d+\" />
        <action application=\"log\" data=\"INFO operator_pin is 
${operator_pin}\" />
        <action application=\"log\" data=\"INFO Queueing operator to 
fifo\" />
        <action application=\"fifo\" data=\"6100@${domain_name} in\" />
    </condition>
</extension>

Attached is the Erlang that's attempting to do the same thing.  The 
Erlang is invoked by the following dialplan fragment:

<extension name=\"ErlangCallback\">
    <condition field=\"destination_number\" expression=\"^6200$\">
        <action application=\"erlang\" data=\"pbx_callback 
pursuit@testsrv\" />
    </condition>
</extension>

Any suggestions?

-- 
Mark Sobkow
Senior Developer
MarkeTel Multi-Line Dialing Systems LTD.
428 Victoria Ave
Regina, SK S4N-0P6
Toll-Free: 800-289-8616-X533
Local: 306-359-6893-X533
Fax: 306-359-6879
Email: m.sobkow@marketelsystems.com
Web: http://www.marketelsystems.com 

%% Author: mark
%% Created: Feb 23, 2010
%% Description: TODO: Add description to pbx_callback
-module(pbx_callback).

%%
%% Include files
%%

%%
%% Exported Functions
%%
-export([start/0, run/0, launch/1]).

start() ->
	Pid = spawn( ?MODULE, run, [] ),
	register( ?MODULE, Pid ),
	{ ok, Pid }.

run() ->
	receive
		{ call, Data } ->
			{ event, [UUID | Rest]} = Data,
			syslog:debug( "pbx_callback:run() New call received, UUID=~p, Rest=~p~n", [UUID, Rest] ),
			AnswerResults = pbx:api( eval, "uuid:" ++ UUID ++ " answer" ),
			syslog:debug( "pbx_callback:run() AnswerResults=~p~n", [AnswerResults] ),
			GetPinResults = pbx:api( eval, "uuid:" ++ UUID ++ " play_and_get_digits 4 4 1 5000 # /opt/freeswitch/sounds/en/us/callie/conference/8000/conf-pin.wav /opt/freeswitch/sounds/en/us/callie/conference/8000/conf-bad-pin.wav operator_pin \\d+" ),
			syslog:debug( "pbx_callback:run() GetPinResults=~p~n", [GetPinResults] ),
			GetPinVarResults = pbx:api( uuid_getvar, UUID ++ " operator_pin" ),
			syslog:debug( "pbx_callback:run() GetPinVarResults=~p~n", [GetPinVarResults] ),
			run();
		{call_event, Data} ->
			{ event, [UUID | Rest]} = Data,
			Name = proplists:get_value( "Event-Name", Rest ),
			syslog:debug( "pbx_callback:run() call_event UUID=~p, Name=~p, Rest=~p~n", [UUID, Name, Rest] ),
			run();
		{get_pid, UUID, Ref, Pid} ->
			NewPid = spawn( ?MODULE, run, [] ),
			syslog:debug( "pbx_callback:run() Request to spawn new handler process, returning PID ~p~n", [NewPid] ),
			Pid ! { Ref, NewPid },
			run()
	end.

launch( Ref ) ->
	NewPid = spawn( ?MODULE, run, [] ),
	syslog:debug( "pbx_callback:launch() Returning new PID ~p~n", [NewPid] ),
	{Ref, NewPid}.