diff options
Diffstat (limited to 'startscript.erl')
| -rw-r--r-- | startscript.erl | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/startscript.erl b/startscript.erl index a281211..2ac9ef7 100644 --- a/startscript.erl +++ b/startscript.erl @@ -15,11 +15,11 @@ -include("devicemon.hrl"). --define(HBPERIOD,500). --define(SCANPERIOD,2000). +-define(HBPERIOD,1000). +-define(SCANPERIOD,3000). busbeater(Pid,Addr) -> - case devicemon:getStaus(Addr) of + case devicemon:getStatus(Addr) of error -> spawnscanner(Addr), Pid ! {self(),shutdown}; @@ -38,7 +38,7 @@ busbeater(Pid,Addr) -> busscanner(Pid,Addr) -> %% if devicemon:getStat(Addr) %% Add device status multiplexer here - case devicemon:getStaus(Addr) of + case devicemon:getStatus(Addr) of error -> case rsbusserv:rsbusreq(Addr,[]) of {stat,Type,Stat} -> @@ -46,6 +46,7 @@ busscanner(Pid,Addr) -> spawnbeater(Addr), Pid ! {self(),shutdown}; {error,Cause} -> + erlang:display(Cause), devicemon ! {self(),dereg,Addr} end; _Else -> @@ -65,9 +66,11 @@ runrange(St,Ed,Fun) -> runrange(St+1,Ed,Fun). start() -> - Tcp=tcpserv:start(5575), - Rsbus=rsbusserv:start(), - Evserv=eventserv:start(), - Devmon=devicemon:start(), - runrange(1,10,fun (Addr)->spawnscanner(Addr) end). + tcpserv:start(5575), + rsbusserv:start(), + eventserv:start(), + devicemon:start(), + runrange(1,1,fun (Addr)->spawnscanner(Addr) end). +test() -> + portman:start({"127.0.0.1",5575}). |