Initial adaptation of nwfnet-sntp to sntppkt

diff --git a/net/nwfnet-sntp.lua b/net/nwfnet-sntp.lua
index 4020665798b5a029662f5ff3648ae59f3ff7a566..f07ba7296e3ced96bff01ee1f579000b2a982f9d 100644 (file)
--- a/net/nwfnet-sntp.lua
+++ b/net/nwfnet-sntp.lua
@@ -1,8 +1,27 @@
 local function dosntp(server)
-  pcall(sntp.sync,(require "nwfnet").sntp,
-     function(sec,usec,server) rtctime.set(sec,usec); (require"nwfnet"):runnet("sntpsync",sec,usec,server) end,
-     function(err) (require"nwfnet"):runnet("sntperr",err) end
-  )
+  local nwo = OVL and OVL["sntp"]
+
+  if nwo then
+    nwo = nwo()
+    -- new world order?
+    nwo.go((require "nwfnet").sntp, nil,
+      function(res, serv, self)
+       local sec, usec = nil, nil -- rtctime.get()
+        (require"nwfnet"):runnet("sntpsync",sec,usec,serv)
+      end,
+      function(err, srv, rply)
+       if err == "all" then (require"nwfnet"):runnet("sntperr","No SNTP available") end
+      end)
+  elseif sntp then
+    -- old world order
+    local function try()
+    pcall(sntp.sync,(require "nwfnet").sntp,
+      function(sec,usec,server) rtctime.set(sec,usec); (require"nwfnet"):runnet("sntpsync",sec,usec,server) end,
+      function(err) (require"nwfnet"):runnet("sntperr",err) end)
+    end
+    try()
+    cron.schedule("*/5 * * * *", try)
+  end
 end
 
 local self = {}