Global emu debugged

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}).