Изворни код странице Модул:Football box

-- Implements [[Template:Football box]]
local p = {}
local lang = nil
local delink = require('Module:Delink')._delink
local eventschema = "http://schema.org/SportsEvent"
local teamschema = "http://schema.org/SportsTeam"
local placeschema = "http://schema.org/Place"
local penalties = '[[Испуцавање пенала̄ (фудбал)|Пенали]]'
local aet = '[[Продужеци (фудбал)|п.с.н.]]'
local attendance = 'Гледалаца:'
local referee = 'Судија:'
local templatestyles = 'Football box/styles.css'

local tracking, preview

local function checkarg(k,v)
	if k and type(k) == 'string' then
		if  k == 'assistantreferees2' or k == 'помоћнесудије2' then
			table.insert(tracking, '[[Category:Странице које користе шаблон Football box са параметром за помоћне судије|2]]')
		elseif k == 'aggregatescore' or k == 'укупанрезултат' or k == 'assistantreferees' or k == 'помоћнесудије' or 
				k == 'fourthofficial' or k == 'четвртисудија' or k == 'game' or k == 'утакмица' or k == 'motm' or k == 'игме' or 
				k == 'nobars' or k == 'нобарс' or k == 'note' or k == 'напомена' or k == 'result' or k == 'резултат' then
			-- valid and tracked
			table.insert(tracking, '[[Category:Странице које користе шаблон Football box са параметром ' .. k .. ']]')
		elseif k == 'size' or k == 'величина' or k == 'ширина' or k == 'bg' or k == 'позадина' or k == 'бојапозадине' or k == 'id' or k == 'ID' or k == 'event' or k == 'догађај' or 
			k == 'date' or k == 'датум' or k == 'time' or k == 'време' or k == 'round' or k == 'рунда' or k == 'team1' or k == 'тим1' or 
			k == 'team2' or k == 'тим2' or k == 'score1' or k == 'резултат1' or k == 'score2' or k == 'резултат2' or k == 'score' or k == 'резултат' or 
			k == 'aet' or k == 'псн' or k == 'goals1' or k == 'голови1' or k == 'report' or k == 'извештај' or k == 'goals2' or k == 'голови2' or 
			k == 'penaltyscore' or k == 'пеналирезултат' or k == 'penalties1' or k == 'пенали1' or k == 'penalties2' or k == 'пенали2' or 
			k == 'stadium' or k == 'стадион' or k == 'location' or k == 'локација' or k == 'attendance' or k == 'гледалаца' or 
			k == 'referee' or k == 'судија' or k == 'stack' or k == 'стек'  then
			-- valid and not tracked
		else
			-- invalid
			local vlen = mw.ustring.len(k)
			k = mw.ustring.sub(k, 1, (vlen < 25) and vlen or 25) 
			k = mw.ustring.gsub(k, '[^%w\-_ ]', '?')
			table.insert(tracking, '[[Category:Странице које користе шаблон Football box с непознатим параметрима|' .. k .. ']]')
			table.insert(preview, '"' .. k .. '"')
		end
	end
end

local function timestamp(d, t)
	if d then
		lang = lang or mw.language.getContentLanguage() -- lazy initialize
		local success, timestamp = pcall(lang.formatDate, lang, 'c', delink({d .. ' ' .. (t or '')}))
		if success then
			return timestamp
		else
			return nil
		end
	end
	return nil
end

local function fmtlist(s)
	s = mw.ustring.gsub(s or '', '%[%[ *([%?-]) *%]%]', '%1')
	s = mw.ustring.gsub(s, '%[%[ *[%?-] *| *(.-) *%]%]', '%1')
	if mw.ustring.sub(s, 1, 1) == '*' then
		return tostring(mw.html.create('div'):addClass('plainlist'):newline():wikitext(s))
	end
	return s
end

local function makelink(s,t)
	if s:match('^http') then
		return '[' .. s .. ' ' .. t .. ']'
	end
	return s
end

local function trim(s)
	return s:match('^[\'"%s]*(.-)[\'"%s]*$')
end

local function getid(s)
	s = trim(s or '')
	if s and s ~= '' then
		return s
	end
	return nil
end

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame)
	local id = getid(args['id'])
	local d = timestamp(args['date'], args['time'])
	local block
	
	tracking, preview = {}, {}
    for k, v in pairs(args) do
    	if v ~= '' then
    		checkarg(k,v)
    	end
	end

	local score = 'v'
	if args['score1'] or args['score2'] then
		score = (args['score1'] or '0') .. '&mdash;' .. (args['score2'] or '0')
	elseif args['резултат1'] or args['резултат2'] then
		score = (args['резултат1'] or '0') .. '&mdash;' .. (args['резултат2'] or '0')
	elseif (args['score'] and args['score'] ~= '') then
		score = args['score']
	elseif (args['резултат'] and args['резултат'] ~= '') then
		score = args['резултат']
	end
	if args['aet'] or args['псн'] then
		score = score .. ' (' .. aet .. ')'
	end
	
	-- Start box
	local root = 
		mw.html.create('div')
			:attr('itemscope', '')
			:attr('itemtype', eventschema)
			:addClass('footballbox')
			:css('width', args['size'] or args['величина'] or args['ширина'])
			:css('background-color', args['bg'] or args['позадина'] or args['бојапозадине'])
			:attr('id', id)
	root:newline()
	
	if args['event'] then
		root:tag('div')
			:addClass('ftitle')
			:wikitext(args['event'])
	elseif args['догађај'] then
		root:tag('div')
			:addClass('ftitle')
			:wikitext(args['догађај'])
	end
	
	-- Start left block
	block = root:tag('div')
		:addClass('mobile-float-reset')
		:addClass('fleft')
	
	local timetag = block:tag('time') or block:tag('време')
		:attr('itemprop', d and 'startDate' or nil)
		:attr('datetime', d)
		
	timetag:tag('div')
		:addClass('mobile-float-reset')
		:addClass('fdate')
		:wikitext(args['date'] or args['датум'])
	
	if args['time'] then
		timetag:tag('div')
			:addClass('mobile-float-reset')
			:addClass('ftime')
			:wikitext(args['time'])
	elseif args['време'] then
		timetag:tag('div')
			:addClass('mobile-float-reset')
			:addClass('ftime')
			:wikitext(args['време'])
	end
	
	if args['round'] then
		block:tag('div')
			:addClass('mobile-float-reset')
			:addClass('frnd')
			:wikitext(args['round'])
	elseif args['рунда'] then
		block:tag('div')
			:addClass('mobile-float-reset')
			:addClass('frnd')
			:wikitext(args['рунда'])
	end
	-- End block
	
	-- Start table
	local rtable = root:tag('table')
		:addClass('fevent')
	local row = rtable:tag('tr')
		:attr('itemprop', 'name')
	row:newline()
	row:tag('th')
		:addClass('fhome')
		:attr('itemprop', 'homeTeam')
		:attr('itemscope', '')
		:attr('itemtype', teamschema)
		:tag('span')
			:attr('itemprop', 'name')
			:wikitext(args['team1'] or args['тим1'])
	row:tag('th')
		:addClass('fscore')
		:wikitext(score)
	row:tag('th')
		:addClass('faway')
		:attr('itemprop', 'awayTeam')
		:attr('itemscope', '')
		:attr('itemtype', teamschema)
		:tag('span')
			:attr('itemprop', 'name')
			:wikitext(args['team2'] or args['тим2'])

	row = rtable:tag('tr')
		:addClass('fgoals')
		:newline()
	row:tag('td')
		:addClass('fhgoal')
		:wikitext(fmtlist(args['goals1'] or args['голови1']))
	row:newline()
	row:tag('td')
		:wikitext(makelink(args['report'] or args['извештај'] or '', 'Извештај'))
	row:newline()
	row:tag('td')
		:addClass('fagoal')
		:wikitext(fmtlist(args['goals2'] or args['голови2']))
	row:newline()	
	
	if args['penaltyscore'] then
		rtable
			:tag('tr')
				:tag('th')
					:attr('colspan', 3)
					:wikitext(penalties)
		row = rtable:tag('tr')
			:addClass('fgoals')
		row:newline()
		row:tag('td')
			:addClass('fhgoal')
			:wikitext(fmtlist(args['penalties1']))
		row:newline()
		row:tag('th')
			:wikitext(args['penaltyscore'])
		row:newline()
		row:tag('td')
			:addClass('fagoal')
			:wikitext(fmtlist(args['penalties2']))
		row:newline()
	elseif args['пеналирезултат'] then
		rtable
			:tag('tr')
				:tag('th')
					:attr('colspan', 3)
					:wikitext(penalties)
		row = rtable:tag('tr')
			:addClass('fgoals')
		row:newline()
		row:tag('td')
			:addClass('fhgoal')
			:wikitext(fmtlist(args['пенали1']))
		row:newline()
		row:tag('th')
			:wikitext(args['пеналирезултат'])
		row:newline()
		row:tag('td')
			:addClass('fagoal')
			:wikitext(fmtlist(args['пенали2']))
		row:newline()
	end
	-- End table
	
	-- Start right block
	block = root:tag('div')
		:addClass('mobile-float-reset')
		:addClass('fright')
	
	if args['stadium'] then
		local sdiv = block:tag('div')
			:attr('itemprop', 'location')
			:attr('itemscope', '')
			:attr('itemtype', placeschema)
		if args['location'] then
			sdiv:tag('span')
				:attr('itemprop', 'name')
				:wikitext(args['stadium'])
			sdiv:wikitext(', ')
			sdiv:tag('span')
				:attr('itemprop', 'address')
				:wikitext(args['location'])
		else
			sdiv:tag('span')
				:attr('itemprop', 'name address')
				:wikitext(args['stadium'])
		end
	elseif args['стадион'] then
		local sdiv = block:tag('div')
			:attr('itemprop', 'location')
			:attr('itemscope', '')
			:attr('itemtype', placeschema)
		if args['локација'] then
			sdiv:tag('span')
				:attr('itemprop', 'name')
				:wikitext(args['стадион'])
			sdiv:wikitext(', ')
			sdiv:tag('span')
				:attr('itemprop', 'address')
				:wikitext(args['локација'])
		else
			sdiv:tag('span')
				:attr('itemprop', 'name address')
				:wikitext(args['стадион'])
		end
	end
	
	if args['attendance'] then
		block:tag('div'):wikitext(attendance ..' ' .. args['attendance'])
	elseif args['гледалаца'] then
		block:tag('div'):wikitext(attendance ..' ' .. args['гледалаца'])
	end
	if args['referee'] then
		block:tag('div'):wikitext(referee .. ' ' .. args['referee'])
	elseif args['судија'] then
		block:tag('div'):wikitext(referee .. ' ' .. args['судија'])
	end

	local trackstr = (#tracking > 0) and table.concat(tracking, '') or ''
	if #preview > 0 and frame:preprocess( "{{REVISIONID}}" ) == "" then
		trackstr = tostring(mw.html.create('div')
			:addClass('hatnote')
			:css('color','red')
			:tag('strong'):wikitext('Упозорење:'):done()
			:wikitext('Непознати параметри: ' .. table.concat(preview, '; ')))
	end
	
	return frame:extensionTag{ name = 'templatestyles', args = { src = templatestyles} } .. tostring(root) .. trackstr
end

return p