From 859179718904a1824082fdbbf77192bd1ce762e7 Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Fri, 16 May 2014 20:16:33 +0800 Subject: First commit --- portman.erl | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 portman.erl (limited to 'portman.erl') diff --git a/portman.erl b/portman.erl new file mode 100644 index 0000000..393a566 --- /dev/null +++ b/portman.erl @@ -0,0 +1,33 @@ +%%%------------------------------------------------------------------- +%%% @author Tuowen +%%% @copyright (C) 2014, +%%% @doc +%%% +%%% @end +%%% Created : 26. 四月 2014 16:42 +%%%------------------------------------------------------------------- +-module(portman). +-author("Tuowen"). + +%% API +-export([start/1,serv/1,send/2]). + +oploop(Sock) -> + receive + {Pid,shutdown} -> ok; + {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]). + +send(Pid,Msg) -> + Pid ! {self(),Msg}. \ No newline at end of file -- cgit v1.2.3-70-g09d2