Módulo:Iucn
Uso
{{#invoke:Iucn|cite}} – para {{citar iucn}}
{{#invoke:Iucn|make_cite_iucn}} – para {{make citar iucn}}
Informação antecedente
Estilo antigo e estilo novo dos urls da IUCN
Até ao final de 2018, as avaliações da IUCN usaram urls na forma
http://www.iucnredlist.org/details/15955/0- onde 15955 é o ID do táxon e o sufico “0” indica a avaliação global (outro código de algarismos únicos para as diversas avaliações regionais).
A partir de setembro de 2018, a IUCN mudou para um novo formato para a url, do formulário
https://www.iucnredlist.org/species/15955/50659951- onde o 15955 é o ID de táxon e o sufio único identifica a versão da avaliação. Isso deixou todos os links da Wikipédia para avaliações da IUCN como links mortos.
Pouco tempo depois, a IUCN produziu um backup do antigo sistema com ligações da forma
http://oldredlist.iucnredlist.org/details/15955/0- que utiliza o estilo antigo de url na forma do subdomínio oldredlist. Muitas citações mudaram para este url. No entanto, este subdomínio foi encerrado perto do final de 2019, deixando muitos links mortos gerando erros 502 Bad Gateway.
Citações atuais da IUCN
Uma citação típica da IUCN, como indicado nas suas páginas de avaliação, é agora da forma:
- Goodrich, J., Lynam, A., Miquelle, D., Wibisono, H., Kawanishi, K., Pattanavibool, A., Htun, S., Tempa, T., Karki, J., Jhala, Y. & Karanth, U. 2015. Panthera tigris. The IUCN Red List of Threatened Species 2015: e.T15955A50659951. https://dx.doi.org/10.2305/IUCN.UK.2015-2.RLTS.T15955A50659951.en. Downloaded on 19 December 2019.
- onde o número de página eletrónico
e.T15955A50659951contem o ID do táxon (entre o T e A) e o ID da avaliação (depois de A). Estes dois números de identificação também estão contidos no doi.
Quando há uma alteração a uma avaliação, Um novo número de avaliação é atribuído, o que provoca uma alteração no número da página eletrônica e o url da página.
O comportamento do doi é incomum. Uma nova avaliação não causa uma nova referência doi, mantém o número de avaliação original. Se isto for usado por um modelo para construir uma url, será para a versão original da avaliação. No entanto, se o url do doi é seguido, a IUCN resolve redirecionar para a última avaliação. O alvo do doi mudou para a versão revista da avaliação da IUCN. Assim, se o modelo usar o url doi, a página vinculada irá mudar a partir do visualização pelo editor que adicionou a citação.
Portanto, este módulo irá criar um url com a seguinte ordem de precedência:
- Utilizar o número da página electrónica definido pelo parâmetro
|page=para gerar o url. - Utilize o parâmetro
|id=para gera o url se é um dos dois novos estilos da forma em duas partes, m.q.ID_TÁXON/ID_AVALIAÇÃO(m.q.15955/50659951) - Utilize o parâmetro
|doi=para gerar o url. Trata-se da última opção, uma vez que utiliza o número da avaliação inicial, mesmo quando esta foi alterada.
Quando nenhuma das opções acima estiver disponível, e quando |url= tiver a forma antiga, este módulo irá mudar o esquema de http:// para https:// numa tentativa de fazer uma ligação de trabalho (ver secção seguinte).
Edição do legado com urls antigos
Ainda há uma edição do legado com urls da antiga IUCN, que ainda são usados em muitas citações da Wikipédia.
Alguns meses após a mudança para os urls de novo estilo, a IUCN introduziu redirecionamentos para os urls de velho estilo que ligam para as páginas apropriadas endereçadas pelo novo URL de estilo. Na maioria dos casos, estas redirecções funcionarão. Então o antigo url de estilo para o tigre https://www.iucnredlist.org/details/15955/0 ligações correctas com a avaliação em https://www.iucnredlist.org/species/15955/50659951 (ver tigre).
No entanto, nem todas as avaliações redirecionam. Por exemplo, o antigo url de estilo para a enguia-de-lama de Bengala http://www.iucnredlist.org/details/166410/0 liga a página inicial (ver Enguia-de-lama).
Esta falha de algum antigo URL de estilo a ser redirecionado é inesperada, como a função redirecionar da API da IUCN faz link para a página correta. Um url do formulário
https://apiv3.iucnredlist.org/api/v3/taxonredirect/166410- irá ligar para a página correta, mesmo nos casos em que o redirecionamento automático falhou, m.q. the Bengal mud eel.
No entanto, redirecionamentos não estão disponíveis quando o ID do táxon foi substituído e um erro no formato JSON é retornado (m.q. for house sparrow).
IDs de táxons novos
Há outro caso em que os urls antigos dão links mortos, quando o ID do táxon mudou. Por exemplo, o pardal italiano foi separado do pardal da casa como uma nova espécie e ambos atribuíram novas identificações de táxons. Isto deixou quaisquer urls de estilo antigo para a avaliação original como ligações mortas.
- url estilo antigo
http://www.iucnredlist.org/details/149100/0para house sparrow (link morto para o id de táxon antigo149100) - url estilo nov
https://www.iucnredlist.org/species/103818789/155522130for house sparrow (Passer domesticus), utilizar o novo ID do táxon e o número de avaliação103818789/155522130. - url estilo novo
https://www.iucnredlist.org/species/103819014/132196181para Italian sparrow (Passer italiae), utilizar o novo ID do táxon e o número de avaliação103819014/132196181.
Neste caso, não há nenhuma ação que o modelo/módulo possa tomar para resolver o problema. É necessária a intervenção activa de um editor.
| A documentação acima é transcluída de Módulo:Iucn/doc. (editar | histórico) Editores podem experimentar nas páginas de teste (editar | dif) e de exemplos para testes (criar) deste módulo. Subpáginas deste módulo. |
require('strict') local getArgs = require ('Module:Arguments').getArgs; local amendment_pattern = '%s*%(amended version of (%d%d%d%d) assessment%)'; local errata_pattern = '%s*%(errata version published in (%d%d%d%d)%)'; --[[--------------------------< I U C N _ I D E N T I F I E R S _ G E T >-------------------------------------- cs1|2 templates cite single sources; when the identifiers in |doi=, |id=, and |page= are different from each other then the template is attempting to cite multiple sources. This function evaluates the identifier portions of these parameters. returns seven values: identifyier parts (or nil when parameter not used) and a message (nil on success, error message else) the identifier portions of the several parameters must be properly formed ]] local function iucn_identifiers_get (args) local doi_taxon_ID, doi_assesment_ID local page_taxon_ID, page_assesment_ID local url_taxon_ID, url_assesment_ID local msg if args.doi then doi_taxon_ID, doi_assesment_ID = args.doi:match ('[Tt](%d+)[Aa](%d+)%.en$') if not doi_taxon_ID then msg = 'malformed |doi= identifier' end end local page = args.page or args['página'] if page then page_taxon_ID, page_assesment_ID = page:match ('^[eE]%.[Tt](%d+)[Aa](%d+)$') if not page_taxon_ID then msg = 'malformed |page= identifier' end end if args.url then if args.url:match ('https://www.iucnredlist.org/species/') then -- must be a 'new-form' url url_taxon_ID, url_assesment_ID = args.url:match ('/species/(%d+)/(%d+)') if not url_taxon_ID then msg = 'malformed |url= identifier' end end end if not msg then if doi_taxon_ID and page_taxon_ID then if (doi_taxon_ID ~= page_taxon_ID or ((doi_assesment_ID ~= page_assesment_ID) and not args.errata)) then msg = '|doi= / |page= mismatch' end end if doi_taxon_ID and url_taxon_ID then if (doi_taxon_ID ~= url_taxon_ID or ((doi_assesment_ID ~= url_assesment_ID) and not args.errata)) then msg = '|doi= / |url= mismatch' end end if page_taxon_ID and url_taxon_ID then if (page_taxon_ID ~= url_taxon_ID or ((page_assesment_ID ~= url_assesment_ID) and not args.errata)) then msg = '|page= / |url= mismatch' end end end if msg then msg = '<span class="error" style="font-size:100%">{{citar iucn}}: erro: ' .. msg .. ' ([[Predefinição:Citar iucn|ajuda]])</span>' end return doi_taxon_ID, doi_assesment_ID, page_taxon_ID, page_assesment_ID, msg end --[[--------------------------< I U C N _ V O L U M E _ C H E C K >-------------------------------------------- compares volume in |volume= (if present) against year in |date= or |year= (if present) against volume in |doi= (if present) returns nil if all that are present are correct; message else ]] local function iucn_volume_check (args) local vol = args.volume; local date = args.date or args.year or args.data or args.ano; local doi = args.doi and args.doi:match ('[Ii][Uu][Cc][Nn]%.[Uu][Kk]%.(%d%d%d%d)') local msg if vol and date then msg = (vol ~= date) and '|volume= / |date= mismatch' or msg end if vol and doi then msg = ((vol ~= doi) and not args.amends) and '|volume= / |doi= mismatch' or msg end if date and doi then msg = ((doi ~= date) and not args.amends) and '|date= / |doi= mismatch' or msg end return msg end --[[--------------------------< C I T E >---------------------------------------------------------------------- Wraps {{cite journal}}: takes cite journal parameters but updates old style url using electronic page number page should be in format e.T13922A45199653 the url uses 13922/45199653 so we need to extract the number between T and A (taxon ID) and the number after A (assessment ID) the target url is https://www.iucnredlist.org/species/13922/45199653 usage: {{#invoke:iucn|cite}} template: {{Template:Cite iucn}} ]] local function cite (frame) local error_msgs = {}; -- holds error messages for rendering local maint_msgs = {}; -- holds hidden maint messages for rendering local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization local args = getArgs (frame); -- local copy of template arguments -- local missing_title = not args.title or args.titulo or args['título'] -- special case that results from script writing {{cite iucn}} template from bare iucn url -- don't duplicate cs1|2 error message; don't duplicate {{cite iucn}} error cat -- TODO: remove this when the error category has been cleared of missing title errors if args.title and (args.title:match (errata_pattern) or args.title:match (amendment_pattern)) then table.insert (maint_msgs, 'title has extraneous text'); -- announce that this template has has errata or amendment text end local doi_taxon_ID, doi_assesment_ID -- all of these contain the same identifying info in slightly local page_taxon_ID, page_assesment_ID -- different forms. when any combination of these is present, local msg -- this holds error messages; nil on success doi_taxon_ID, doi_assesment_ID, page_taxon_ID, page_assesment_ID, msg = iucn_identifiers_get (args); if msg then table.insert (error_msgs, msg); -- malformed or mismatched identifiers end args.id = nil -- unset; not supported local url_taxon_ID = page_taxon_ID or doi_taxon_ID; -- select for use in url that we will create local url_assesment_ID = page_assesment_ID or doi_assesment_ID local url = args.url if url then if url:find ('iucnredlist.org/details/', 1, true) then -- old-form url if url_taxon_ID then -- when there is an identifier url = nil -- unset; we'll create new url below else -- here when old-form but no identifier that we can use to create new url args.url = args.url:gsub ("http:", "https:") -- sometimes works with redirect on iucn site end table.insert (maint_msgs, 'old-form url') -- announce that this template has has an old-form url elseif url:find ('iucnredlist.org/species/', 1, true) then -- new-form url -- table.insert (maint_msgs, 'new-form url') --TODO: restore this line when most new-form urls have been removed from article space -- announce that this template has has an new-form url else table.insert (maint_msgs, 'unknown url') -- announce that this template has has some sort of url we don't recognize end end if not url then -- when no url or unset old-form url if url_taxon_ID then args.url = "https://www.iucnredlist.org/species/" .. url_taxon_ID .. '/' .. url_assesment_ID else table.insert (maint_msgs, 'no identifier') -- TODO: raise this to error status? end end -- add journal if not provided (TODO decide if this should override provided value) if not args['journal'] and not args['work'] and not args['periódico'] then args['journal'] = "[[Lista Vermelha da IUCN|Lista Vermelha de Espécies Ameaçadas]]" end msg = iucn_volume_check (args); -- |volume=, |year= (|date=), |doi= must all refer to the same volume if msg then table.insert (maint_msgs, msg); end local date = args.year or args.ano or args.date or args.data if not args.volume and date then args.volume = date end if args.errata then args['orig-year'] = 'errata version of ' .. (date or args.volume) .. ' assessment'; args.date = args.errata; -- update publication data to errata year args.year = nil; -- unset these as no longer needed args.ano = nil args.errata = nil; elseif args.amends then args['orig-year'] = 'amended version of ' .. args.amends .. ' assessment'; args.amends = nil; -- unset as no longer needed end -- add free-to-read icon to mark a correctly formed doi args['doi-access'] = args.doi and args.doi:match ('10%.2305/[Ii][Uu][Cc][Nn].+[Tt]%d+[Aa]%d+%.[Ee][Nn]') and 'free' or nil return frame:expandTemplate{ title = 'citar periódico', args = args } .. -- the template -- (((0 == #error_msgs) and missing_title) and ('[[Categoria:!Erros citar iucn]]') or '') .. -- special case to not duplicate cs1|2 err msg or cite iucn error cat ((0 < #error_msgs) and table.concat (error_msgs, ', ') or '') .. -- the error messages (((0 < #error_msgs) and (0 == namespace)) and ('[[Categoria:!Erros citar iucn]]') or '') .. -- error category when in mainspace ((0 < #maint_msgs) and ('<span class="citation-comment" style="display: none; color: #33aa33; margin-left: 0.3em;">' .. table.concat (maint_msgs, ', ') .. '</span>') or '') .. -- the maint messages (((0 < #maint_msgs) and (0 == namespace)) and ('[[Categoria:!Manutenção citar iucn]]') or '') -- maint category when in mainspace end --[[--------------------------< A U T H O R _ L I S T _ M A K E >---------------------------------------------- creates a list of individual |authorn= parameters from the list of names provided in the raw iucn citation. names must have the form: Surname, I. (more than one 'I.' pair allowed but no spaces between I. pairs) assumes that parenthetical text at the end of the author-name-list is a collaboration Name, I.I., & Name, I.I. (Colaboration name) ]] local function author_names_get (raw_iucn_cite) local list = {}; -- table that holds name list parts local author_names = raw_iucn_cite:match ('^([^%d]-)%s+%d%d%d%d'); -- extract author name-list from raw iucn citation local collaboration = author_names:match ('%s*(%b())$'); -- get collaboration name if it exists if collaboration then -- when there is a colaboration collaboration = collaboration:gsub ('[%(%)]', ''); -- remove bounding parentheses author_names = author_names:gsub ('%s*(%b())$', ''); -- and remove collaboration from author-name-list end local names = author_names:gsub ('%.?,?%s+&%s+', '.|'):gsub ('%.,%s+', '.|'); -- replace 'separators' (<dot><comma><space> and <opt. dot><opt. comma><space><ampersand><space>) with <dot><pipe> names = names:gsub ('(%.%u),', '%1.|'); -- special case for when last initial is missing its trailing dot list = mw.text.split (names, '|'); -- split the string on the pipes into entries in list{} if 0 == #list then return table.concat ({'|author=', author_names}) -- no 'names' of the proper form; return the original as a single |author= parameter else for i, name in ipairs (list) do -- spin through the list and -- list[i] = table.concat ({'|author', i, '=', name}); -- add |authorn= parameter names list[i] = table.concat ({'|author', (i == 1) and '' or i, '=', name}); -- add |authorn= parameter names; create |author= instead of |author1= end if collaboration then table.insert (list, table.concat ({'|collaboration', '=', collaboration})); -- add |collaboration= parameter end return table.concat (list, ' '); -- make a big string and return that end end --[[--------------------------< T I T L E _ G E T >------------------------------------------------------------ extract and format citation title; attempts to get the italic right ''binomen'' (amended or errata title) ''binomen'' ''binomen'' ssp. ''subspecies'' ''binomen'' subsp. ''subspecies'' ''binomen'' var. ''variety'' ''binomen'' subvar. ''subvariety'' all of the above may have trailing amended or errata text in parentheses TODO: are there others? ]] local function title_get (raw_iucn_cite) local title = raw_iucn_cite:match ('%d%d%d%d%.%s+(.-)%s*%. The IUCN Red List of Threatened Species'); local patterns = { -- tables of string.match patterns [1] and string.gsub patterns [2] {'(.-)%sssp%.%s+(.-)%s(%b())$', "''%1'' ssp. ''%2'' %3"}, -- binomen ssp. subspecies (zoology) with errata or amended text {'(.-)%sssp%.%s+(.+)', "''%1'' ssp. ''%2''"}, -- binomen ssp. subspecies (zoology) {'(.-)%ssubsp%.%s+(.-)%s(%b())$', "''%1'' subsp. ''%2'' %3"}, -- binomen subsp. subspecies (botany) with errata or amended text {'(.-)%ssubsp%.%s+(.+)', "''%1'' subsp. ''%2''"}, -- binomen subsp. subspecies (botany) {'(.-)%svar%.%s+(.-)%s+(%b())$', "''%1'' var. ''%2'' %3"}, -- binomen var. variety (botany) with errata or amended text {'(.-)%svar%.%s+(.+)', "''%1'' var. ''%2''"}, -- binomen var. variety (botany) {'(.-)%ssubvar%.%s+(.-)%s(%b())$', "''%1'' subvar. ''%2'' %3"}, -- binomen subvar. subvariety (botany) with errata or amended text {'(.-)%ssubvar%.%s+(.+)', "''%1'' subvar. ''%2''"}, -- binomen subvar. subvariety (botany) {'(.-)%s*(%b())$', "''%1'' %2"}, -- binomen with errata or amended text {'(.+)', "''%1''"}, -- binomen } for i, v in ipairs (patterns) do -- spin through the patterns if title:match (v[1]) then -- when a match title = title:gsub (v[1], v[2]); -- add italics break; -- and done end end return table.concat ({' |title=', title}); -- return the |title= parameter end --[[--------------------------< M A K E _ C I T E _ I U C N >-------------------------------------------------- parses apart an iucn-format citation copied from their webpage and reformats that into a {{cite iucn}} template for substing automatic substing by User:AnomieBOT/docs/TemplateSubster ]] local function make_cite_iucn (frame) local args = getArgs (frame); local raw_iucn_cite = args[1]; local template = {'{{citar iucn '}; -- table that holds the {{cite iucn}} template as it is being assembled local year, volume, page, doi, accessdate; year = raw_iucn_cite:match ('^%D+(%d%d%d%d)'); volume, page = raw_iucn_cite:match ('(%d%d%d%d):%s+(e%.T%d+A+%d+)%.%s'); doi = raw_iucn_cite:match ('10%.2305/IUCN%.UK%.[%d%-]+%.RLTS%.T%d+A%d+%.en'); -- accessdate = raw_iucn_cite:match ('Downloaded on (.-)%.?$'):gsub ('^0', ''); -- strips leading 0 in day 01 January 2020 -> 1 January 2020 accessdate = raw_iucn_cite:match ('Accessed on (.-)%.?$') or raw_iucn_cite:match ('Downloaded on (.-)%.?$'); -- 'Downloaded' → 'Accessed' change occured December 2021; accessdate = accessdate:gsub ('^0', ''); -- strips leading 0 in day 01 January 2020 -> 1 January 2020 table.insert (template, author_names_get (raw_iucn_cite)); -- add string of author name parameters table.insert (template, table.concat ({' |year=', year})); -- add formatted year local title = title_get (raw_iucn_cite); local errata = title:match (errata_pattern); -- nil unless IUCN citation has errata annotation; else year that this errata published (|date=) if errata then table.insert (template, table.concat ({' |errata=', errata})); -- add formatted errata title = title:gsub (errata_pattern, ''); -- remove errata annotation end local amends = title:match (amendment_pattern); -- nil unless IUCN citation has amendment annotation; else year that this assessment amends (|orig-year=) if amends then table.insert (template, table.concat ({' |amends=', amends})); -- add year of assessment that this assessment amends title = title:gsub (amendment_pattern, ''); -- remove amendment annotation end table.insert (template, title); -- add formatted title table.insert (template, table.concat ({' |volume=', volume})); -- add formatted volume table.insert (template, table.concat ({' |page=', page})); -- add formatted page table.insert (template, table.concat ({' |doi=', doi})); -- add formatted doi table.insert (template, table.concat ({' |access-date=', accessdate})); -- add formatted access-date table.insert (template, '}}'); -- close the template if args[2] then -- if anything in args[2], write a nowiki'd version that editors can copy into <ref> tags return table.concat ({'<code>', frame:callParserFunction ('#tag:nowiki', table.concat (template)), '</code>'}) end if args['ref'] then -- enable subst of ref tags with name return '<ref name=' .. args['ref'] .. '>' .. table.concat (template) .. '</ref>' end return table.concat (template); -- the subst'd version end --[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------ ]] return { cite = cite, make_cite_iucn = make_cite_iucn, }