1 files changed, 43 insertions, 0 deletions
diff --git a/startserv.erl b/startserv.erl
new file mode 100644
index 0000000..2f583a4
--- /dev/null
+++ b/startserv.erl
@@ -0,0 +1,43 @@
+%%%-------------------------------------------------------------------
+%%% @author Joe Zhao
+%%% @copyright (C) 2014, <COMPANY>
+%%% @doc
+%%%
+%%% @end
+%%% Created : 26. 四月 2014 16:34
+%%%-------------------------------------------------------------------
+-module(startserv).
+-author("Joe Zhao").
+
+-compile([debug_info]).
+
+%% API
+-export([start/0,startmon/0,mon/0]).
+
+mon() ->
+  process_flag(trap_exit,true),
+  Pid = spawn_link(tcpport,start,[5575]),
+  receive
+    {_,shutdown} -> Pid ! shutdown;
+    {'EXIT',Pid,normal} -> ok;
+    {'EXIT',Pid,shutdown} -> ok;
+    {'EXIT',Pid,_} -> mon()
+  end.
+
+startmon() ->
+  spawn(?MODULE,mon,[]).
+
+start() ->
+  PPid=startmon(),
+  timer:sleep(100),
+  Pid=portman:start({"localhost",5575}),
+  portman:send(Pid,["Something 1"]),
+  timer:sleep(100),
+  portman:send(Pid,["Something 2"]),
+  timer:sleep(100),
+  portman:send(Pid,["Something 3"]),
+  timer:sleep(100),
+  portman:send(Pid,["Something 4"]),
+  timer:sleep(100),
+  portman:send(Pid,shutdown),
+  PPid ! {self(),shutdown}.