mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-10-29 16:58:06 +00:00
3b69cf992e
* Installs luarocks WITH it's executable (easy to install other rocks if necessary) * Use Lua supplied with luarocks * Create Utils/luadocumentor.bat, which works with RELATIVE PATH ! -> Everybody can generate the doc * Updated launch files accordingly
93 lines
3.2 KiB
Lua
93 lines
3.2 KiB
Lua
|
|
--- Module implementing the luarocks-admin "remove" command.
|
|
-- Removes a rock or rockspec from a rocks server.
|
|
local admin_remove = {}
|
|
package.loaded["luarocks.admin_remove"] = admin_remove
|
|
|
|
local cfg = require("luarocks.cfg")
|
|
local util = require("luarocks.util")
|
|
local dir = require("luarocks.dir")
|
|
local manif = require("luarocks.manif")
|
|
local index = require("luarocks.index")
|
|
local fs = require("luarocks.fs")
|
|
local cache = require("luarocks.cache")
|
|
|
|
util.add_run_function(admin_remove)
|
|
admin_remove.help_summary = "Remove a rock or rockspec from a rocks server."
|
|
admin_remove.help_arguments = "[--server=<server>] [--no-refresh] {<rockspec>|<rock>...}"
|
|
admin_remove.help = [[
|
|
Arguments are local files, which may be rockspecs or rocks.
|
|
The flag --server indicates which server to use.
|
|
If not given, the default server set in the upload_server variable
|
|
from the configuration file is used instead.
|
|
The flag --no-refresh indicates the local cache should not be refreshed
|
|
prior to generation of the updated manifest.
|
|
]]
|
|
|
|
local function remove_files_from_server(refresh, rockfiles, server, upload_server)
|
|
assert(type(refresh) == "boolean" or not refresh)
|
|
assert(type(rockfiles) == "table")
|
|
assert(type(server) == "string")
|
|
assert(type(upload_server) == "table" or not upload_server)
|
|
|
|
local download_url, login_url = cache.get_server_urls(server, upload_server)
|
|
local at = fs.current_dir()
|
|
local refresh_fn = refresh and cache.refresh_local_cache or cache.split_server_url
|
|
|
|
local local_cache, protocol, server_path, user, password = refresh_fn(server, download_url, cfg.upload_user, cfg.upload_password)
|
|
if not local_cache then
|
|
return nil, protocol
|
|
end
|
|
if protocol ~= "rsync" then
|
|
return nil, "This command requires 'rsync', check your configuration."
|
|
end
|
|
|
|
local ok, err = fs.change_dir(at)
|
|
if not ok then return nil, err end
|
|
|
|
local nr_files = 0
|
|
for _, rockfile in ipairs(rockfiles) do
|
|
local basename = dir.base_name(rockfile)
|
|
local file = dir.path(local_cache, basename)
|
|
util.printout("Removing file "..file.."...")
|
|
fs.delete(file)
|
|
if not fs.exists(file) then
|
|
nr_files = nr_files + 1
|
|
else
|
|
util.printerr("Failed removing "..file)
|
|
end
|
|
end
|
|
if nr_files == 0 then
|
|
return nil, "No files removed."
|
|
end
|
|
|
|
local ok, err = fs.change_dir(local_cache)
|
|
if not ok then return nil, err end
|
|
|
|
util.printout("Updating manifest...")
|
|
manif.make_manifest(local_cache, "one", true)
|
|
util.printout("Updating index.html...")
|
|
index.make_index(local_cache)
|
|
|
|
local srv, path = server_path:match("([^/]+)(/.+)")
|
|
local cmd = cfg.variables.RSYNC.." "..cfg.variables.RSYNCFLAGS.." --delete -e ssh "..local_cache.."/ "..user.."@"..srv..":"..path.."/"
|
|
|
|
util.printout(cmd)
|
|
fs.execute(cmd)
|
|
|
|
return true
|
|
end
|
|
|
|
function admin_remove.command(flags, ...)
|
|
local files = {...}
|
|
if #files < 1 then
|
|
return nil, "Argument missing. "..util.see_help("remove", "luarocks-admin")
|
|
end
|
|
local server, server_table = cache.get_upload_server(flags["server"])
|
|
if not server then return nil, server_table end
|
|
return remove_files_from_server(not flags["no-refresh"], files, server, server_table)
|
|
end
|
|
|
|
|
|
return admin_remove
|