-module( main ).
-export( [main/0, mywork/2] ).


main() ->
    io:format( "Main~n" ),
    {ok, ListenSocket} = gen_tcp:listen( 47111, [binary, {active, false}] ),
    accept_loop( ListenSocket ).

accept_loop( ListenSocket ) ->
    {ok, Socket} = gen_tcp:accept( ListenSocket ),
    {ok, SocketT} = gen_tcp:connect( '127.0.0.1', 47110, [binary, {packet, 0}] ),
    io:format( "Connect~n" ),
    spawn( ?MODULE, mywork, [Socket, SocketT] ),
    accept_loop( ListenSocket ).

mywork( Socket, SocketT ) ->
    case gen_tcp:recv( Socket, 0 ) of
        {ok,    Data} -> myrecv( Data, SocketT );
        {error, Err } ->
            io:format( "error~n" ),
            gen_tcp:close( Socket  ),
            gen_tcp:close( SocketT ),
            exit(0)
    end,
    mywork( Socket, SocketT ).

myrecv( Data, SocketT ) ->
    gen_tcp:send( SocketT, Data ).