mirror of
https://github.com/ubf/ubf.git
synced 2026-04-28 15:48:00 +00:00
17 lines
332 B
Erlang
17 lines
332 B
Erlang
-module(socket_test_server).
|
|
|
|
-compile(export_all).
|
|
|
|
%% Run at sics
|
|
|
|
test() ->
|
|
proc_socket_server:start_raw_server(2010, fun(Socket) -> loop(Socket) end, 50, 0, 0).
|
|
|
|
loop(Socket) ->
|
|
io:format("Here:~p ~n",[Socket]),
|
|
receive
|
|
Any ->
|
|
io:format("Received:~p~n", [Any]),
|
|
loop(Socket)
|
|
end.
|