Modul:Pinging - Versionsgeschichte

PerfektesChaos: 2022-11-14

2022-11-16T20:26:48Z

2022-11-14

← Nächstältere Version		Version vom 16. November 2022, 22:26 Uhr
Zeile 1:		Zeile 1:
	local Pinging = { suite = "Pinging",		local Pinging = { suite = "Pinging",
	serial = "2022-11-01",		serial = "2022-11-14",
	item = 108829575,		item = 108829575,
	maxEcho = 50, -- currently permitted number of recipients		maxEcho = 50, -- currently permitted number of recipients
Zeile 357:		Zeile 357:
	:gsub( "_$", " " )		:gsub( "_$", " " )
	if alter and not lapsus then		if alter and not lapsus then
	local e = mw.html.create( "span" )		local e = mw.html.create( "span" )
	:css( "display", "none" )		:css( "display", "none" )
	:wikitext( r )		:wikitext( r )
	r = tostring( e ) .. alter		r = tostring( e ) .. alter
	end		end
	r = string.format( "%s%s%s", start, r, suffix )		r = string.format( "%s%s%s", start, r, suffix )
Zeile 479:		Zeile 479:
	r = fault( s )		r = fault( s )
	end		end
			return r
	end -- Pinging.f()		end -- Pinging.f()

PerfektesChaos: 2022-11-01

2022-11-14T20:44:05Z

2022-11-01

Änderungen zeigen

PerfektesChaos: 2015-12-22

2015-12-22T21:35:37Z

2015-12-22

← Nächstältere Version		Version vom 22. Dezember 2015, 23:35 Uhr
Zeile 1:		Zeile 1:
	local Serial = "2015-11-07"		local Serial = "2015-12-22"
	--[=[		--[=[
	Module:Pinging -- Support templates for pings and user lists		Module:Pinging -- Support templates for pings and user lists
Zeile 273:		Zeile 273:
	elseif assume[ "@" ] then		elseif assume[ "@" ] then
	start = assume[ "@" ]		start = assume[ "@" ]
			elseif active.a then
			start = active.a
	end		end
	if active[ ":" ] then		if active[ ":" ] then

Mabschaaf: Schützte „Modul:Pinging“: Häufig eingebundenes Modul ([Bearbeiten=Nur Sichter] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

2015-11-07T23:48:42Z

Schützte „Modul:Pinging“: Häufig eingebundenes Modul ([Bearbeiten=Nur Sichter] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

← Nächstältere Version	Version vom 8. November 2015, 01:48 Uhr
(kein Unterschied)

PerfektesChaos: 2015-11-07

2015-11-07T23:03:30Z

2015-11-07

@@ Zeile 1: / Zeile 1: @@
-local Serial = "2015-11-06"
+local Serial = "2015-11-07"
 --[=[
 Module:Pinging -- Support templates for pings and user lists
@@ Zeile 12: / Zeile 12: @@
 local Stick   = "<span style='white-space:nowrap'> </span>| "
 local Suffix  = ":"
@@ Zeile 123: / Zeile 154: @@
                 end
             elseif live then
-                local space, spec = r:match( "^([^:]+):(.+)$" )
+                show = fair( r, false )
             end
         end
@@ Zeile 142: / Zeile 165: @@
             end
         else
-            r = string.format( "%s:%s", mw.site.namespaces.User.name, r )
+            r = fair( r, true )
         end
         if show:find( "%s" )  and  live then
-            show = string.format( "<span %s>%s</span>",
+            show = mw.text.trim( show )
-                                  show )
+                show = string.format( "<span %s>%s</span>",
         end
         if lapsus then
@@ Zeile 165: / Zeile 191: @@
                                    r )
             end
         else
             r = string.format( "[[%s|%s]]", r, show )

PerfektesChaos: 2015-11-06

2015-11-07T11:53:12Z

2015-11-06

← Nächstältere Version		Version vom 7. November 2015, 13:53 Uhr
Zeile 1:		Zeile 1:
	local Serial = "2015-11-01"		local Serial = "2015-11-06"
	--[=[		--[=[
	Module:Pinging -- Support templates for pings and user lists		Module:Pinging -- Support templates for pings and user lists
Zeile 116:		Zeile 116:
	lapsus = true		lapsus = true
	end		end
	if ~~another and~~ not lapsus then		if not lapsus then
	~~show = mw.text.trim(~~ another )		if another then
	if show == "" ~~then~~		show = mw.text.trim( another )
	show = ~~false~~		if show == "" then
			show = false
			end
			elseif live then
			local space, spec = r:match( "^([^:]+):(.+)$" )
			if space then
			local ns = mw.site.namespaces[ space ]
			if type( ns ) == "table" then
			if ns.id == 2 or ns.id == 3 then
			show = spec
			end
			end
			end
	end		end
	end		end

PerfektesChaos: 2015-11-01

2015-11-01T11:54:05Z

2015-11-01

← Nächstältere Version		Version vom 1. November 2015, 13:54 Uhr
Zeile 1:		Zeile 1:
	local Serial = "2015-10-31"		local Serial = "2015-11-01"
	--[=[		--[=[
	Module:Pinging -- Support templates for pings and user lists		Module:Pinging -- Support templates for pings and user lists
Zeile 72:		Zeile 72:


	local function friend( assign, abroad, area, another )		local function friend( assign, abroad, area, another, alter )
	-- Format single link		-- Format single link
	-- Parameter:		-- Parameter:
Zeile 79:		Zeile 79:
	-- area -- true: always wide area = URL		-- area -- true: always wide area = URL
	-- another -- display alternative link title		-- another -- display alternative link title
			-- alter -- link is hidden
	-- Returns:		-- Returns:
	-- 1. string or false,		-- 1. string or false,
Zeile 107:		Zeile 108:
	end		end
	if r then		if r then
			local live = not alter
	local show		local show
	if r:find( "[#<>%[%]%{%}]" ) or		if r:find( "[#<>%[%]%{%}]" ) or
Zeile 130:		Zeile 132:
	r = string.format( "%s:%s", mw.site.namespaces.User.name, r )		r = string.format( "%s:%s", mw.site.namespaces.User.name, r )
	end		end
	if show:find( "%s" ) then		if show:find( "%s" ) and live then
	show = string.format( "<span %s>%s</span>",		show = string.format( "<span %s>%s</span>",
	"style='white-space:nowrap'",		"style='white-space:nowrap'",
Zeile 146:		Zeile 148:
	r = tostring( mw.uri.canonicalUrl( r ) )		r = tostring( mw.uri.canonicalUrl( r ) )
	end		end
	r = string.format( "~~<span class='plainlinks'>~~[%s %s]~~</span>~~",		r = string.format( "[%s %s]", r, show )
	~~r, show )~~		if live then
			r = string.format( "<span class='plainlinks'>%s</span>",
			r )
		⚫	end
	else		else
	r = string.format( "[[%s\|%s]]", r, show )		r = string.format( "[[%s\|%s]]", r, show )
Zeile 174:		Zeile 179:
	local stick = Stick		local stick = Stick
	local lapsus, light, lost, r, s		local lapsus, light, lost, r, s
	if ~~active[ "/" ]~~ then		if alter then
			stick = " "
		⚫	elseif active[ "/" ] then
	stick = active[ "/" ]		stick = active[ "/" ]
	elseif assume[ "/" ] then		elseif assume[ "/" ] then
	stick = assume[ "/" ]		stick = assume[ "/" ]
⚫	elseif ~~alter~~ then
⚫	~~stick~~ = " "
	end		end
	if limit and ( active.max or assume.max ) then		if limit and ( active.max or assume.max ) then
Zeile 194:		Zeile 199:
	if type( k ) == "number" then		if type( k ) == "number" then
	s = assigned[ "label" .. tostring( k ) ]		s = assigned[ "label" .. tostring( k ) ]
	s, light, lost = friend( v, abroad, area, s )		s, light, lost = friend( v, abroad, area, s, alter )
	if s then		if s then
	if r then		if r then
Zeile 240:		Zeile 245:
	suffix = suffix:gsub( "^_", " " )		suffix = suffix:gsub( "^_", " " )
	:gsub( "_$", " " )		:gsub( "_$", " " )
⚫	r = string.format( "%s%s%s", start, r, suffix )
	if alter and not lapsus then		if alter and not lapsus then
	r = string.format( "<span %s>%s</span>%s",		r = string.format( "<span %s>%s</span>%s",
Zeile 246:		Zeile 250:
	r, alter )		r, alter )
	end		end
		⚫	r = string.format( "%s%s%s", start, r, suffix )
	else		else
	r = fault( "? . ? . ? . ?" )		r = fault( "? . ? . ? . ?" )
Zeile 267:		Zeile 272:
	if source then		if source then
	local id, story		local id, story
	id = source:~~find~~( "^%s#(%d+)%s$" )		id = source:match( "^%s#(%d+)%s$" )
	if id then		if id then
	page = tonumber( id )		page = tonumber( id )

PerfektesChaos: 2015-10-31

2015-10-31T17:28:51Z

2015-10-31

← Nächstältere Version		Version vom 31. Oktober 2015, 19:28 Uhr
Zeile 1:		Zeile 1:
	local Serial = "2015-10-30"		local Serial = "2015-10-31"
	--[=[		--[=[
	Module:Pinging -- Support templates for pings and user lists		Module:Pinging -- Support templates for pings and user lists
Zeile 168:		Zeile 168:
	-- Returns:		-- Returns:
	-- string		-- string
	local limit = ( active.max ~= "0" and assume.max ~= "0" )		local limit = ( not area and
			active.max ~= "0" and assume.max ~= "0" )
	-- local lock = ( active.subst or assume.subst )
	local max = MaxEcho		local max = MaxEcho
	local n = 0		local n = 0
Zeile 178:		Zeile 178:
	elseif assume[ "/" ] then		elseif assume[ "/" ] then
	stick = assume[ "/" ]		stick = assume[ "/" ]
			elseif alter then
			stick = " "
	end		end
	if limit then		if limit and ( active.max or assume.max ) then
	if tonumber( assume.max ) then		if tonumber( assume.max ) then
	max = tonumber( assume.max )		max = tonumber( assume.max )
Zeile 224:		Zeile 226:
	if active[ "@" ] then		if active[ "@" ] then
	start = active[ "@" ]		start = active[ "@" ]
			elseif assume[ "@" ] then
			start = assume[ "@" ]
	end		end
	if active[ ":" ] then		if active[ ":" ] then
Zeile 229:		Zeile 233:
	elseif active.p then		elseif active.p then
	suffix = active.p		suffix = active.p
			elseif assume[ ":" ] then
			suffix = assume[ ":" ]
	end		end
			start = start:gsub( "^_", " " )
			:gsub( "_$", " " )
			suffix = suffix:gsub( "^_", " " )
			:gsub( "_$", " " )
	r = string.format( "%s%s%s", start, r, suffix )		r = string.format( "%s%s%s", start, r, suffix )
	if alter and not lapsus then		if alter and not lapsus then
Zeile 248:		Zeile 258:
	-- Parameter:		-- Parameter:
	-- assume -- table with default options		-- assume -- table with default options
⚫	-- active -- table with current options
	-- [ 1 ] -- page speification		-- [ 1 ] -- page speification
			-- [ 2 ] -- title; none for "_", list if omitted
		⚫	-- active -- table with current options
	-- Returns:		-- Returns:
	-- string		-- string
	local source = ~~active~~[ 1 ]		local source = assume[ 1 ]
	local page, r, targets		local page, r, targets
	if source then		if source then
Zeile 273:		Zeile 284:
	end		end
	if targets then		if targets then
	local show = ~~active~~[ 2 ]		local show = assume[ 2 ]
	if show then		if show then
	show = mw.text.trim( show )		show = mw.text.trim( show )
Zeile 280:		Zeile 291:
	end		end
	end		end
	if show then		if show == "_" then
			show = ""
			elseif show then
	show = string.format( "[[%s\|%s]]", page.prefixedText, show )		show = string.format( "[[%s\|%s]]", page.prefixedText, show )
	end		end
Zeile 290:		Zeile 303:
	local s = string.format( "{{subst:%s}}",		local s = string.format( "{{subst:%s}}",
	assume.subst )		assume.subst )
	r = ~~string.format~~( ~~"%s %s", r,~~ s )		r = fault( s )
	end		end
	return r		return r
Zeile 317:		Zeile 330:
	end		end

	function p.massmessage( ~~frame~~ )		function p.massmessage( a1, a2 )
			local r
	return massmessage( frame:getParent().args, frame.args )
			if type( a1 ) == "table" then
			local p1, p2
			if type( a1.getParent ) == "function" then
			-- a1 is supposed to be a frame
			p1 = a1.args
			p2 = a1:getParent().args
			else
			p1 = a1
			if type( a2 ) == "table" then
			p2 = a2
			else
			p2 = { }
			end
			end
			r = massmessage( p1, p2 )
			else
			r = fault( "Pinging::massmessage()" )
			end
			return r
	end		end

Zeile 326:		Zeile 358:

	function p.noping( frame )		function p.noping( frame )
	return userlist( frame~~:getParent()~~.args, frame.args, true )		return userlist( frame.args, frame:getParent().args, true )
	end		end

	function p.ping( frame )		function p.ping( frame )
	return userlist( frame~~:getParent()~~.args, frame.args, false )		return userlist( frame.args, frame:getParent().args, false )
	end		end

PerfektesChaos: 2015-10-30

2015-10-30T11:10:18Z

2015-10-30

Neue Seite

local Serial = "2015-10-30"
--[=[
Module:Pinging -- Support templates for pings and user lists
]=]

-- local globals
local MaxEcho = 50 -- currently permitted number of recipients
local MaxName = 34 -- length of a user name
local Start = "@"
local Stick = " | "
local Suffix = ":"

local function fault( alert )
-- Format error message by class=error
-- Parameter:
-- alert -- string, error message
-- Returns:
-- string, HTML span
return string.format( "%s",
"class=\"error\"",
"style='white-space:nowrap'",
alert );
end -- fault()

local function fetch( analyse )
-- Retrieve target table
-- Parameter:
-- analyse -- string with page content
-- Returns:
-- sequence of targets, even empty
local i = 1
local loop = true
local r = { }
local s = analyse
local j, k
while ( loop ) do
loop = false
j = s:find( "", j + 4, true )
if k then
loop = true
s = s:sub( 1, j ) .. s:sub( k + 3 )
i = j
end
end
end -- while loop
i = 1
loop = true
while ( loop ) do
loop = false
j = s:find( "{{#target:", i, true )
if j then
j = j + 10
k = s:find( "}}", j, true )
if k then
loop = true
table.insert( r, s:sub( j, k - 1 ) )
i = k + 1
end
end
end -- while loop
return r
end -- fetch()

local function friend( assign, abroad, area, another )
-- Format single link
-- Parameter:
-- assign -- user or page name
-- abroad -- page names came from #target
-- area -- true: always wide area = URL
-- another -- display alternative link title
-- Returns:
-- 1. string or false,
-- 2. true: string is internal
-- 3. true: error occurred
local long = area
local r = assign
local site = false
local lapsus
if abroad then
local s
s, site = assign:match( "^%s*(.+)%s*|%s*(.*)%s*$" )
if s then
site = mw.text.trim( site )
if site == "" then
site = false
else
long = true
end
r = s
end
end
if r then
r = mw.text.trim( r )
if r == "" then
r = false
end
end
if r then
local show
if r:find( "[#<>%[%]%{%}]" ) or
( not abroad and
( r:find( "[/@]" ) or
mw.ustring.len( r ) > MaxName) ) then
lapsus = true
end
if another and not lapsus then
show = mw.text.trim( another )
if show == "" then
show = false
end
end
if not show then
show = r
end
if abroad then
if site then
show = string.format( "%s@%s", show, site )
end
else
r = string.format( "%s:%s", mw.site.namespaces.User.name, r )
end
if show:find( "%s" ) then
show = string.format( "%s",
"style='white-space:nowrap'",
show )
end
if lapsus then
r = fault( show )
long = true
elseif long then
if site then
r = string.format( "//%s/wiki/%s",
site,
mw.uri.encode( r, "WIKI" ) )
else
r = tostring( mw.uri.canonicalUrl( r ) )
end
r = string.format( "[%s %s]",
r, show )
else
r = string.format( "[[%s|%s]]", r, show )
end
end
return r, not long, lapsus
end -- friend()

local function friends( assigned, abroad, area, assume, active, alter )
-- Make list of entries
-- Parameter:
-- assigned -- table with pages or users
-- abroad -- true: page names came from #target
-- area -- true: always wide area = URL
-- assume -- table with default options
-- active -- table with current options
-- alter -- string: hide result, show this
-- Returns:
-- string
local limit = ( active.max ~= "0" and assume.max ~= "0" )
-- local lock = ( active.subst or assume.subst )
local max = MaxEcho
local n = 0
local stick = Stick
local lapsus, light, lost, r, s
if active[ "/" ] then
stick = active[ "/" ]
elseif assume[ "/" ] then
stick = assume[ "/" ]
end
if limit then
if tonumber( assume.max ) then
max = tonumber( assume.max )
end
if tonumber( active.max ) then
max = tonumber( active.max )
end
end
stick = stick:gsub( "^_", " " )
:gsub( "_$", " " )
for k, v in pairs( assigned ) do
if type( k ) == "number" then
s = assigned[ "label" .. tostring( k ) ]
s, light, lost = friend( v, abroad, area, s )
if s then
if r then
r = r .. stick
else
r = ""
end
if lost then
lapsus = true
elseif limit and light then
n = n + 1
if n > max then
local scream = "Echo-notification-count"
scream = mw.message.new( scream )
scream = scream:numParams( max )
:plain()
scream = string.format( " !! %s !! ",
scream )
r = r .. fault( scream )
lapsus = true
limit = false
end
end
r = r .. s
end
end
end -- for k
if r then
local start = Start
local suffix = Suffix
if active[ "@" ] then
start = active[ "@" ]
end
if active[ ":" ] then
suffix = active[ ":" ]
elseif active.p then
suffix = active.p
end
r = string.format( "%s%s%s", start, r, suffix )
if alter and not lapsus then
r = string.format( "%s%s",
"style='display:none'",
r, alter )
end
else
r = fault( "? . ? . ? . ?" )
end
return r
end -- friends()

local function massmessage( assume, active )
-- Create text from massmessage distribution page
-- Parameter:
-- assume -- table with default options
-- active -- table with current options
-- [ 1 ] -- page speification
-- Returns:
-- string
local source = active[ 1 ]
local page, r, targets
if source then
local id, story
id = source:find( "^%s*#(%d+)%s*$" )
if id then
page = tonumber( id )
else
page = source
end
page = mw.title.new( page )
if page then
story = page:getContent()
end
if story then
targets = fetch( story )
else
r = fault( source )
end
end
if targets then
local show = active[ 2 ]
if show then
show = mw.text.trim( show )
if show == "" then
show = false
end
end
if show then
show = string.format( "[[%s|%s]]", page.prefixedText, show )
end
r = friends( targets, true, false, assume, active, show )
elseif not r then
r = fault( source or "massmessage|namespace:title" )
end
if assume.subst and not mw.isSubsting() then
local s = string.format( "{{subst:%s}}",
assume.subst )
r = string.format( "%s %s", r, s )
end
return r
end -- massmessage()

local function userlist( assume, active, area )
-- Create text from template transclusion
-- Parameter:
-- assume -- table with default options
-- active -- table with current options
-- area -- true: always wide area = URL
-- Returns:
-- string
return friends( active, false, area, assume, active, false )
end -- userlist()

-- Export
local p = { }

function p.failsafe()
return Serial
end

function p.massmessage( frame )
return massmessage( frame:getParent().args, frame.args )
end

function p.maxecho()
return tostring( MaxEcho )
end

function p.noping( frame )
return userlist( frame:getParent().args, frame.args, true )
end

function p.ping( frame )
return userlist( frame:getParent().args, frame.args, false )
end

return p