networking improvements

sys/services/transort.lua

@@ -5,6 +5,8 @@
   * write acknowledgements
   * background read buffering
 ]]--
+require = requireInjector(getfenv(1))
+local Logger = require('logger')
 
 multishell.setTitle(multishell.getCurrent(), 'Net transport')
 
@@ -51,6 +53,7 @@ while true do
   if e == 'timer' then
     local socket = transport.timers[timerId]
     if socket and socket.connected then
+      Logger.log('transport', 'timeout - closing socket ' .. socket.sport)
       socket:close()
       transport.timers[timerId] = nil
     end
@@ -73,8 +76,15 @@ while true do
         socket.timers[msg.seq] = nil
         transport.timers[timerId] = nil
 
+      elseif msg.type == 'PING' then
+        socket.transmit(socket.dport, socket.dhost, {
+          type = 'ACK',
+          seq = msg.seq,
+        })
+
       elseif msg.type == 'DATA' and msg.data then
         if msg.seq ~= socket.rseq then
+          Logger.log('transport', 'seq error - closing socket ' .. socket.sport)
           socket:close()
         else
           socket.rseq = socket.rseq + 1