fse2

fse2.erl

-module(fse2).
-compile(export_all).
start() ->
	{foo, 'freeswitch@localhost'} ! register_event_handler,
	receive ok -> {event, 'freeswitch@localhost'} ! {event, all}, loop(0) end.

loop(0) ->
	io:format("start ~p~n", [erlang:localtime()]),
	loop(1);
loop(1000) ->
	io:format("end ~p~n", [erlang:localtime()]); 
loop(N) ->
	receive
		ok -> loop(N); % ignore this
		{event, [_UUID|_Headers]} ->
			{blah, 'freeswitch@localhost'} ! {blah}, % comment this line will be slow
			loop(N+1);
		{error, _} -> loop(N); %ignore this
		M -> io:format("~p~n", [M]), loop(N)
	end.