Модуль:Справочник

Материал из Кадровый состав НКВД 1935-1939
Перейти к: навигация, поиск

Для документации этого модуля может быть создана страница Модуль:Справочник/doc

local pp = {}

global = mw.ext.luaglobal
tools = require( 'Модуль:Tools' )
global.strict( true )

local function pattern( args, pars )
	return mw.ustring.format( pars, mw.uri.encode( args[2] or '', 'PATH' ) )
end

local function ruwp( args )
	local name = args[2]
	if not name then
		local gFio = global.get( 'gFIO' )[1]
		if ( gFio.f or '' ) ~= '' then
			name = gFio.l .. ', ' .. gFio.f .. ' ' .. gFio.m
		else
			name = gFio.l
		end
	end
	return '[[ru:' .. name .. '|Википедия]]'
end

local function cyclo( args )
	local name = args[2]
	if not name then
		local gFio = global.get( 'gFIO' )[1]
		name = table.concat( { gFio.f, gFio.m, gFio.l }, ' ')
	end
	return 'сайт «[[cyclo:' .. name .. '|Циклопедия]]»'
end

local function simpleURL( args, pars )
	return mw.ustring.format( pars, args[1] or '' )
end

local function podvig( args )
	local id = args[2] or ''
	return 'картотека награждений на сайтах ОБД МО «[http://podvignaroda.ru/?#id=' .. id
		.. ' Подвиг] / [https://pamyat-naroda.ru/heroes/podvig-chelovek_kartoteka' .. id
		.. ' Память] народа»'
end

local function pn( args )
	local name = args[2]
	if not name then
		name = global.get( 'gFIO' )[1]
	else
		name = mw.text.split( name, ' ' )
	end
	local birth =  global.get( 'gBirth' ) or {}
	birth = tools.reparseDate( birth[1] or '—' )
	if birth == '—' then
		birth = ''
	end
	return 'на сайте Минобороны России «[https://pamyatnaroda.mil.ru/heroes/?last_name=' .. name.l 
		.. '&first_name=' .. (name.f or '') .. '&middle_name=' .. (name.m or '')
		.. '&date_birth=' .. birth .. ' Память народа]»'
end

local function garf( args )
	if args[2] == '7523' and args[3] == '7' then
		return 'личное дело в отделе Верховного Совета СССР по учету и регистрации награжденных (ГАРФ. Ф. 7523. Оп. 7. Д. '
			.. args[4] .. '. Л. ' .. args[5] .. ')'
	else
		return 'ГАРФ. Ф.  ' .. args[2].. '. Оп. ' .. args[3].. '. Д. '
			.. args[4] .. '. Л. ' .. args[5]
	end
end

local function rgva( args )
	if args[2] == '37837' and args[3] == '3' then
		return 'материалы наградного отдела Управления кадров РККА (РГВА. Ф. 37837. Оп. 3. Д. '
			.. args[4] .. '. Л. ' .. args[5] .. ')'
	else
		return 'РГВА. Ф.  ' .. args[2].. '. Оп. ' .. args[3].. '. Д. '
			.. args[4] .. '. Л. ' .. args[5]
	end
end

local list = {
	['кто-1'] = {
		pars = '[http://www.memo.ru/history/NKVD/kto/biogr/gb%s.htm Н. Петров, К. Скоркин. Кто руководил НКВД, 1934-1941: Справочник] (М.: Звенья, 1999. ISBN 5-7870-0032-3)',
		func = pattern,
		ctg = 'Персоналии в справочнике Петрова—Скоркина',
		online = true,
	},
	['кто-2'] = {
		pars = '[http://www.memo.ru/history/NKVD/kto2/kto_2-%s.html Н. Петров. Кто руководил органами госбезопасности, 1941-1954: Справочник] (М.: Звенья, 2010. ISBN 5-7870-0109-9)',
		func = pattern,
		ctg = 'Персоналии в справочнике Петрова',
		online = true,
	},
	['открытый список'] = {
		pars = 'cайт «[[ol:%s|Открытый список]]»',
		func = pattern,
		ctg = 'Персоналии на сайте «Открытый список»',
		online = true,
	},
	['википедия'] = {
		func = ruwp,
		ctg = 'Персоналии в Википедии',
		online = true,
		min = 0,
	},
	['циклопедия'] = {
		func = cyclo,
		ctg = 'Персоналии в Циклопедии',
		online = true,
		min = 0,
	},
	['www.centrasia.ru'] = {
		pars = 'cайт «[%s ЦентрАзия]»',
		func = simpleURL,
		ctg = 'Персоналии на сайте «ЦентрАзия»',
		online = true,
		min = 0,
		max = 0,
	},
	['centrasia.org'] = {
		pars = 'cайт «[%s ЦентрАзия]»',
		func = simpleURL,
		ctg = 'Персоналии на сайте «ЦентрАзия»',
		online = true,
		min = 0,
		max = 0,
	},
	['www.knowbysight.info'] = {
		pars = 'сайт «[%s Справочник по истории КПСС и Советского Союза]»',
		func = simpleURL,
		ctg = 'Персоналии на сайте «Справочник по истории КПСС и Советского Союза»',
		online = true,
		min = 0,
		max = 0,
	},
	['подвиг'] = {
		func = podvig,
		online = true,
	},
	['книга памяти'] = {
		pars = '[https://pamyat-naroda.ru/heroes/memorial-chelovek_pechatnoi_knigi_pamyati%s Книга памяти сотрудников органов контрразведки, погибших и пропавших без вести в годы Великой Отечественной войны 1941−1945 гг.] (М.: Граница, 1995. ISBN 5-86436-072-4)',
		func = pattern,
		ctg = 'Персоналии в «Книге памяти сотрудников контрразведки»',
		online = true,
	},
	['гарф'] = {
		func = garf,
		min = 4,
		max = 4,
	},
	['ргва'] = {
		func = rgva,
		min = 4,
		max = 4,
	},
	['пн'] = {
		func = pn,
		ctg = 'Персоналии с поиском на ПН',
		online = true,
		min = 0,
	},
}

pp[''] = function ( frame )
--	local args = tools.checkargs( frame:getParent().args, { true, true } )
	local Args = frame:getParent().args
--	local Info = global.get( 'gInfo' ) or {}
	local args = {}
	for u, v in pairs( Args ) do
		args[u] = mw.text.trim( v )
	end

	local what = args[1]
	if not what then
		return  tools.errorMsg( 'справочник', 'Не указан код справочника',
			'Используйте формат {{ справочник | <var>код справочника</var>'
				.. ' | <var>параметры (зависят от справочника)</var> }}' )
	end

	local url = string.match( what, '^https?://([^/]+)/' )
	if url then
		what = url
	end
	local descr = list[mw.ustring.lower( what )]
	if not descr then
		return  tools.errorMsg( 'справочник', 'Неизвестный код справочника',
 			'Используйте формат {{ справочник | <var>код справочника</var>'
				.. ' | <var>параметры (зависят от справочника)</var> }}' )
	end
	local min, max = descr.min or 1, descr.max or 1
	-- #args для frame работает некорректно, поэтому проверяем существование args[min] и несуществование args[max+1]
	--	if ( args[2+min] or '' ) == '' or ( args[3+max] or '' ) ~= '' then
	if #args < min+1 or #args > max+1 then
		return  tools.errorMsg( 'справочник', 'Неверное число параметров',
 			'Для этого типа справочника параметров должно быть от ' .. min .. ' до ' .. max )
	end
	
	local res, err = descr.func( args, descr.pars )
	if res then
		if descr.ctg then
			res = res .. '[[Категория:' .. descr.ctg .. ']]'
		end
		global.add( 'gInfo', res )
	else
		return  tools.errorMsg( 'справочник', err or 'Ошибка при обработке' )
	end
end		

return pp