Modulo:IP validator

Istruzioni per l'uso
Questo è un modulo scritto in Lua. Le istruzioni che seguono sono contenute nella sottopagina Modulo:IP validator/man (modifica · cronologia)
Sandbox: Modulo:IP validator/sandbox (modifica · cronologia) · Sottopagine: lista · Test: Modulo:IP validator/test (modifica · cronologia · esegui)

Modulo per verificare se una data stringa rappresenta un indirizzo IP valido. Il template corrispondente è Template:IP?.

Le funzioni disponibili sono is_ipv4, is_ipv6 e is_ip da usare per convalidare, rispettivamente, secondo lo standard IPv4, IPv6 o uno dei due indistintamente. Non è prevista la convalida di IPv4-mapped address né di IPv4-compatible address.

Di seguito alcuni esempi d'uso:

Funzione	Stringa da analizzare	Codice da usare	Risultato
is_ipv4	0.0.0.0	{{#invoke:IP validator|is_ipv4|0.0.0.0}}	1
	93.2.50.255	{{#invoke:IP validator|is_ipv4|93.2.50.255}}	1
	93.2.50.256	{{#invoke:IP validator|is_ipv4|93.2.50.256}}	0
	93.2.50	{{#invoke:IP validator|is_ipv4|93.2.50}}	0
	A.2.50.255	{{#invoke:IP validator|is_ipv4|A.2.50.255}}	0
is_ipv6	2001:13:A1B:90F:512:FFFF:88:AF3	{{#invoke:IP validator|is_ipv6|2001:13:A1B:90F:512:FFFF:88:AF3}}	1
	4:4:4:4:4:4:4:4	{{#invoke:IP validator|is_ipv6|4:4:4:4:4:4:4:4}}	1
	2001:13:A1B::FFFF:AF3	{{#invoke:IP validator|is_ipv6|2001:13:A1B::FFFF:AF3}}	1
	2001:13:A1B:90F::FFFF:88:AF3	{{#invoke:IP validator|is_ipv6|2001:13:A1B:90F::FFFF:88:AF3}}	0
	2001::90F::FFFF:88:AF3	{{#invoke:IP validator|is_ipv6|2001::90F::FFFF:88:AF3}}	0
	2001:13:A1B:90F:512:FFFF:88	{{#invoke:IP validator|is_ipv6|2001:13:A1B:90F:512:FFFF:88}}	0
	2001.13.A1B.90F.512.FFFF.88.AF3	{{#invoke:IP validator|is_ipv6|2001.13.A1B.90F.512.FFFF.88.AF3}}	0
is_ip	1.2.3.4	{{#invoke:IP validator|is_ip|1.2.3.4}}	1
	2001:13:A1B:90F:512:FFFF:88:AF3	{{#invoke:IP validator|is_ip|2001:13:A1B:90F:512:FFFF:88:AF3}}	1
	4:4:4:4	{{#invoke:IP validator|is_ip|4:4:4:4}}	0
	test	{{#invoke:IP validator|is_ip|test}}	0

---

local str = {}

--[[
is_ipv4

Questa funzione ritorna '1' o '0' a seconda che la stringa in input corrisponda o meno allo standard IPv4.

Uso:
{{#invoke:IP validator|is_ipv4|stringa}}
]]
function str.is_ipv4( frame )
    local s = frame.args[1] or '';
    
    if not s:find("^%d+%.%d+%.%d+%.%d+$") then
        return '0'
    end
    
    for substr in s:gmatch("(%d+)") do
        if not substr:find("^[1-9]?[0-9]$")
                and not substr:find("^1[0-9][0-9]$")
                and not substr:find( "^2[0-4][0-9]$")
                and not substr:find("^25[0-5]$") then
            return '0'
        end
    end
    
    return '1';
end

--[[
is_ipv6

Questa funzione ritorna '1' o '0' a seconda che la stringa in input corrisponda o meno allo standard IPv6.

Uso:
{{#invoke:IP validator|is_ipv6|stringa}}
]]
function str.is_ipv6( frame )
    local s = frame.args[1] or '';
    
    if not (s:find("^%w+:%w+:%w+:%w+:%w+:%w+:%w+:%w+$")          -- caso in cui ci sono esattamente sette ":"
                or (s:find("^%w*:%w*:%w*:?%w*:?%w*:?%w*:?%w*$")  -- altrimenti devono esserci fra i due e i sei ":"
            	    and s:find("::")))                           -- e dev'esserci la sottostringa "::"
            or s:find("::.*::")                                  -- ma non possono mai esserci due sottostringhe "::"
            or s:find(":::") then                                -- né una sottostringa ":::"
        return '0'
    end
    
    for substr in s:gmatch("(%w+)") do
        if not substr:find("^[0-9A-Fa-f][0-9A-Fa-f]?[0-9A-Fa-f]?[0-9A-Fa-f]?$") then
            return '0'
        end
    end
    
    return '1';
end

--[[
is_ip

Questa funzione ritorna '1' o '0' a seconda che la stringa in input corrisponda o meno allo standard IPv4 o IPv6.

Uso:
{{#invoke:IP validator|is_ip|stringa}}
]]
function str.is_ip( frame )
    local ipv4 = str.is_ipv4( frame ) == '1';
    local ipv6 = str.is_ipv6( frame ) == '1';
    
    if ipv4 or ipv6 then 
        return '1';
    else
        return '0';
    end
end

return str