%%%-------------------------------------------------------------------
%%% @author Tuowen
%%% @copyright (C) 2014, <COMPANY>
%%% @doc
%%%
%%% @end
%%% Created : 26. 四月 2014 16:42
%%%-------------------------------------------------------------------
-module(portman).
-author("Tuowen").

%% API
-export([start/1,serv/1]).

oploop(Sock) ->
  receive
    {_Pid,shutdown} -> ok;
    {tcp,Sock,Msg} ->
      io:format("~p\n",[Msg]),
      oploop(Sock);
    {_Pid,Msg} ->
      gen_tcp:send(Sock,Msg),
      oploop(Sock)
  end.

serv({Host,Port}) ->
  {ok, Sock} = gen_tcp:connect(Host, Port,
    [list, {packet, 1}]),
  oploop(Sock),
  ok = gen_tcp:close(Sock).

start(Config) ->
  spawn(?MODULE,serv,[Config]).