413
413
erlang:monitor(process, ClientPid),
415
Inet = case inet:getaddr("localhost", inet6) of
418
{ok, {0, 0, 0, 0, 0, 16#ffff, _, _}} ->
420
{ok, {_,_,_,_,_,_,_,_}} ->
415
426
{ok, ListenSocketSup} =
416
gen_tcp:listen(0, [binary, {packet, ?LENGTH_INDICATOR_SIZE},
427
gen_tcp:listen(0, [Inet, binary, {packet, ?LENGTH_INDICATOR_SIZE},
417
428
{active, false}, {nodelay, true}]),
418
429
{ok, ListenSocketOdbc} =
419
gen_tcp:listen(0, [binary, {packet, ?LENGTH_INDICATOR_SIZE},
430
gen_tcp:listen(0, [Inet, binary, {packet, ?LENGTH_INDICATOR_SIZE},
420
431
{active, false}, {nodelay, true}]),
422
433
%% Start the port program (a c program) that utilizes the odbc driver