First commit

1 files changed, 33 insertions, 0 deletions

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, <COMPANY>
+%%% @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