--[[ ----------------------------------Lua module implementing the {{webarchive}} template. A merger of the functionality of three templates: {{wayback}}, {{webcite}} and {{cite archives}}]]--[[--------------------------< D E P E N D E N C I E S >------------------------------------------------------]]require('strict');localgetArgs=require('Module:Arguments').getArgs;--[[--------------------------< F O R W A R D D E C L A R A T I O N S >--------------------------------------]]localcategories={};-- category nameslocalconfig={};-- global configuration settingslocaldigits={};-- for i18n; table that translates local-wiki digits to western digitslocalerr_warn_msgs={};-- error and warning messageslocalexcepted_pages={};localmonth_num={};-- for i18n; table that translates local-wiki month names to western digitslocalprefixes={};-- service provider tail string prefixeslocalservices={};-- archive service provider data fromlocals_text={};-- table of static text strings used to build final renderinglocaluncategorized_namespaces={};-- list of namespaces that we should not categorizelocaluncategorized_subpages={};-- list of subpages that should not be categorized--[[--------------------------< P A G E S C O P E I D E N T I F I E R S >----------------------------------]]localnon_western_digits;-- boolean flag set true when data.digits.enable is truelocalthis_page=mw.title.getCurrentTitle();localtrack={};-- Associative array to hold tracking categorieslocalulx={};-- Associative array to hold template data --[[--------------------------< S U B S T I T U T E >----------------------------------------------------------Populates numbered arguments in a message string using an argument table.]]localfunctionsubstitute(msg,args)returnargsandmw.message.newRawMessage(msg,args):plain()ormsg;end--[[--------------------------< tableLength >-----------------------Given a 1-D table, return number of elements]]localfunctiontableLength(T)localcount=0for_inpairs(T)docount=count+1endreturncountend--[=[-------------------------< M A K E _ W I K I L I N K >----------------------------------------------------Makes a wikilink; when both link and display text is provided, returns a wikilink in the form [[L|D]]; if onlylink is provided, returns a wikilink in the form [[L]]; if neither are provided or link is omitted, returns anempty string.]=]localfunctionmake_wikilink(link,display,no_link)ifnil==no_linktheniflinkand(''~=link)thenifdisplayand(''~=display)thenreturntable.concat({'[[',link,'|',display,']]'});elsereturntable.concat({'[[',link,']]'});endendreturndisplayor'';-- link not set so return the display textelse-- no_linkifdisplayand(''~=display)then-- if there is display textreturndisplay;-- return thatelsereturnlinkor'';-- return the target article name or empty stringendendend--[[--------------------------< createTracking >-----------------------Return data in track[] ie. tracking categories]]localfunctioncreateTracking()ifnotexcepted_pages[this_page.fullText]then-- namespace:title/fragment is allowed to be categorized (typically this module's / template's testcases page(s))ifuncategorized_namespaces[this_page.nsText]thenreturn'';-- this page not to be categorized so return empty stringendfor_,vinipairs(uncategorized_subpages)do-- cycle through page name patternsifthis_page.text:match(v)then-- test page name against each patternreturn'';-- this subpage type not to be categorized so return empty stringendendendlocalout={};iftableLength(track)>0thenforkey,_inpairs(track)do-- loop through tabletable.insert(out,make_wikilink(key));-- and convert category names to linksendendreturntable.concat(out);-- concat into one big string; empty string if table is emptyend--[[--------------------------< inlineError >-----------------------Critical error. Render output completely in red. Add to tracking category.This function called as the last thing before abandoning this module]]localfunctioninlineError(msg,args)track[categories.error]=1returntable.concat({'<span style="font-size:100%" class="error citation-comment">Error in ',-- open the error message spanconfig.tname,-- insert the local language template name' template: ',substitute(msg,args),-- insert the formatted error message'.</span>',-- close the spancreateTracking()-- add the category})end--[[--------------------------< inlineRed >-----------------------Render a text fragment in red, such as a warning as part of the final output.Add tracking category. ]]localfunctioninlineRed(msg,trackmsg)iftrackmsg=="warning"thentrack[categories.warning]=1;elseiftrackmsg=="error"thentrack[categories.error]=1;endreturn'<span style="font-size:100%" class="error citation-comment">'..msg..'</span>'end--[[--------------------------< base62 >-----------------------Convert base-62 to base-10Credit: https://de.wikipedia.org/wiki/Modul:Expr ]]localfunctionbase62(value)localr=1-- default return value is input value is malformedifvalue:match('%W')then-- value must only be in the set [0-9a-zA-Z]return;-- nil return when value contains extraneous charactersendlocaln=#value-- number of characters in valuelocalk=1localcr=0fori=n,1,-1do-- loop through all characters in value from ls digit to ms digitc=value:byte(i,i)ifc>=48andc<=57then-- character is digit 0-9c=c-48elseifc>=65andc<=90then-- character is ascii a-zc=c-55else-- must be ascii A-Zc=c-61endr=r+c*k-- accumulate this base62 character's valuek=k*62-- bump for nextend-- for ireturnrend--[[--------------------------< D E C O D E _ D A T E >--------------------------------------------------------Given a date string, return it in iso format along with an indicator of the date's format. Except that month namesmust be recognizable as legitimate month names with proper capitalization, and that the date string must match oneof the recognized date formats, no error checking is done here; return nil else]]localfunctiondecode_date(date_str)localpatterns={['dmy']={'^(%d%d?) +([^%s%d]+) +(%d%d%d%d)$','d','m','y'},-- %a does not recognize unicode combining characters used by some languages['mdy']={'^([^%s%d]+) (%d%d?), +(%d%d%d%d)$','m','d','y'},['ymd']={'^(%d%d%d%d) +([^%s%d]+) (%d%d?)$','y','m','d'},-- not mos compliant at en.wiki but may be acceptible at other wikis};localt={};ifnon_western_digitsthen-- this wiki uses non-western digits?date_str=mw.ustring.gsub(date_str,'%d',digits);-- convert this wiki's non-western digits to western digitsendifdate_str:match('^%d%d%d%d%-%d%d%-%d%d$')then-- already an iso format date, return western digits formreturndate_str,'iso';endfork,vinpairs(patterns)dolocalc1,c2,c3=mw.ustring.match(date_str,patterns[k][1]);-- c1 .. c3 are captured but we don't know what they holdifc1then-- set on matcht={-- translate unspecified captures to y, m, and d[patterns[k][2]]=c1,-- fill the table of captures with the captures[patterns[k][3]]=c2,-- take index names from src_pattern table and assign sequential captures[patterns[k][4]]=c3,};ifmonth_num[t.m]then-- when month not already a numbert.m=month_num[t.m];-- replace valid month name with a numberelsereturnnil,'iso';-- not a valid date form because month not validendreturnmw.ustring.format('%.4d-%.2d-%.2d',t.y,t.m,t.d),k;-- return date in iso formatendendreturnnil,'iso';-- date could not be decoded; return nil and default iso dateend--[[--------------------------< makeDate >-----------------------Given year, month, day numbers, (zero-padded or not) return a full date in df formatwhere df may be one of: mdy, dmy, iso, ymdon entry, year, month, day are presumed to be correct for the date that they represent; all are requiredin this module, makeDate() is sometimes given an iso-format date in year: makeDate (2018-09-20, nil, nil, df)this works because table.concat() sees only one table member]]localfunctionmakeDate(year,month,day,df)localformat={['dmy']='j F Y',['mdy']='F j, Y',['ymd']='Y F j',['iso']='Y-m-d',};localdate=table.concat({year,month,day},'-');-- assemble year-initial numeric-format date (zero padding not required here)ifnon_western_digitsthen-- this wiki uses non-western digits?date=mw.ustring.gsub(date,'%d',digits);-- convert this wiki's non-western digits to western digitsendreturnmw.getContentLanguage():formatDate(format[df],date);end--[[--------------------------< I S _ V A L I D _ D A T E >----------------------------------------------------Returns true if date is after 31 December 1899 (why is 1900 the min year? shouldn't the internet's date-of-birthbe min year?), not after today's date, and represents a valid date (29 February 2017 is not a valid date). AppliesGregorian leapyear rules.all arguments are required]]localfunctionis_valid_date(year,month,day)localdays_in_month={31,28,31,30,31,30,31,31,30,31,30,31};localmonth_length;localy,m,d;localtoday=os.date('*t');-- fetch a table of current date partsifnotyearor''==yearornotmonthor''==monthornotdayor''==daythenreturnfalse;-- something missingendy=tonumber(year);m=tonumber(month);d=tonumber(day);if1900>yortoday.year<yor1>mor12<mthen-- year and month are within bounds TODO: 1900?returnfalse;endif(2==m)then-- if Februarymonth_length=28;-- then 28 days unlessif(0==(y%4)and(0~=(y%100)or0==(y%400)))then-- is a leap year?month_length=29;-- if leap year then 29 days in Februaryendelsemonth_length=days_in_month[m];endif1>dormonth_length<dthen-- day is within boundsreturnfalse;end-- here when date parts represent a valid datereturnos.time({['year']=y,['month']=m,['day']=d,['hour']=0})<=os.time();-- date at midnight must be less than or equal to current date/timeend--[[--------------------------< decodeWebciteDate >-----------------------Given a URI-path to Webcite (eg. /67xHmVFWP) return the encoded date in df formatreturns date string in df format - webcite date is a unix timestamp encoded as bae62or the string 'query']]localfunctiondecodeWebciteDate(path,df)localdt={};localdecode;dt=mw.text.split(path,"/")-- valid URL formats that are not base62-- http://www.webcitation.org/query?id=1138911916587475-- http://www.webcitation.org/query?url=http..&date=2012-06-01+21:40:03-- http://www.webcitation.org/1138911916587475-- http://www.webcitation.org/cache/73e53dd1f16cf8c5da298418d2a6e452870cf50e-- http://www.webcitation.org/getfile.php?fileid=1c46e791d68e89e12d0c2532cc3cf629b8bc8c8eifdt[2]:find('query',1,true)ordt[2]:find('cache',1,true)ordt[2]:find('getfile',1,true)ortonumber(dt[2])thenreturn'query';enddecode=base62(dt[2]);-- base62 string -> exponential numberifnotdecodethenreturnnil;-- nil return when dt[2] contains characters not in %wenddt=os.date('*t',string.format("%d",decode):sub(1,10))-- exponential number -> text -> first 10 characters (a unix timestamp) -> a table of date partsdecode=makeDate(dt.year,dt.month,dt.day,'iso');-- date comparisons are all done in iso format with western digitsifnon_western_digitsthen-- this wiki uses non-western digits?decode=mw.ustring.gsub(decode,'%d',digits);-- convert this wiki's non-western digits to western digitsendreturndecode;end--[[--------------------------< decodeWaybackDate >-----------------------Given a URI-path to Wayback (eg. /web/20160901010101/http://example.com )or Library of Congress Web Archives (eg. /all/20160901010101/http://example.com)or UK Government Web Archive (eg. /ukgwa/20160901010101/http://example.com or /tna/20160901010101/http://example.com)return the formatted date eg. "September 1, 2016" in df format Handle non-digits in snapshot ID such as "re_" and "-" and "*"returns two values: first value is one of these: valid date string in df format - wayback date is valid (including the text string 'index' when date is '/*/') empty string - wayback date is malformed (less than 8 digits, not a valid date) nil - wayback date is '/save/' or otherwise not a number second return value is an appropriate 'message' may or may not be formatted]]localfunctiondecodeWaybackDate(path,df)localmsg,snapdate;snapdate=path:gsub('^/web/',''):gsub('^/all/',''):gsub('^/ukgwa/',''):gsub('^/tna/',''):gsub('^/','');-- remove leading /web/, /all/, /ukgwa/, /tna/, or /snapdate=snapdate:match('^[^/]+');-- get timestampifsnapdate=="*"then-- eg. /web/*/http.., etc.return'index';-- return indicator that this url has an index dateendsnapdate=snapdate:gsub('%a%a_%d?$',''):gsub('%-','');-- from date, remove any trailing "re_", dashesmsg='';ifsnapdate:match('%*$')then-- a trailing '*' causes calendar display at archive .orgsnapdate=snapdate:gsub('%*$','');-- remove so not part of length calc latermsg=inlineRed(err_warn_msgs.ts_cal,'warning');-- make a messageendifnottonumber(snapdate)thenreturnnil,'ts_nan';-- return nil (fatal error flag) and message selectorendlocaldlen=snapdate:len();ifdlen<8then-- we need 8 digits TODO: but shouldn't this be testing for 14 digits?return'',inlineRed(err_warn_msgs.ts_short,'error');-- return empty string and error messageendlocalyear,month,day=snapdate:match('(%d%d%d%d)(%d%d)(%d%d)');-- no need for snapdatelong hereifnotis_valid_date(year,month,day)thenreturn'',inlineRed(err_warn_msgs.ts_date,'error');-- return empty string and error messageendsnapdate=table.concat({year,month,day},'-');-- date comparisons are all done in iso formatif14==dlenthenreturnsnapdate,msg;-- return date with message if anyelsereturnsnapdate,msg..inlineRed(err_warn_msgs.ts_len,'warning');-- return date with warning message(s)endend--[[--------------------------< decodeArchiveisDate >-----------------------Given an Archive.is "long link" URI-path (e.g. /2016.08.28-144552/http://example.com)return the date in df format (e.g. if df = dmy, return 28 August 2016)Handles "." and "-" in snapshot date, so 2016.08.28-144552 is same as 20160828144552returns two values: first value is one of these: valid date string in df format - archive.is date is valid (including the text string 'short link' when url is the short form) empty string - wayback date is malformed (not a number, less than 8 digits, not a valid date) nil - wayback date is '/save/' second return value is an appropriate 'message' may or may not be formatted]]localfunctiondecodeArchiveisDate(path,df)localsnapdateifpath:match('^/%w+$')then-- short form url path is '/' followed by some number of base 62 digits and nothing elsereturn"short link"-- e.g. http://archive.is/hD1qzendsnapdate=mw.text.split(path,'/')[2]:gsub('[%.%-]','');-- get snapshot date, e.g. 2016.08.28-144552; remove periods and hyphenslocaldlen=string.len(snapdate)ifdlen<8then-- we need 8 digits TODO: but shouldn't this be testing for 14 digits?return'',inlineRed(err_warn_msgs.ts_short,'error');-- return empty string and error messageendlocalyear,month,day=snapdate:match('(%d%d%d%d)(%d%d)(%d%d)');-- no need for snapdatelong hereifnotis_valid_date(year,month,day)thenreturn'',inlineRed(err_warn_msgs.ts_date,'error');-- return empty string and error messageendsnapdate=table.concat({year,month,day},'-');-- date comparisons are all done in iso formatif14==dlenthenreturnsnapdate;-- return dateelsereturnsnapdate,inlineRed(err_warn_msgs.ts_len,'warning');-- return date with warning messageendend--[[--------------------------< serviceName >-----------------------Given a domain extracted by mw.uri.new() (eg. web.archive.org) set tail string and service ID]]localfunctionserviceName(host,no_link)localtracking;localindex;host=host:lower():gsub('^web%.(.+)','%1'):gsub('^www%.(.+)','%1');-- lowercase, remove web. and www. subdomainsifservices[host]thenindex=host;elsefork,_inpairs(services)doifhost:find('%f[%a]'..k:gsub('([%.%-])','%%%1'))thenindex=k;break;endendendifindexthenlocalout={''};-- empty string in [1] so that concatenated result has leading single spaceulx.url1.service=services[index][4]or'other';tracking=services[index][5]orcategories.other;-- build tail stringiffalse==services[index][1]then-- select prefixtable.insert(out,prefixes.at);elseiftrue==services[index][1]thentable.insert(out,prefixes.atthe);elsetable.insert(out,services[index][1]);endtable.insert(out,make_wikilink(services[index][2],services[index][3],no_link));-- add article wikilinkifservices[index][6]then-- add tail postfix if it existstable.insert(out,services[index][6]);endulx.url1.tail=table.concat(out,' ');-- put it all together; result has leading space characterelse-- here when unknown archiveulx.url1.service='other';tracking=categories.unknown;ulx.url1.tail=table.concat({'',prefixes.at,host,inlineRed(err_warn_msgs.unknown_url,error)},' ');endtrack[tracking]=1end--[[--------------------------< parseExtraArgs >-----------------------Parse numbered arguments starting at 2, such as url2..url10, date2..date10, title2..title10 For example: {{webarchive |url=.. |url4=.. |url7=..}} Three url arguments not in numeric sequence (1..4..7). Function only processes arguments numbered 2 or greater (in this case 4 and 7) It creates numeric sequenced table entries like: urlx.url2.url = <argument value for url4> urlx.url3.url = <argument value for url7> Returns the number of URL arguments found numbered 2 or greater (in this case returns "2") ]]localfunctionparseExtraArgs(args)locali,j,argurl,argurl2,argdate,argtitlej=2fori=2,config.maxurlsdoargurl="url"..iifargs[argurl]thenargurl2="url"..julx[argurl2]={}ulx[argurl2]["url"]=args[argurl]argdate="date"..iifargs[argdate]thenulx[argurl2]["date"]=args[argdate]elseulx[argurl2]["date"]=inlineRed(err_warn_msgs.date_miss,'warning');endargtitle="title"..iifargs[argtitle]thenulx[argurl2]["title"]=args[argtitle]elseulx[argurl2]["title"]=nilendj=j+1endendifj==2thenreturn0elsereturnj-2endend--[[--------------------------< comma >-----------------------Given a date string, return "," if it's MDY ]]localfunctioncomma(date)return(dateanddate:match('%a+ +%d%d?(,) +%d%d%d%d'))or'';end--[[--------------------------< createRendering >-----------------------Return a rendering of the data in ulx[][]]]localfunctioncreateRendering()localdisplayfieldlocalout={};localindex_date,msg=ulx.url1.date:match('(index)(.*)');-- when ulx.url1.date extract 'index' text and message text (if there is a message)ulx.url1.date=ulx.url1.date:gsub('index.*','index');-- remove messageif'none'==ulx.url1.formatthen-- For {{wayback}}, {{webcite}}table.insert(out,'[');-- open extlink markuptable.insert(out,ulx.url1.url);-- add urlifulx.url1.titlethentable.insert(out,' ')-- the required spacetable.insert(out,ulx.url1.title)-- the titletable.insert(out,']');-- close extlink markuptable.insert(out,ulx.url1.tail);-- tail textifulx.url1.datethentable.insert(out,' (');-- open date text; TODO: why the html entity? replace with regular space?table.insert(out,'index'==ulx.url1.dateands_text.archiveors_text.archived);-- add texttable.insert(out,' ');-- insert a spacetable.insert(out,ulx.url1.date);-- add datetable.insert(out,')');-- close date textendelse-- no titleifindex_datethen-- when url date is 'index' table.insert(out,table.concat({' ',s_text.Archive_index,']'}));-- add the index link labeltable.insert(out,msgor'');-- add date mismatch message when url date is /*/ and |date= has valid dateelsetable.insert(out,table.concat({' ',s_text.Archived,'] '}));-- add link label for url has timestamp date (will include mismatch message if there is one)endifulx.url1.datethenif'index'~=ulx.url1.datethentable.insert(out,ulx.url1.date);-- add date when data is not 'index'endtable.insert(out,comma(ulx.url1.date));-- add ',' if date format is mdytable.insert(out,ulx.url1.tail);-- add tail textelse-- no datetable.insert(out,ulx.url1.tail);-- add tail textendendif0<ulx.url1.extraurlsthen-- For multiple archive URLslocaltot=ulx.url1.extraurls+1table.insert(out,'.')-- terminate first urltable.insert(out,table.concat({' ',s_text.addlarchives,': '}));-- add header textfori=2,totdo-- loop through the additionalslocalindex=table.concat({'url',i});-- make an indexdisplayfield=ulx[index]['title']and'title'or'date';-- choose display texttable.insert(out,'[');-- open extlink markuptable.insert(out,ulx[index]['url']);-- add the urltable.insert(out,' ');-- the required spacetable.insert(out,ulx[index][displayfield]);-- add the labeltable.insert(out,']');-- close extlink markuptable.insert(out,i==totand'.'or', ');-- add terminatorendendreturntable.concat(out);-- make a big string and doneelse-- For {{cite archives}} if'addlarchives'==ulx.url1.formatthen-- Multiple archive services table.insert(out,table.concat({s_text.addlarchives,': '}));-- add header textelse-- Multiple pages from the same archive table.insert(out,table.concat({s_text.addlpages,' '}));-- add header texttable.insert(out,ulx.url1.date);-- add date to header texttable.insert(out,': ');-- close header textendlocaltot=ulx.url1.extraurls+1;fori=1,totdo-- loop through the additionalslocalindex=table.concat({'url',i});-- make an indextable.insert(out,'[');-- open extlink markuptable.insert(out,ulx[index]['url']);-- add urltable.insert(out,' ');-- add required spacedisplayfield=ulx[index]['title'];if'addlarchives'==ulx.url1.formatthenifnotdisplayfieldthendisplayfield=ulx[index]['date']endelse-- must be addlpagesifnotdisplayfieldthendisplayfield=table.concat({s_text.Page,' ',i});endendtable.insert(out,displayfield);-- add title, date, page label texttable.insert(out,']');-- close extlink markuptable.insert(out,(i==totand'.'or', '));-- add terminatorendreturntable.concat(out);-- make a big string and doneendend--[[--------------------------< P A R A M E T E R _ N A M E _ X L A T E >--------------------------------------for internaltionalization, translate local-language parameter names to their English equivalentsTODO: return error message if multiple aliases of the same canonical parameter name are found?returns two tables: new_args - holds canonical form parameters and their values either from translation or because the parameter was already in canonical form origin - maps canonical-form parameter names to their untranslated (local language) form for error messaging in the local languageunrecognized parameters are ignored]]localfunctionparameter_name_xlate(args,params,enum_params)localname;-- holds modifiable name of the parameter name during evaluationlocalenum;-- for enumerated parameters, holds the enumerator during evaluationlocalfound=false;-- flag used to break out of nested for loopslocalnew_args={};-- a table that holds canonical and translated parameter k/v pairslocalorigin={};-- a table that maps original (local language) parameter names to their canonical name for local language error messaginglocalunnamed_params;-- set true when unsupported positional parameters are detectedfork,vinpairs(args)do-- loop through all of the arguments in the args tablename=k;-- copy of original parameter nameif'string'==type(k)thenifnon_western_digitsthen-- true when non-western digits supported at this wikiname=mw.ustring.gsub(name,'%d',digits);-- convert this wiki's non-western digits to western digitsendenum=name:match('%d+$');-- get parameter enumerator if it exists; nil elseifnotenumthen-- no enumerator so looking for non-enumnerated parameters-- TODO: insert shortcut here? if params[name] then name holds the canonical parameter name; no need to search furtherforpname,aliasesinpairs(params)do-- loop through each parameter the params tablefor_,aliasinipairs(aliases)do-- loop through each alias in the parameter's aliases tableifname==aliasthennew_args[pname]=v;-- create a new entry in the new_args tableorigin[pname]=k;-- create an entry to make canonical parameter name to original local language parameter namefound=true;-- flag so that we can break out of these nested for loopsbreak;-- no need to search the rest of the aliases table for name so go on to the next k, v pairendendiffoundthen-- true when we found an alias that matched namefound=false;-- reset the flagbreak;-- go do next args k/v pairendendelse-- enumerated parametersname=name:gsub('%d$','#');-- replace enumeration digits with place holder for table search-- TODO: insert shortcut here? if num_params[name] then name holds the canonical parameter name; no need to search furtherforpname,aliasesinpairs(enum_params)do-- loop through each parameter the num_params tablefor_,aliasinipairs(aliases)do-- loop through each alias in the parameter's aliases tableifname==aliasthenpname=pname:gsub('#$',enum);-- replace the '#' place holder with the actual enumeratornew_args[pname]=v;-- create a new entry in the new_args tableorigin[pname]=k;-- create an entry to make canonical parameter name to original local language parameter namefound=true;-- flag so that we can break out of these nested for loopsbreak;-- no need to search the rest of the aliases table for name so go on to the next k, v pairendendiffoundthen-- true when we found an alias that matched namefound=false;-- reset the flagbreak;-- go do next args k/v pairendendendelseunnamed_params=true;-- flag for unsupported positional parametersendend-- for k, vreturnnew_args,origin,unnamed_params;end--[[--------------------------< W E B A R C H I V E >----------------------------------------------------------template entry point]]localfunctionwebarchive(frame)localargs=getArgs(frame);localdata=mw.loadData(table.concat({-- make a data module name; sandbox or live'Module:Webarchive/data',frame:getTitle():find('sandbox',1,true)and'/sandbox'or''-- this instance is ./sandbox then append /sandbox}));categories=data.categories;-- fill in the forward declarationsconfig=data.config;ifdata.digits.enablethendigits=data.digits;-- for i18n; table of digits in the local wiki's languagenon_western_digits=true;-- use_non_western_digitsenderr_warn_msgs=data.err_warn_msgs;excepted_pages=data.excepted_pages;month_num=data.month_num;-- for i18n; table of month names in the local wiki's languageprefixes=data.prefixes;services=data.services;s_text=data.s_text;uncategorized_namespaces=data.uncategorized_namespaces;uncategorized_subpages=data.uncategorized_subpages;localorigin={};-- holds a map of English to local language parameter names used in the current template; not currently usedlocalunnamed_params;-- boolean set to true when template call has unnamed parametersargs,origin,unnamed_params=parameter_name_xlate(args,data.params,data.enum_params);-- translate parameter names in args to Englishlocaldate,format,msg,udate,uri,url;localldf='iso';-- when there is no |date= parameter, render url dates in iso formatifargs.urlandargs.url1then-- URL argument (first)returninlineError(data.crit_err_msgs.conflicting,{origin.url,origin.url1});endurl=args.urlorargs.url1;ifnoturlthenreturninlineError(data.crit_err_msgs.empty);end-- these iabot bugs perportedly fixed; removing these causes lua script error--[[ -- at Template:Webarchive/testcases/Production; resolve that before deleting these tests if mw.ustring.find( url, "https://web.http", 1, true ) then -- track bug - TODO: IAbot bug; not known if the bug has been fixed; deferred track[categories.error] = 1; return inlineError (data.crit_err_msgs.iabot1); end if url == "https://web.archive.org/http:/" then -- track bug - TODO: IAbot bug; not known if the bug has been fixed; deferred track[categories.error] = 1; return inlineError (data.crit_err_msgs.iabot2); end]]ifnot(url:lower():find('^http')orurl:find('^//'))thenreturninlineError(data.crit_err_msgs.invalid_url);endulx.url1={}ulx.url1.url=urlulx.url1.extraurls=parseExtraArgs(args)localgood=false;good,uri=pcall(mw.uri.new,ulx.url1.url);-- get a table of uri parts from this url; protected mode to prevent lua error when ulx.url1.url is malformedifnotgoodornil==uri.hostthen-- abandon when ulx.url1.url is malformedreturninlineError(data.crit_err_msgs.invalid_url);endserviceName(uri.host,args.nolink)ifargs.dateandargs.date1then-- Date argumentreturninlineError(data.crit_err_msgs.conflicting,{origin.date,origin.date1});enddate=args.dateorargs.date1;date=dateanddate:gsub(' +',' ');-- replace multiple spaces with a single spaceifdateandconfig.verifydatesthenif'*'==datethendate='index';ldf='iso';-- set to default formatelseif'mdy'==datethendate=nil;-- if date extracted from URL,ldf='mdy';-- then |date=mdy overrides isoelseif'dmy'==datethendate=nil;-- if date extracted from URL,ldf='dmy';-- then |date=dmy overrides isoelseif'ymd'==datethendate=nil;-- if date extracted from URL,ldf='ymd';-- then |date=ymd overrides isoelsedate,ldf=decode_date(date);-- get an iso format date from date and get date's original formatendendif'wayback'==ulx.url1.serviceor'locwebarchives'==ulx.url1.serviceor'ukgwa'==ulx.url1.servicethenifdatethenifconfig.verifydatesthenifldfthenudate,msg=decodeWaybackDate(uri.path);-- get the url date in iso format and format of date in |date=; 'index' when wayback url date is *ifnotudatethen-- this is the only 'fatal' error returnreturninlineError(data.crit_err_msgs[msg]);endifudate~=datethen-- date comparison using iso format datesdate=udate;msg=table.concat({inlineRed(err_warn_msgs.mismatch,'warning'),-- add warning messagemsg,-- add message if there is one});endendendelse-- no |date=udate,msg=decodeWaybackDate(uri.path);ifnotudatethen-- this is the only 'fatal' error returnreturninlineError(data.crit_err_msgs[msg]);endif''==udatethendate=nil;-- unsetelsedate=udate;endendelseif'webcite'==ulx.url1.servicethenifdatethenifconfig.verifydatesthenifldfthenudate=decodeWebciteDate(uri.path);-- get the url date in iso formatif'query'~=udatethen-- skip if queryifudate~=datethen-- date comparison using iso format datesdate=udate;msg=table.concat({inlineRed(err_warn_msgs.mismatch,'warning'),});endendendendelsedate=decodeWebciteDate(uri.path,"iso")ifdate=="query"thendate=nil;-- unsetmsg=inlineRed(err_warn_msgs.date_miss,'warning');elseifnotdatethen-- invalid base62 stringdate=inlineRed(err_warn_msgs.date1,'error');endendelseif'archiveis'==ulx.url1.servicethenifdatethenifconfig.verifydatesthenifldfthenudate,msg=decodeArchiveisDate(uri.path)-- get the url date in iso formatif'short link'~=udatethen-- skip if short linkifudate~=datethen-- date comparison using iso format datesdate=udate;msg=table.concat({inlineRed(err_warn_msgs.mismatch,'warning'),-- add warning messagemsg,-- add message if there is one});endendendendelse-- no |date=udate,msg=decodeArchiveisDate(uri.path,"iso")ifudate=="short link"thendate=nil;-- unsetmsg=inlineRed(err_warn_msgs.date_miss,'warning');elseif''==udatethendate=nil;-- unsetelsedate=udate;endendelse-- some other serviceifnotdatethenmsg=inlineRed(err_warn_msgs.date_miss,'warning');endendif'index'==datethenulx.url1.date=date..(msgor'');-- create index + message (if there is one)elseifdatethenulx.url1.date=makeDate(date,nil,nil,ldf)..(msgor'');-- create a date in the wiki's local language + message (if there is one)elseulx.url1.date=msg;endformat=args.format;-- Format argument ifnotformatthenformat="none"elsefork,vinpairs(data.format_vals)do-- |format= accepts two specific values loop through a table of those valueslocalfound;-- declare a nil flagfor_,pinipairs(v)do-- loop through local language variantsifformat==pthen-- when |format= value matches format=k;-- use name from table keyfound=true;-- declare found so that we can break out of outer for loopbreak;-- break out of inner for loopendendiffoundthenbreak;endendifformat=="addlpages"thenifnotulx.url1.datethenformat="none"endelseifformat=="addlarchives"thenformat="addlarchives"elseformat="none"endendulx.url1.format=formatifargs.titleandargs.title1then-- Title argumentreturninlineError(data.crit_err_msgs.conflicting,{origin.title,origin.title1});endulx.url1.title=args.titleorargs.title1;localrend=createRendering()ifnotrendthenreturninlineError(data.crit_err_msgs.unknown);endreturnrend..((unnamed_paramsandinlineRed(err_warn_msgs.unnamed_params,'warning'))or'')..createTracking();end--[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------]]return{webarchive=webarchive};
.svg/60px-Test_Template_Info-Icon_-_Version_(2).svg.png){kind=icon}
