anchor.diff:                                          ok = file:rename(G, ?JOIN(filename:dirname(G), "Packages"))
                                 end, News),
                   % Update Release file in Suites
  -                %Suites = application:get_env(debris, suites, ?DEFAULT_SUITES),
  -                %Suites = get_conf(list_to_atom(Repo), suites, ?DEFAULT_SUITES),
                   Suites = get_all_suites(Repo),
                   lists:foreach(fun(D) ->  create_archive_release_file(RootDir, D) end,  Suites),
                   ok;
  
positive.code: %  3d68e206d7faa3aded660dc0996054fe 19203165 Contents-armel.gz
  create_archive_release_file(RootDir, Dir) when is_atom(Dir) -> create_archive_release_file(RootDir, atom_to_list(Dir)) ;   
  create_archive_release_file(RootDir, Dir) ->   
                     N = erlang:length(filename:split(filename:join([RootDir, "dists", Dir]))),
                     Repo = list_to_atom(filename:basename(RootDir)),
                     Origin = get_conf(Repo, origin, atom_to_list(Repo)),
                     Label  = get_conf(Repo, label, atom_to_list(Repo)),
                     %Components = application:get_env(debris, components, ["main"]),
                     Components = get_conf(Repo, components, ["main"]),
                     CurDir = filename:join([RootDir, "dists", Dir]),
                     {ok, FilelistRaw} = rec_list_dir(CurDir, true),
                     % Remove any existing signatures, must not be part of content
                     lists:foreach(fun(X) -> case filename:basename(X) of
                                                  "Release.gpg" -> file:delete(X) ;
                                                  "InRelease"   -> file:delete(X) ;
                                                  _             -> ok
                                             end end, FilelistRaw) ,
                     {ok, Filelist} = rec_list_dir(CurDir, true),
                     % Size of each file
                     Tuplelist = lists:flatmap(fun(X) -> {Left, Right} = lists:split(N , filename:split(X)),
                                                         {ok, B} = file:read_file(X),
                                                         M = md5sum_string(B),
                                                         S1 = sha1sum_string(B), 
                                                         S256 = sha256_string(B),
                                                         [{filelib:file_size(X), filename:join(Right), M, S1, S256}] end, lists:sort(Filelist)),
                     % Sort list and take the bigger one to know size string length
                     Tuplelist2 = lists:keysort(1, Tuplelist),
                     {S, _, _, _, _} = lists:last(Tuplelist2),
                     SizeSize = erlang:length(integer_to_list(S)),
                     Codename = get_codename(Repo),
                     % Create content
                     Data =  "Origin: " ++ capfirst(Origin) ++ "\n" ++
                             "Label: " ++ capfirst(Label) ++ "\n" ++
                             "Suite: " ++ Dir ++ "\n" ++ 
                             get_codename_version(Codename) ++
                             "Codename: " ++ Codename ++ "\n" ++
                             "Date: " ++ httpd_util:rfc1123_date(erlang:universaltime()) ++ "\n" ++
                             valid_until(Dir) ++
                             "Architectures: " ++ string:join(get_archs(), " ") ++ "\n" ++
                             "Components: " ++ string:join(Components, " ") ++ "\n" ++
                             "Description: " ++ get_conf(Repo, description, get_description(Repo, Dir)) ++ "\n" ++
                             "MD5Sum: \n" ++ lists:flatmap(fun({Size, Rel, MD5, _, _}) -> 
                               [io_lib:format(" ~s ~"++integer_to_list(SizeSize)++"s ~s~n", 
                                              [MD5, integer_to_list(Size), Rel]) 
                               ]  end , Tuplelist) ++
                             "SHA1: \n" ++ lists:flatmap(fun({Size, Rel, _, SHA1, _}) -> 
                               [io_lib:format(" ~s ~"++integer_to_list(SizeSize)++"s ~s~n", 
                                              [SHA1, integer_to_list(Size), Rel]) 
                               ]  end , Tuplelist) ++
                             "SHA256: \n" ++ lists:flatmap(fun({Size, Rel, _, _, SHA256}) -> 
                               [io_lib:format(" ~s ~"++integer_to_list(SizeSize)++"s ~s~n", 
                                              [SHA256, integer_to_list(Size), Rel]) 
                               ]  end , Tuplelist),
                      Source = ?JOIN(CurDir, "Release"),
                      ok = file:write_file(Source, Data),
                      signatures(Source).
  
  %%-------------------------------------------------------------------------
  %% @doc Valid until in Release file
  
negative.code:                  {ok, Val} -> proplists:get_value(Key, Val, get_conf(atom_to_list(Repo), Key, Default))
              end;
  
  get_conf(_Repo, Key, Default) -> application:get_env(debris, Key, Default).
  
  %%------------------------------------------------------------------------------
  %% @doc Get description of codename
  