https://stockhub.co/index.php?action=history&feed=atom&title=Module%3ASandbox%2FPHansen%2FKirkeurl
Module:Sandbox/PHansen/Kirkeurl - Revision history
2026-04-21T09:06:42Z
Revision history for this page on the wiki
MediaWiki 1.43.5
https://stockhub.co/index.php?title=Module:Sandbox/PHansen/Kirkeurl&diff=145956&oldid=prev
imported>PHansen: len_orig ( "Lua error in Module:Sandbox/PHansen/Kirkeurl at line 24: bad argument #1 to 'len' (string expected, got nil"
2015-01-30T09:29:07Z
<p>len_orig ( "Lua error in Module:Sandbox/PHansen/Kirkeurl at line 24: bad argument #1 to 'len' (string expected, got nil"</p>
<p><b>New page</b></p><div>local p = {}<br />
-- Truncate urls too long for an infobox - should not be more than 28-30 characters<br />
-- With User:PHansen/Kirkeurl<br />
-- Test url : "www.tryggevaeldeprovsti.dk/index.php?id=1722" - for the line<br />
-- | website = www.tryggevaeldeprovsti.dk/index.php?id=1722 - there is no http:// in the template<br />
-- Should return something like [http://www.tryggevaeldeprovsti.dk/index.php?id=1722 http://www.tryggevaeldeprovsti.dk] or with ellipsis ? (three dots)<br />
-- Module:Sandbox/PHansen/Kirkeurl https://en.wikipedia.org/wiki/Module:Sandbox/PHansen/Kirkeurl<br />
-- Test via https://en.wikipedia.org/wiki/User:PHansen/Kirkeurl<br />
<br />
<br />
function p.main ( frame ) -- tidl kirke_url<br />
<br />
<br />
local len_orig = 0<br />
local orig = frame.args[1] -- parameter from the template: 'website' or 'Websted'<br />
-- orig = mw.text.trim( orig )<br />
<br />
local len_orig = string.len( orig ) or 0<br />
<br />
local return_kirkeurl = ""<br />
<br />
local done = false<br />
<br />
local limit = 28<br />
<br />
-- Most will be below the limit (28 characters)<br />
-- if string.len( orig ) < limit then<br />
if len_orig < limit then <br />
-- the parameter is arriving without indication of the protocol, so returning with http://<br />
return_kirkeurl = "[http://" .. orig .. " " .. orig .. "]" -- return with http://<br />
done = true<br />
return return_kirkeurl<br />
<br />
end -- below limit<br />
<br />
<br />
-- else : if parameter (orig = frame.args[1]) is longer than limit<br />
-- some domains to look through<br />
local domains = [[.ac.ad.ae.aero.af.ag.ai.al.am.an.ao.aq.ar.arpa.as.asia.at.au<br />
.aw.ax.az.ba.bb.bd.be.bf.bg.bh.bi.biz.bj.bm.bn.bo.br.bs.bt.bv.bw.by.bz.ca<br />
.cat.cc.cd.cf.cg.ch.ci.ck.cl.cm.cn.co.com.coop.cr.cs.cu.cv.cx.cy.cz.dd.de<br />
.dj.dk.dm.do.dz.ec.edu.ee.eg.eh.er.es.et.eu.fi.firm.fj.fk.fm.fo.fr.fx.ga<br />
.gb.gd.ge.gf.gh.gi.gl.gm.gn.gov.gp.gq.gr.gs.gt.gu.gw.gy.hk.hm.hn.hr.ht.hu<br />
.id.ie.il.im.in.info.int.io.iq.ir.is.it.je.jm.jo.jobs.jp.ke.kg.kh.ki.km.kn<br />
.kp.kr.kw.ky.kz.la.lb.lc.li.lk.lr.ls.lt.lu.lv.ly.ma.mc.md.me.mg.mh.mil.mk<br />
.ml.mm.mn.mo.mobi.mp.mq.mr.ms.mt.mu.museum.mv.mw.mx.my.mz.na.name.nato.nc<br />
.ne.net.nf.ng.ni.nl.no.nom.np.nr.nt.nu.nz.om.org.pa.pe.pf.pg.ph.pk.pl.pm<br />
.pn.post.pr.pro.ps.pt.pw.py.qa.re.ro.ru.rw.sa.sb.sc.sd.se.sg.sh.si.sj.sk<br />
.sl.sm.sn.so.sr.ss.st.store.su.sv.sy.sz.tc.td.tel.tf.tg.th.tj.tk.tl.tm.tn<br />
.to.tp.tr.travel.tt.tv.tw.tz.ua.ug.uk.um.us.uy.va.vc.ve.vg.vi.vn.vu.web.wf<br />
.ws.xxx.ye.yt.yu.za.zm.zr.zw]]<br />
<br />
-- if string.len( orig ) >= limit then <br />
if len_orig >= limit then<br />
-- Crucial lua pattern is by 'hjpotter92' <br />
-- http://stackoverflow.com/users/1190388/hjpotter92 edited May 12 '14 at 1:35 (i.e. 2014-05-12 at 1:35)<br />
-- http://stackoverflow.com/questions/23590304/finding-a-url-in-a-string-lua-pattern : "finding a url in a string lua pattern"<br />
<br />
local tlds = {} -- topleveldomains<br />
for tld in domains:gmatch'%w+' do<br />
tlds[tld] = true<br />
end<br />
<br />
local protocols = {[''] = 0, ['http://'] = 0, ['https://'] = 0, ['ftp://'] = 0} -- of no use because the parameter arrives without<br />
<br />
-- for pos, url, prot, subd, tld, colon, port, slash, path in string_with_URLs:gmatch<br />
for pos, url, prot, subd, tld, colon, port, slash, path in orig:gmatch<br />
'()(([%w_.~!*:@&+$/?%%#-]-)(%w[-.%w]*%.)(%w+)(:?)(%d*)(/?)([%w_.~!*:@&+$/?%%#=-]*))'<br />
<br />
do<br />
if protocols[prot:lower()] == (1 - #slash) * #path<br />
and (colon == '' or port ~= '' and port + 0 < 65536)<br />
and (tlds[tld:lower()] or tld:find'^%d+$' and subd:find'^%d+%.%d+%.%d+%.$'<br />
and math.max(tld, subd:match'^(%d+)%.(%d+)%.(%d+)%.$') < 256)<br />
and not subd:find'%W%W'<br />
then<br />
return_kirkeurl = "[" .. "http://" .. orig .. " " .. subd .. tld .. "]" <br />
-- for test in terminal: print( "[" .. url .. " " .. subd .. tld .. "]" )<br />
-- gave [http://www.tryggevaeldeprovsti.dk/index.php?id=1722 www.tryggevaeldeprovsti.dk]<br />
end -- if<br />
end -- for pos... do<br />
<br />
done = true<br />
return return_kirkeurl<br />
<br />
end -- above limit<br />
<br />
<br />
--Default - if still here<br />
if done == false then <br />
return_kirkeurl = "[" .. "http://" .. orig .. " " .. "Church website" .. "]"<br />
<br />
return return_kirkeurl<br />
<br />
end -- if done == false<br />
<br />
<br />
end -- function p.main ( frame )<br />
<br />
return p -- export table</div>
imported>PHansen