anchor.diff:      server(Port, Path).
   
   server(Port, Path) ->
  +    ets:new(cache, [set, public, named_table]),
       io:format("port ~p ~n",[Port]),
       case gen_tcp:listen(Port, [binary, {packet, raw}, {active, true}, {reuseaddr, true}]) of
           {ok, ListenPort} ->
  
positive.code:     end,
      {"200", "<html><head></head><body>"++"<ul>"++List++"</ul>"++"</body></html>"}.
  
  read_path(Path, Root) ->
      AbsolutePath = Root ++ Path,
      case filelib:is_dir(AbsolutePath) of
  
negative.code:     end.
  
  get_html(Request, Root)->
      {_, [Path]} = dict:find("path", Request),
      {Code, Text} = read_cache(Path, Root),
      Len = string:len(Text),
      "HTTP/1.1 "++ Code ++" OK\r\nContent-Length: "++integer_to_list(Len)++ "\r\n\r\n" ++ Text.
  