Module:LinkPhone/sandbox

local i = {} function i.LinkOnePhone(txt, demo) local link = txt; local othertxt = ""; local catprefix = ''; local catMissingCountryCode = ''; local catFormatIssue = ''; local output; if demo == 'true' then catprefix = ':'; end -- any other text in brackets at the end is stored separately and ignored for the dialing number if mw.ustring.gsub(txt, "(.*)( %([^0-9]*%))$", "%2") ~= txt then othertxt = mw.ustring.gsub(txt, "(.*)( %([^0-9]*%))$", "%2"); txt = mw.ustring.gsub(txt, "(.*)( %([^0-9]*%))$", "%1"); end -- Don't include "ext NNNN" in the link link = mw.ustring.gsub(txt, " +[Ee][Xx][Tt] +%d+$", ""); -- Don't include " xNNNN" in the link link = mw.ustring.gsub(link, " +x%d+$", ""); link = mw.ustring.gsub(link, " ", ""); link = mw.ustring.gsub(link, "'", ""); if link == "" then return ""; end if mw.ustring.sub(link, 1, 1) ~= '+' then catMissingCountryCode = '' .. catprefix .. 'Category:Listing with phone missing country code NOCC '; end if mw.ustring.match(link,"^%+[%d- ]+$") ~= nil then output = ' [tel:' .. link .. ' ' .. txt .. '] ' .. othertxt; elseif mw.ustring.match(link,"^%+[%d%u- ]+$") ~= nil then local extra = mw.ustring.match(link, "%u[%d%u- ]+") link = mw.ustring.gsub(link, "[A-C]", "2"); link = mw.ustring.gsub(link, "[D-F]", "3"); link = mw.ustring.gsub(link, "[G-I]", "4"); link = mw.ustring.gsub(link, "[J-L]", "5"); link = mw.ustring.gsub(link, "[M-O]", "6"); link = mw.ustring.gsub(link, "[P-S]", "7"); link = mw.ustring.gsub(link, "[T-V]", "8"); link = mw.ustring.gsub(link, "[W-Z]", "9"); extra = mw.ustring.gsub(extra, "[A-C]", "2"); extra = mw.ustring.gsub(extra, "[D-F]", "3"); extra = mw.ustring.gsub(extra, "[G-I]", "4"); extra = mw.ustring.gsub(extra, "[J-L]", "5"); extra = mw.ustring.gsub(extra, "[M-O]", "6"); extra = mw.ustring.gsub(extra, "[P-S]", "7"); extra = mw.ustring.gsub(extra, "[T-V]", "8"); extra = mw.ustring.gsub(extra, "[W-Z]", "9"); output = ' [tel:' .. link .. ' ' .. txt .. ' (' .. extra .. ')' ..'] ' .. othertxt; else output = txt .. othertxt; if mw.ustring.match('+' .. link,"^%+[%d- ]+$") == nil then catFormatIssue = '' .. catprefix .. 'Category:Listing with phone format issue FORMAT '; end end if mw.ustring.match(link,"%(0%)") ~= nil then catFormatIssue = '' .. catprefix .. 'Category:Listing with phone format issue FORMAT '; end if mw.title.getCurrentTitle.namespace == 0 or demo == 'true' then output = output .. catFormatIssue .. catMissingCountryCode; end return output; end

function i.LinkPhone(frame) local demo = frame.args["demo"] or ''; local txtall = frame.args[1] or '' .. ',';   local txt = ""; local result = ""; local catprefix = ''; local cattemporary = ''; -- replace or / and with comma txtall = mw.ustring.gsub(txtall, " or %+", ", +"); txtall = mw.ustring.gsub(txtall, " and %+", ", +"); for txt in mw.ustring.gmatch(txtall, "([^,]+)") do       result = result .. ", " .. i.LinkOnePhone(txt, demo) end result = mw.ustring.sub(result, 3, mw.ustring.len(result) ); if mw.ustring.gsub(result, ".*.*", "%1") ~= result and mw.ustring.gsub(result, ".*(Category:).*", "%1") ~= result then if demo == 'true' then catprefix = ':'; end cattemporary = '' .. catprefix .. 'Category:Listing with multiple phones issue'; end return result .. cattemporary; end return i;