Module:File license

Powers {{file license}}.

---

local p = {} --p stands for package
local h = {} --h stands for helper

function p.makeLicense(frame)
	local args = frame:getParent().args
	
	local typeOfFile = args["type of file"] or "image"
	local source = args["source"] or ""
	local license = args["license"] or "fair"
	local copyrightHolder = args["copyright holder"] or ""
	local copyrightYear = args["copyright year"] or ""
	local intent = args["intent"] or "to illustrate articles"
	local tentative = args["tentative"] or ""
	local ownWork = args["own work"] or ""
	local trademarkOwner = args["trademark owner"] or ""
	local trademarkUsage = args["trademark usage"] or "Its use here is believed not to be [[wikipedia:trademark infringement|trademark infringement]]. "
	local attribution = args["attribution"] or ""
	local attributionFormat = args["attribution format"] or ""
	local subject = args["subject"] or ""
	local subjectLicense = args["subject license"] or ""
	local extra = args["extra"] or ""
	
	if tentative ~= "" then
		tentativeText = "It is believed that use"
	else
		tentativeText = "Use"
	end
	
	local typeOfFileArticle = "a"
	local vowels = {["a"] = true, ["e"] = true, ["i"] = true, ["o"] = true, ["u"] = true}
	if vowels[string.sub(typeOfFile, 1, 1)] then
		typeOfFileArticle = "an"
	end
	
	local sourceText = ""
	if source ~= "" then
		sourceText = " from " .. source
	end
	
	local subjectText = ""
	if subject ~= "" then
		subjectText = " of " .. subject
	end

	local copyrightHolderText = ""
	if copyrightHolder ~= "" then
		copyrightHolderText = frame:preprocess(copyrightHolder)
	end
	
	local attributionText = attribution
	if attributionText == "" then
		attributionText = copyrightHolderText
	end
	if attributionText == "" then
		attributionText = trademarkOwner
	end
	
	local licenseData = mw.loadData("Module:File license/data/licenses")
	local licenseText = ""
	local licenseMachinedata = ""
	if licenseData[license] then
		if ownWork ~= "" then 
			licenseText = "I, the copyright holder of this " .. typeOfFile .. ", hereby " .. frame:preprocess(licenseData[license][2]) .. " it's use on the Warwick Wiki " .. intent .. ". "
		else
			licenseText = tentativeText .. " of this " .. typeOfFile .. " " .. intent .. " on the Warwick Wiki " .. frame:preprocess(licenseData[license][1])
		end
		licenseText = frame:preprocess(licenseData[license][11]) .. licenseText  .. " " .. frame:preprocess(licenseData[license][3])
		licenseMachinedata = '<span class="licensetpl"><span class="licensetpl_short">' .. licenseData[license][4] .. '</span><span class="licensetpl_long">' .. licenseData[license][5] .. '</span><span class="licensetpl_link">' .. frame:preprocess("<nowiki>" .. licenseData[license][6] .. "</nowiki>") .. '</span><span class="licensetpl_link_req">' .. tostring(licenseData[license][7]) .. '</span><span class="licensetpl_attr_req">' .. tostring(licenseData[license][8]) .. '</span><span class="licensetpl_attr">' .. attributionText .. '</span><span class="licensetpl_nonfree">' .. tostring(licenseData[license][9]) .. '</span></span>'
	end
	
	local extraLicenses = ""
	local done = false
	local i = 2
	while not done do
		if args["license" .. tostring(i)] and args["license" .. tostring(i)] ~= "" and licenseData[args["license" .. tostring(i)]] then
			if licenseData[args["license" .. tostring(i)]][6] ~= "" then
				extraLicenses = extraLicenses .. frame:preprocess("[" .. licenseData[args["license" .. tostring(i)]][6] .. " " .. licenseData[args["license" .. tostring(i)]][5] .. "]") .. ", "
			else
				extraLicenses = extraLicenses .. licenseData[args["license" .. tostring(i)]][5] .. ", "
			end
			licenseMachinedata = licenseMachinedata .. '<span class="licensetpl"><span class="licensetpl_short">' .. licenseData[args["license" .. tostring(i)]][4] .. '</span><span class="licensetpl_long">' .. licenseData[args["license" .. tostring(i)]][5] .. '</span><span class="licensetpl_link">' .. frame:preprocess("<nowiki>" .. licenseData[args["license" .. tostring(i)]][6] .. "</nowiki>") .. '</span><span class="licensetpl_link_req">' .. tostring(licenseData[args["license" .. tostring(i)]][7]) .. '</span><span class="licensetpl_attr_req">' .. tostring(licenseData[args["license" .. tostring(i)]][8]) .. '</span><span class="licensetpl_attr">' .. attributionText .. '</span><span class="licensetpl_nonfree">' .. tostring(licenseData[args["license" .. tostring(i)]][9]) .. '</span></span>'
			i = i + 1
		else
			done = true
		end
	end
	if extraLicenses ~= "" then
		extraLicenses = extraLicenses:sub(1, -3) .. ". "
		if ownWork then
			extraLicensesText = "<br/><br/>I also make this file available under the following additional license"
			if i > 3 then
				extraLicensesText = extraLicensesText .. "s"
			end
			extraLicensesText = extraLicensesText .. ": " .. extraLicenses
		else
			extraLicensesText = "<br/><br/>This file is also available under the following additional license"
			if i > 3 then
				extraLicensesText = extraLicensesText .. "s"
			end
			extraLicensesText = extraLicensesText .. ": " .. extraLicenses
		end
		licenseText = licenseText .. extraLicensesText
	end
	
	local subjectLicenseText = ""
	if licenseData[subjectLicense] then
		subjectLicenseText = "\n<hr/>" .. frame:preprocess(licenseData[subjectLicense][11]) .. "The inclusion of " .. subject .. " in this " .. typeOfFile .. " " .. frame:preprocess(licenseData[subjectLicense][1]) .. " " .. frame:preprocess(licenseData[subjectLicense][3])
		licenseMachinedata = licenseMachinedata .. '<span class="licensetpl"><span class="licensetpl_short">' .. licenseData[subjectLicense][4] .. '</span><span class="licensetpl_long">' .. licenseData[subjectLicense][5] .. '</span><span class="licensetpl_link">' .. frame:preprocess("<nowiki>" .. licenseData[subjectLicense][6] .. "</nowiki>") .. '</span><span class="licensetpl_link_req">' .. tostring(licenseData[subjectLicense][7]) .. '</span><span class="licensetpl_attr_req">' .. tostring(licenseData[subjectLicense][8]) .. '</span><span class="licensetpl_attr">' .. attributionText .. '</span><span class="licensetpl_nonfree">' .. tostring(licenseData[subjectLicense][9]) .. '</span></span>'
		licenseText = licenseText .. subjectLicenseText
	end
		
	if extraLicenses ~= "" or subjectLicenseText ~= "" then
		licenseMachinedata = '<span class="licensetpl_wrapper">' .. licenseMachinedata .. '</span>'
	end
			
	
	local infoMachinedata = '<span class="fileinfotpl"><span class="fileinfotpl_desc">' .. string.sub(typeOfFileArticle, 1, 1):upper() .. string.sub(typeOfFileArticle, 2, -1) .. ' ' .. typeOfFile .. sourceText .. '.</span><span class="fileinfotpl_src">' .. source .. '</span><span class="fileinfotpl_aut">' .. copyrightHolderText .. '</span></span>'
	
	local i = 1
	local extraCopyrightText = ""
	if args["extra copyright"] and args["extra copyright"] ~= "" then
		args["extra copyright1"] = args["extra copyright"]
		args["extra copyright owner1"] = args["extra copyright owner"]
		args["extra copyright year1"] = args["extra copyright year"]
	end
	while args["extra copyright" .. tostring(i)] and args["extra copyright" .. tostring(i)] ~= "" do
		extraCopyrightText = extraCopyrightText .. args["extra copyright" .. tostring(i)]
		if string.find(args["extra copyright" .. tostring(i)], "and") then
			extraCopyrightText = extraCopyrightText ..  " are "
		else
			extraCopyrightText = extraCopyrightText ..  " is "
		end
		extraCopyrightText = extraCopyrightText ..  " © " .. args["extra copyright owner" .. tostring(i)]
		if args["extra copyright year" .. tostring(i)] and args["extra copyright year" .. tostring(i)] ~= "" then
			extraCopyrightText = extraCopyrightText .. " " .. args["extra copyright year" .. tostring(i)]
		end
		extraCopyrightText = extraCopyrightText .. ". "
		i = i + 1
	end
	if extraCopyrightText ~= "" then
		extraCopyrightText = "\n<hr/>" .. extraCopyrightText
	end
	
	local trademarkText = ""
	if trademarkOwner ~= "" then
		trademarkText = "\n<hr/><span class='restriction-trademarked'>Additionally, some or all of this " .. typeOfFile .. " is a trademark of " .. trademarkOwner .. ". "
		if trademarkUsage ~= "" then
			trademarkText = trademarkText .. trademarkUsage
		end
		trademarkText = trademarkText .. "</span>"
	end
	
	local copyrightOwnedByText = ""
	if licenseData[license][10] then
		copyrightOwnedByText = "It is not under copyright. "
	else
		if copyrightYear ~= "" then
			copyrightOwnedByText = "Its copyright is owned by " .. copyrightHolderText .. ", " .. copyrightYear .. ". "
		else
			copyrightOwnedByText = "Its copyright is owned by " .. copyrightHolderText .. ". "
		end
	end
	
	local attributionNotice = ""
	if attributionText ~= "" then
		if licenseData[license][8] then
				attributionNotice = "\n<hr/>When using this " .. typeOfFile .. ", its creator/owner, " .. attributionText .. ", must be attributed. "
		else
			attributionNotice = "\n<hr/>While not required by the license, this " .. typeOfFile .. " can be attributed to " .. attributionText .. ". "
		end
		if attributionFormat ~= "" then
			attributionNotice = attributionNotice .. "This should be done in in the following way: <br/><center>" .. frame:preprocess(attributionFormat) .. "</center>"
		end
	end
	
	if extra ~= "" then
		extra = "<hr/>" .. extra
	end
	
	local finalLicense = '<div class="file-license">' .. "This file is " .. typeOfFileArticle .. " '''" .. typeOfFile .. "'''" .. subjectText .. sourceText .. ". " .. copyrightOwnedByText .. extraCopyrightText .. "\n<hr/>" .. licenseText .. trademarkText .. attributionNotice .. extra .. "</div>"
	
	local infoMachinedata = '<span class="fileinfotpl"><span class="fileinfotpl_desc" style="display:none;">' .. string.sub(typeOfFileArticle, 1, 1):upper() .. string.sub(typeOfFileArticle, 2, -1) .. ' ' .. typeOfFile .. subjectText .. sourceText .. '.</span><span class="fileinfotpl_src" style="display:none;">' .. source .. '</span><span class="fileinfotpl_aut" style="display:none;">' .. copyrightHolderText .. '</span><span class="fileinfotpl_perm">' .. finalLicense .. '</span></span>'
	
	finalLicense = '<span style="display:none;"> ' .. licenseMachinedata .. "</span>" .. infoMachinedata

	return finalLicense
end

return p