1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
--- Module handling the LuaRocks local cache.
-- Adds a rock or rockspec to a rocks server.
module("luarocks.cache", package.seeall)
local fs = require("luarocks.fs")
local cfg = require("luarocks.cfg")
local dir = require("luarocks.dir")
function split_server_url(server, user, password)
local protocol, server_path = dir.split_url(server)
if server_path:match("@") then
local credentials
credentials, server_path = server_path:match("([^@]*)@(.*)")
if credentials:match(":") then
user, password = credentials:match("([^:]*):(.*)")
else
user = credentials
end
end
local local_cache
if cfg.local_cache then
local_cache = cfg.local_cache .. "/" .. server_path
end
return local_cache, protocol, server_path, user, password
end
function refresh_local_cache(server, user, password)
local local_cache, protocol, server_path, user, password = split_server_url(server, user, password)
fs.make_dir(cfg.local_cache)
local tmp_cache = false
if not local_cache then
local_cache = fs.make_temp_dir("local_cache")
tmp_cache = true
end
local ok = fs.make_dir(local_cache)
if not ok then
return nil, "Failed creating local cache dir."
end
fs.change_dir(local_cache)
print("Refreshing cache "..local_cache.."...")
local login_info = ""
if user then login_info = " --user="..user end
if password then login_info = login_info .. " --password="..password end
-- TODO abstract away explicit 'wget' call
local ok = fs.execute("wget -q -m -nd "..protocol.."://"..server_path..login_info)
if not ok then
return nil, "Failed downloading cache."
end
return local_cache, protocol, server_path, user, password
end
|
