diff options
Diffstat (limited to 'tcpserv.erl')
| -rw-r--r-- | tcpserv.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tcpserv.erl b/tcpserv.erl index 91a25a6..808bcba 100644 --- a/tcpserv.erl +++ b/tcpserv.erl @@ -45,10 +45,10 @@ do_recv(Sock,Pid,To,Cnt) -> %% Message manipulation & dispatch routine manip_msg(Pid,To,[0,0,Addr,MsgReq,MsgRes|Name]) -> %% Operation command dispatch -> Complex(devicemon + Message handler) - cmdiface:reg_feedbackOps(Addr,Name,?DLYTIME,MsgReq,MsgRes,To); + cmdiface:reg_feedbackOps(Addr,Name,?DLYTIME,[MsgReq],[MsgRes],To); manip_msg(Pid,To,[0|Tail]) -> %% Seperation from the next part - devicemon ! [0|Tail]; + devicemon ! {To,comm,[0|Tail]}; manip_msg(Pid,To,[Addr,Cmd|Name]) when Addr<10 -> %% Seperation from the next part cmdiface:invoke_cmd(Addr,Name,[Cmd]); |