mirror/alcove
1
0
Fork 0
mirror of https://github.com/uselessd/alcove.git synced 2026-04-15 17:25:33 +00:00
Code Issues Projects Releases Wiki Activity

tcplxc: close the socket if the shell exits

Browse Source
This commit is contained in:
Michael Santos
2014-05-06 08:19:53 -04:00
parent d8af759ec5
commit 6d3f13f8b4
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
examples/tcplxc.erl
View File

@@ -102,9 +102,19 @@ shell(Drv, Options, State) ->
Pid ! {stderr, Child, Data}
end,
shell(Drv, Options, State);
{alcove_event, Drv, [Child], Event} ->
{alcove_event, Drv, [Child], {termsig,_} = Event} ->
error_logger:info_report([{pid, Child}, Event]),
cgroup_finish(Drv, Child, Options),
shell(Drv, Options, State);
{alcove_event, Drv, [Child], {exit_status,_} = Event} ->
error_logger:info_report([{pid, Child}, Event]),
case dict:find(Child, State) of
error ->
ok;
{ok, Pid} ->
Pid ! {exited, Child}
end,
cgroup_finish(Drv, Child, Options),
shell(Drv, Options, State)
end.
@@ -239,6 +249,8 @@ network(Init, Socket, Child) ->
{stderr, Child, Data} ->
ok = gen_tcp:send(Socket, Data),
network(Init, Socket, Child);
{exited, Child} ->
gen_tcp:close(Socket);
Any ->
error_logger:info_report([
{init, Init},