
--- Module implementing the luarocks-admin "refresh_cache" command.
local refresh_cache = {}

local cfg = require("luarocks.core.cfg")
local util = require("luarocks.util")
local cache = require("luarocks.admin.cache")

function refresh_cache.add_to_parser(parser)
   local cmd = parser:command("refresh_cache", "Refresh local cache of a remote rocks server.", util.see_also())

   cmd:option("--from", "The server to use. If not given, the default server "..
      "set in the upload_server variable from the configuration file is used instead.")
      :argname("<server>")
end

function refresh_cache.command(args)
   local server, upload_server = cache.get_upload_server(args.server)
   if not server then return nil, upload_server end
   local download_url = cache.get_server_urls(server, upload_server)
   
   local ok, err = cache.refresh_local_cache(download_url, cfg.upload_user, cfg.upload_password)
   if not ok then
      return nil, err
   else
      return true
   end
end


return refresh_cache
