me-box / core-network Goto Github PK

I've been trying to track this down for a while, but it appears to be an issue with the core-network dns resolver. To repeat:

./start-databox
install driver-os-monitor
install app-os-monitor

Then go to the app-os-monitor ui (you will see the odd error in the cm logs "ERROR: /app-os-monitor/ui/load.png?rand=0.7721667057062178 getaddrinfo ENOTFOUND app-os-monitor app-os-monitor:8080" but it mostly works)

then:

docker exec -it [container-manager id] sh
# nslookup app-os-monitor 10.0.0.3 (this should work)
# for i in `seq 1 10`; do echo "### $i ###"; nslookup app-os-monitor 10.0.0.3; done (this causes the falure)

from this point on dns resolution is completely broken 

If I increase the core-network dns log level I see a lot of resolve app-os-monitor later... not sure if this is related but looks odd.

    Log.info (fun m -> m "Policy.substititue %a for %a" pp_ip old_ip pp_ip new_ip) >>= fun () ->
    if PrivilegedSet.mem (SrcIP old_ip) t.privileged then begin
      PrivilegedSet.remove (SrcIP old_ip) t.privileged
      |> PrivilegedSet.add (SrcIP new_ip)
--    |> fun npriv -> t.privileged <- t.privileged end;

It appears that the last line should be fun npriv -> t.privileged <- npriv since npriv is the accumulation of all the changes above it.

(additionally subsequently matching is done on the old_ip to update it, should it not match on name?)