784
785
%% This code will be changed when the hosts-table is reorganized
786
787
{add_host,{127,0,0,1},[TName|TAs]} when is_list(TName), is_list(TAs) ->
788
789
NameList = case ets:lookup(State#state.hosts,{127,0,0,1}) of
789
790
[{_IP,_,NList}] -> NList;
792
Ns = lists:filter(fun(N) -> not(member(N, NameList)) end, [Name|As]),
793
Ns = [N || N <- [Name|As], not member(N, NameList)],
793
794
ets:insert(State#state.hosts, {{127,0,0,1},inet,NameList ++ Ns}),
796
797
{add_host,IP,[TName|TAs]} when is_tuple(IP), is_list(TName), is_list(TAs) ->
799
800
case ets:lookup(State#state.hosts, IP) of