From 859179718904a1824082fdbbf77192bd1ce762e7 Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Fri, 16 May 2014 20:16:33 +0800 Subject: First commit --- startserv.erl | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 startserv.erl (limited to 'startserv.erl') 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, +%%% @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}. -- cgit v1.2.3-70-g09d2