anchor.diff:  -define(SERVER, ?MODULE).
   -define(PING_TIME,30000).  %Ping every 30 seconds
   -define(UPDATE_KNOWN,10000).
  --define(RECONNECT_KNOWN,10000).
   
   -include_lib("p6core/include/p6core.hrl").
   
  
positive.code: 		    end
  	    end, Known, nodes()),
      State#state{known_nodes=New}.
  
  reconnect_known(#state{known_nodes=Known}) ->
      Nodes = nodes(),
      lists:foreach(
        fun(Node) ->
  	      case lists:member(Node,Nodes) of
  		  true -> ok;
  		  false ->
  		      case net_adm:ping(Node) of
  			  pong -> ?linfo("Reconnected to: ~p",[Node]);
  			  pang -> ok
  		      end
  	      end
        end, Known).
  			  
  
  send_ping(#state{sock=Sock,addr=Addr,port=Port,ping=Ping}) ->
      ok = gen_udp:send(Sock,Addr,Port,term_to_binary(Ping)).
  
negative.code: 	    end
      end;
  
  handle_info(update_known,State) ->
      {noreply,update_known(State)};
  
  