assets

--Minetest
--Copyright (C) 2018-20 rubenwardy
--
--This program is free software; you can redistribute it and/or modify
--it under the terms of the GNU Lesser General Public License as published by
--the Free Software Foundation; either version 2.1 of the License, or
--(at your option) any later version.
--
--This program is distributed in the hope that it will be useful,
--but WITHOUT ANY WARRANTY; without even the implied warranty of
--MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--GNU Lesser General Public License for more details.
--
--You should have received a copy of the GNU Lesser General Public License along
--with this program; if not, write to the Free Software Foundation, Inc.,
--51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

if not core.get_http_api then
	function create_store_dlg()
		return messagebox("store",
				fgettext("ContentDB is not available when Minetest was compiled without cURL"))
	end
	return
end

-- Unordered preserves the original order of the ContentDB API,
-- before the package list is ordered based on installed state.
local store = { packages = {}, packages_full = {}, packages_full_unordered = {} }

local http = core.get_http_api()

-- Screenshot
local screenshot_dir = core.get_cache_path() .. DIR_DELIM .. "cdb"
assert(core.create_dir(screenshot_dir))
local screenshot_downloading = {}
local screenshot_downloaded = {}

-- Filter
local search_string = ""
local cur_page = 1
local num_per_page = 5
local filter_type = 1
local filter_types_titles = {
	fgettext("All packages"),
	fgettext("Games"),
	fgettext("Mods"),
	fgettext("Texture packs"),
}

local number_downloading = 0
local download_queue = {}

local filter_types_type = {
	nil,
	"game",
	"mod",
	"txp",
}

local REASON_NEW = "new"
local REASON_UPDATE = "update"
local REASON_DEPENDENCY = "dependency"


local function get_download_url(package, reason)
	local base_url = core.settings:get("contentdb_url")
	local ret = base_url .. ("/packages/%s/%s/releases/%d/download/"):format(package.author, package.name, package.release)
	if reason then
		ret = ret .. "?reason=" .. reason
	end
	return ret
end


local function download_and_extract(param)
	local package = param.package

	local filename = core.get_temp_path(true)
	if filename == "" or not core.download_file(param.url, filename) then
		core.log("error", "Downloading " .. dump(param.url) .. " failed")
		return {
			msg = fgettext("Failed to download $1", package.name)
		}
	end

	local tempfolder = core.get_temp_path()
	if tempfolder ~= "" then
		tempfolder = tempfolder .. DIR_DELIM .. "MT_" .. math.random(1, 1024000)
		if not core.extract_zip(filename, tempfolder) then
			tempfolder = nil
		end
	else
		tempfolder = nil
	end
	os.remove(filename)
	if not tempfolder then
		return {
			msg = fgettext("Install: Unsupported file type or broken archive"),
		}
	end

	return {
		path = tempfolder
	}
end

local function start_install(package, reason)
	local params = {
		package = package,
		url = get_download_url(package, reason),
	}

	number_downloading = number_downloading + 1

	local function callback(result)
		if result.msg then
			gamedata.errormessage = result.msg
		else
			local path, msg = pkgmgr.install_dir(package.type, result.path, package.name, package.path)
			core.delete_dir(result.path)
			if not path then
				gamedata.errormessage = msg
			else
				core.log("action", "Installed package to " .. path)

				local conf_path
				local name_is_title = false
				if package.type == "mod" then
					local actual_type = pkgmgr.get_folder_type(path)
					if actual_type.type == "modpack" then
						conf_path = path .. DIR_DELIM .. "modpack.conf"
					else
						conf_path = path .. DIR_DELIM .. "mod.conf"
					end
				elseif package.type == "game" then
					conf_path = path .. DIR_DELIM .. "game.conf"
					name_is_title = true
				elseif package.type == "txp" then
					conf_path = path .. DIR_DELIM .. "texture_pack.conf"
				end

				if conf_path then
					local conf = Settings(conf_path)
					if name_is_title then
						conf:set("name",   package.title)
					else
						conf:set("title",  package.title)
						conf:set("name",   package.name)
					end
					if not conf:get("description") then
						conf:set("description", package.short_description)
					end
					conf:set("author",     package.author)
					conf:set("release",    package.release)
					conf:write()
				end
			end
		end

		package.downloading = false

		number_downloading = number_downloading - 1

		local next = download_queue[1]
		if next then
			table.remove(download_queue, 1)

			start_install(next.package, next.reason)
		end

		ui.update()
	end

	package.queued = false
	package.downloading = true

	if not core.handle_async(download_and_extract, params, callback) then
		core.log("error", "ERROR: async event failed")
		gamedata.errormessage = fgettext("Failed to download $1", package.name)
		return
	end
end

local function queue_download(package, reason)
	local max_concurrent_downloads = tonumber(core.settings:get("contentdb_max_concurrent_downloads"))
	if number_downloading < max_concurrent_downloads then
		start_install(package, reason)
	else
		table.insert(download_queue, { package = package, reason = reason })
		package.queued = true
	end
end

local function get_raw_dependencies(package)
	if package.raw_deps then
		return package.raw_deps
	end

	local url_fmt = "/api/packages/%s/dependencies/?only_hard=1&protocol_version=%s&engine_version=%s"
	local version = core.get_version()
	local base_url = core.settings:get("contentdb_url")
	local url = base_url .. url_fmt:format(package.id, core.get_max_supp_proto(), version.string)

	local response = http.fetch_sync({ url = url })
	if not response.succeeded then
		return
	end

	local data = core.parse_json(response.data) or {}

	local content_lookup = {}
	for _, pkg in pairs(store.packages_full) do
		content_lookup[pkg.id] = pkg
	end

	for id, raw_deps in pairs(data) do
		local package2 = content_lookup[id:lower()]
		if package2 and not package2.raw_deps then
			package2.raw_deps = raw_deps

			for _, dep in pairs(raw_deps) do
				local packages = {}
Mode	Name	Size
-rw-r--r--	AdvTrains_Additions.zip	889352	log plain
-rw-r--r--	Weichenhebel-CooleLokAnimiert.zip	154594	log plain
d---------	Weichenhebel-CooleLokAnimiert	57	log plain
-rw-r--r--	advtrains_across.xcf	13559	log plain
-rw-r--r--	advtrains_newlocomotive.xcf	7462378	log plain
-rw-r--r--	advtrains_wagon.png	72273	log plain
-rw-r--r--	andreaskreuz.blend	507904	log plain
-rw-r--r--	andreaskreuz.blend1	507904	log plain
-rw-r--r--	andreaskreuz.png	69701	log plain
-rw-r--r--	at_il_tcb_node.blend	483100	log plain
d---------	blender	1289	log plain
-rw-r--r--	dampflock4.blend	1000628	log plain
d---------	img_large	114	log plain
-rw-r--r--	init.lua	0	log plain
d---------	interlocking.html.LyXconv	3596	log plain
-rw-r--r--	interlocking.lyx	47235	log plain
-rw-r--r--	interlocking.lyx~	47133	log plain
-rw-r--r--	larger rails.xcf	1239132	log plain
d---------	lyx_img	745	log plain
-rw-r--r--	magleves_lockomotive.blend	747680	log plain
-rw-r--r--	magleves_track.blend	464960	log plain
-rw-r--r--	magleves_wagon.blend	709904	log plain
d---------	manual.html.LyXconv	2327	log plain
-rw-r--r--	manual.lyx	14464	log plain
-rw-r--r--	manual.odt	1047714	log plain
d---------	manual_img	1858	log plain
d---------	mbbrailtextures	175	log plain
-rw-r--r--	mod.conf	206	log plain
-rw-r--r--	modern_japan_lockomotive.blend	892480	log plain
-rw-r--r--	modern_japan_wagon.blend	856968	log plain
d---------	oldmodels	134	log plain
-rw-r--r--	schild.blend	513160	log plain
-rw-r--r--	schild.blend1	513160	log plain
-rw-r--r--	schild.png	28705	log plain
-rw-r--r--	schild_flaeche.png	526	log plain
-rw-r--r--	signal_wall.blend	512620	log plain
-rw-r--r--	signal_wall.png	107155	log plain
-rw-r--r--	signal_wall_ceiling.blend	512620	log plain
-rw-r--r--	uban_fancy.blend	1020740	log plain
-rw-r--r--	wagonfancytexture.png	42023	log plain
-rw-r--r--	wagong_fancy.blend	1044484	log plain