Module:IPAddress/sandbox - Revision history

Nagol0929: Reverting edit(s) by 2600:1005:B0C0:6C36:0:1E:1C2C:7E01 (talk) to rev. 1132811434 by Trialpears: Unexplained content removal (RW 16.1)

2023-10-25T16:06:07Z

Reverting edit(s) by 2600:1005:B0C0:6C36:0:1E:1C2C:7E01 (talk) to rev. 1132811434 by Trialpears: Unexplained content removal (RW 16.1)

← Previous revision	Revision as of 16:06, 25 October 2023
Line 1:	Line 1:
		local p = {}

		function p._isIpV6(s)
		local dcolon, groups
		if type(s) ~= "string"
		or s:len() == 0
		or s:find("[^:%x]") -- only colon and hex digits are legal chars
		or s:find("^:[^:]") -- can begin or end with :: but not with single :
		or s:find("[^:]:$")
		or s:find(":::")
		then
		return false
		end
		s, dcolon = s:gsub("::", ":")
		if dcolon > 1 then return false end -- at most one ::
		s = s:gsub("^:?", ":") -- prepend : if needed, upper
		s, groups = s:gsub(":%x%x?%x?%x?", "") -- remove valid groups, and count them
		return ( (dcolon == 1 and groups < 8) or (dcolon == 0 and groups == 8) )
		and ( s:len() == 0 or (dcolon == 1 and s == ":") ) -- might be one dangling : if original ended with ::
		end

		function p._isIpV4(s)
		local function legal(n) return (tonumber(n) or 256) < 256 and not n:match("^0%d") end
		if type(s) ~= "string" then return false end
		local p1, p2, p3, p4 = s:match("^(%d+)%.(%d+)%.(%d+)%.(%d+)$")
		return legal(p1) and legal(p2) and legal(p3) and legal(p4)
		end

		function p._isIp(s)
		return p._isIpV4(s) and "4" or p._isIpV6(s) and "6"
		end

		function p._isIpV4Range(s)
		return p._isIpV4(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
		end

		function p._isIpV6Range(s)
		return p._isIpV6(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
		end

		function p._isIpOrRange(s)
		local modip = require('Module:IP')
		local success, ip = pcall(modip.IPAddress.new, s)
		if success then
		return 'ip'
		end
		success, ip = pcall(modip.Subnet.new, s)
		if success then
		return 'range'
		end
		return ''
		end

		local function input(frame)
		-- Return input parameter after replacing any of following directional markers.
		-- LRM : LEFT-TO-RIGHT MARK (U+200E) : hex e2 80 8e = 226 128 142
		-- LRE : LEFT-TO-RIGHT EMBEDDING (U+202A) : hex e2 80 aa = 226 128 170
		-- PDF : POP DIRECTIONAL FORMATTING (U+202C) : hex e2 80 ac = 226 128 172
		-- This is required for MediaWiki:Blockedtext message.
		return (frame.args[1] or ''):gsub('\226\128[\142\170\172]', ' ') -- replace LRM, LRE, PDF with space delimiter
		end

		function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end
		function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end
		function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) and "1" or "0" end
		function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) and "1" or "0" end
		function p.isIp(frame) return p._isIp(input(frame)) or "" end

		function p.isIpOrRange(frame)
		-- {{#invoke:IPAddress\|isIpOrRange\|x}} → 'ip' (IPv4/IPv6) or 'range' (CIDR IPv4/IPv6) or '' (invalid)
		return p._isIpOrRange(input(frame))
		end

		return p

2600:1005:B0C0:6C36:0:1E:1C2C:7E01: ←Blanked the page

2023-10-25T16:05:47Z

←Blanked the page

← Previous revision		Revision as of 16:05, 25 October 2023
Line 1:		Line 1:
	local p = {}

	function p._isIpV6(s)
	local dcolon, groups
	if type(s) ~= "string"
	or s:len() == 0
	or s:find("[^:%x]") -- only colon and hex digits are legal chars
	or s:find("^:[^:]") -- can begin or end with :: but not with single :
	or s:find("[^:]:$")
	or s:find(":::")
	then
	return false
	end
	s, dcolon = s:gsub("::", ":")
	if dcolon > 1 then return false end -- at most one ::
	s = s:gsub("^:?", ":") -- prepend : if needed, upper
	s, groups = s:gsub(":%x%x?%x?%x?", "") -- remove valid groups, and count them
	return ( (dcolon == 1 and groups < 8) or (dcolon == 0 and groups == 8) )
	and ( s:len() == 0 or (dcolon == 1 and s == ":") ) -- might be one dangling : if original ended with ::
	end

	function p._isIpV4(s)
	local function legal(n) return (tonumber(n) or 256) < 256 and not n:match("^0%d") end
	if type(s) ~= "string" then return false end
	local p1, p2, p3, p4 = s:match("^(%d+)%.(%d+)%.(%d+)%.(%d+)$")
	return legal(p1) and legal(p2) and legal(p3) and legal(p4)
	end

	function p._isIp(s)
	return p._isIpV4(s) and "4" or p._isIpV6(s) and "6"
	end

	function p._isIpV4Range(s)
	return p._isIpV4(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
	end

	function p._isIpV6Range(s)
	return p._isIpV6(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
	end

	function p._isIpOrRange(s)
	local modip = require('Module:IP')
	local success, ip = pcall(modip.IPAddress.new, s)
	if success then
	return 'ip'
	end
	success, ip = pcall(modip.Subnet.new, s)
	if success then
	return 'range'
	end
	return ''
	end

	local function input(frame)
	-- Return input parameter after replacing any of following directional markers.
	-- LRM : LEFT-TO-RIGHT MARK (U+200E) : hex e2 80 8e = 226 128 142
	-- LRE : LEFT-TO-RIGHT EMBEDDING (U+202A) : hex e2 80 aa = 226 128 170
	-- PDF : POP DIRECTIONAL FORMATTING (U+202C) : hex e2 80 ac = 226 128 172
	-- This is required for MediaWiki:Blockedtext message.
	return (frame.args[1] or ''):gsub('\226\128[\142\170\172]', ' ') -- replace LRM, LRE, PDF with space delimiter
	end

	function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end
	function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end
	function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) and "1" or "0" end
	function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) and "1" or "0" end
	function p.isIp(frame) return p._isIp(input(frame)) or "" end

	function p.isIpOrRange(frame)
	-- {{#invoke:IPAddress\|isIpOrRange\|x}} → 'ip' (IPv4/IPv6) or 'range' (CIDR IPv4/IPv6) or '' (invalid)
	return p._isIpOrRange(input(frame))
	end

	return p

Trialpears: Restored revision 1132808461 by Trialpears (talk)

2023-01-10T18:27:41Z

Restored revision 1132808461 by Trialpears (talk)

← Previous revision		Revision as of 18:27, 10 January 2023
Line 32:		Line 32:

	function p._isIpV4Range(s)		function p._isIpV4Range(s)
	return p._isIpOrRange(s)		return p._isIpV4(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
	end		end

	function p._isIpV6Range(s)		function p._isIpV6Range(s)
	return p._isIpOrRange(s)		return p._isIpV6(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
	end		end

Line 49:		Line 49:
	return 'range'		return 'range'
	end		end
	return ip		return ''
	end		end

Line 63:		Line 63:
	function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end		function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end
	function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end		function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end
	function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) end		function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) and "1" or "0" end
	function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) end		function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) and "1" or "0" end
	function p.isIp(frame) return p._isIp(input(frame)) or "" end		function p.isIp(frame) return p._isIp(input(frame)) or "" end

Trialpears: test

2023-01-10T18:21:12Z

test

← Previous revision		Revision as of 18:21, 10 January 2023
Line 49:		Line 49:
	return 'range'		return 'range'
	end		end
	return ~~success~~		return ip
	end		end

Trialpears: test

2023-01-10T18:19:26Z

test

← Previous revision		Revision as of 18:19, 10 January 2023
Line 49:		Line 49:
	return 'range'		return 'range'
	end		end
	return ''		return success
	end		end

Trialpears: raw output

2023-01-10T18:14:10Z

raw output

← Previous revision		Revision as of 18:14, 10 January 2023
Line 32:		Line 32:

	function p._isIpV4Range(s)		function p._isIpV4Range(s)
	return(p._isIpOrRange(s~~) == 'range'~~)		return p._isIpOrRange(s)
	end		end

	function p._isIpV6Range(s)		function p._isIpV6Range(s)
	return (p._isIpOrRange(s~~) == 'range'~~)		return p._isIpOrRange(s)
	end		end

Line 63:		Line 63:
	function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end		function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end
	function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end		function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end
	function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) ~~and "1" or "0"~~ end		function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) end
	function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) ~~and "1" or "0"~~ end		function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) end
	function p.isIp(frame) return p._isIp(input(frame)) or "" end		function p.isIp(frame) return p._isIp(input(frame)) or "" end

Trialpears: only the other

2023-01-10T18:11:13Z

only the other

← Previous revision		Revision as of 18:11, 10 January 2023
Line 32:		Line 32:

	function p._isIpV4Range(s)		function p._isIpV4Range(s)
	return ~~p._isIpV4(s:gsub("/%d+$", "")) and~~ (p._isIpOrRange(s) == 'range')		return(p._isIpOrRange(s) == 'range')
	end		end

	function p._isIpV6Range(s)		function p._isIpV6Range(s)
	return ~~p._isIpV6(s:gsub("/%d+$", "")) and~~ (p._isIpOrRange(s) == 'range')		return (p._isIpOrRange(s) == 'range')
	end		end

Trialpears: And return

2023-01-10T18:09:46Z

And return

← Previous revision		Revision as of 18:09, 10 January 2023
Line 32:		Line 32:

	function p._isIpV4Range(s)		function p._isIpV4Range(s)
	return p._isIpV4(s:gsub("/%d+$", "")) -- and (p._isIpOrRange(s) == 'range')		return p._isIpV4(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
	end		end

	function p._isIpV6Range(s)		function p._isIpV6Range(s)
	return p._isIpV6(s:gsub("/%d+$", "")) -- and (p._isIpOrRange(s) == 'range')		return p._isIpV6(s:gsub("/%d+$", "")) and (p._isIpOrRange(s) == 'range')
	end		end

Trialpears: test

2023-01-10T18:07:31Z

test

← Previous revision		Revision as of 18:07, 10 January 2023
Line 63:		Line 63:
	function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end		function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end
	function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end		function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end
	function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) ~~end --~~and "1" or "0" end		function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) and "1" or "0" end
	function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) ~~end --~~and "1" or "0" end		function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) and "1" or "0" end
	function p.isIp(frame) return p._isIp(input(frame)) or "" end		function p.isIp(frame) return p._isIp(input(frame)) or "" end

Trialpears: test

2023-01-10T18:06:25Z

test

← Previous revision		Revision as of 18:06, 10 January 2023
Line 32:		Line 32:

	function p._isIpV4Range(s)		function p._isIpV4Range(s)
	return (p._isIpV4(s:gsub("/%d+$", "")) ~~and "4")~~ and (p._isIpOrRange(s) == 'range')		return p._isIpV4(s:gsub("/%d+$", "")) -- and (p._isIpOrRange(s) == 'range')
	end		end

	function p._isIpV6Range(s)		function p._isIpV6Range(s)
	return (p._isIpV6(s:gsub("/%d+$", "")) ~~and "6")~~ and (p._isIpOrRange(s) == 'range')		return p._isIpV6(s:gsub("/%d+$", "")) -- and (p._isIpOrRange(s) == 'range')
	end		end

Line 63:		Line 63:
	function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end		function p.isIpV6(frame) return p._isIpV6(input(frame)) and "1" or "0" end
	function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end		function p.isIpV4(frame) return p._isIpV4(input(frame)) and "1" or "0" end
	function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) and "1" or "0" end		function p.isIpV6Range(frame) return p._isIpV6Range(input(frame)) end --and "1" or "0" end
	function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) and "1" or "0" end		function p.isIpV4Range(frame) return p._isIpV4Range(input(frame)) end --and "1" or "0" end
	function p.isIp(frame) return p._isIp(input(frame)) or "" end		function p.isIp(frame) return p._isIp(input(frame)) or "" end