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