Module:Sandbox/Ypnypn/Review
Documentation for this module may be created at Module:Sandbox/Ypnypn/Review/doc
local p = {}
function p.review(frame)
page = frame.args['page'] or frame.args[1]
article = mw.title.new(page,'')
content = article:getContent()
result = ''
issues = critique(content)
if frame.args['plain'] then
for issue, details in pairs(issues) do
result = result..'# '..issue..' = '..details..'\n'
end
return result
else
for issue, details in pairs(issues) do
result = result..text(issue, details)
end
if result == '' then
result = 'The article is perfect!'
else
result = "The article '''[["..page.."]]''' has some problems:\n"..result
end
return result
end
end
function critique(content)
issues = {}
prose = content
prose = string.gsub(prose, '{|.-|}', '')
prose = string.gsub(prose, '<ref>.-</ref>', '')
prose = string.gsub(prose, '%[%[Category:.-%]%]', '')
prose = string.gsub(prose, '%[%[File:.-%]%]', '')
prose = string.gsub(prose, '%b{}', '')
--infobox
if not string.match(content, '{{Infobox') then
issues['infobox'] = 'none'
end
--categories
if not string.match(content, '%[%[Category:') then
issues['category'] = 'none'
elseif not string.match(content, '%[%[Category:.+%[%[Category:') then
issues['category'] = 'one'
end
--length
length = #prose
if length > 100000 then
issues['length'] = 'too long'
elseif length < 10000 then
issues['length'] = 'too short'
end
return issues
end
function text(issue, details)
if issue == 'infobox' and details == 'none' then
return '* There is no infobox.\n'
end
if issue == 'category' then
if details == 'none' then
return '* There are no categories.\n'
elseif details == 'one' then
return '* There is only one category.\n'
end
end
if issue == 'length' then
if details == 'too long' then
return '* The article is very long.\n'
elseif details == 'too short' then
return '* The article is very short.\n'
end
end
return '<strong><span style="color:red">Error: text not found!</span> '..issue..' = '..details..'</strong>\n'
end
return p