gluon/package/gluon-core/luasrc/lib/gluon/upgrade/500-opkg

#!/usr/bin/lua

local fs = require 'nixio.fs'

if not fs.access('/etc/opkg/distfeeds.conf') then
	os.exit(0)
end


local site = require 'gluon.site'
local util = require 'gluon.util'


local subst = {}


local f = io.popen('. /etc/openwrt_release; echo "$DISTRIB_CODENAME"; echo "$DISTRIB_RELEASE"; echo "$DISTRIB_TARGET"; echo "$DISTRIB_ARCH"')
subst['%%n'] = f:read()
subst['%%v'] = f:read():gsub('-SNAPSHOT', '')
subst['%%S'] = f:read()
subst['%%A'] = f:read()
f:close()

subst['%%GS'] = site.site_code()
subst['%%GV'] = util.trim(fs.readfile('/lib/gluon/gluon-version'))
subst['%%GR'] = util.trim(fs.readfile('/lib/gluon/release'))

local prefix = subst['%%n'] .. '_'


local function replace_patterns(url)
	for k, v in pairs(subst) do
		url = url:gsub(k, v)
	end

	return url
end


local lede = site.opkg.lede()
local extra = site.opkg.extra({})


local distfeeds = {}
for line in io.lines('/etc/opkg/distfeeds.conf') do
	table.insert(distfeeds, line)
end

local f = io.open('/etc/opkg/distfeeds.conf', 'w')

for _, line in ipairs(distfeeds) do
	local name = line:match('^src/gz%s' .. prefix .. '(%S+)%s')
	if name == 'core' then
		f:write('# ' .. line .. '\n')
	elseif name and lede then
		f:write(string.format('src/gz %s %s/%s\n', prefix .. name, replace_patterns(lede), name))
	else
		f:write(line .. '\n')
	end
end

f:close()

if next(extra) then
	local f = io.open('/etc/opkg/gluon.conf', 'w')

	for k, v in pairs(extra) do
		f:write(string.format('src/gz %s %s\n', k, replace_patterns(v)))
	end

	f:close()

else
	os.remove('/etc/opkg/gluon.conf')
end