anchor.diff:      UpdatedNodes =
           case gb_trees:lookup(Node, Nodes) of
               {value, N} when Status =:= up ->
  -                N1 = N#dnode{connection_status = up},
  +                N1 = N#dnode{connection_status = {up, now()}},
                   gb_trees:update(Node, N1, Nodes);
               {value, N} when Status =:= down ->
  -                N1 = N#dnode{connection_status = now()},
  +                N1 = N#dnode{connection_status = {down, now()}},
                   gb_trees:update(Node, N1, Nodes);
               _ -> Nodes
           end,
  
positive.code:     #node_ports{get_port = GetPort, put_port = PutPort}.
  
  -spec allow_write(#dnode{}) -> boolean().
  allow_write(#dnode{connection_status = up,
                     manual_blacklist = false}) ->
      true;
  allow_write(#dnode{}) ->
      false.
  
  -spec allow_read(#dnode{}) -> boolean().
  allow_read(#dnode{connection_status = up}) ->
      true;
  allow_read(#dnode{}) ->
      false.
  
negative.code:                               {#dnode{host = Host,
                                        node_mon = node_mon:start_link(Host, NodePorts),
                                        manual_blacklist = lists:member(Host, Blacklist),
                                        connection_status = {down, now()},
                                        slots = Slots,
                                        num_running = 0,
                                        stats_ok = 0,
  