[COPY] --- T2-COPYRIGHT-BEGIN ---
[COPY] t2/package/*/iana-protocols/iana-protocols.desc
[COPY] Copyright (C) 2024 - 2025 The T2 SDE Project
[COPY] SPDX-License-Identifier: GPL-2.0
[COPY] --- T2-COPYRIGHT-END ---

[I] IANA protocols and services

[T] Official protocols and services definition provided by IANA.

[U] https://www.iana.org/protocols/

[A] Internet Assigned Numbers Authority (IANA)
[M] NoTag <notag@t2sde.org>

[C] extra/documentation

[L] PublicDomain
[S] Stable
[V] 2024-03-18

[D] dab99fdddafe38bdac57fe4d82d613de4c34956a71f5ba026508c08d protocol-numbers.xml https://www.iana.org/assignments/protocol-numbers/
[D] c17cd0f9d895c6532d0cc358d56d970cb35c2805d5f182cb3e3e7aa3 service-names-port-numbers.xml https://www.iana.org/assignments/service-names-port-numbers/

autoextract=0
runconf=0
runmake=0

hook_add inmake 5 iana_protocols_inmake

iana_protocols_inmake() {
	local iana_protocols=$(match_source_file -p protocol-numbers.xml)
	local iana_ports=$(match_source_file -p service-names-port-numbers.xml)

	mkdir -p $root$datadir/iana/
	install -Dm644 $iana_ports $iana_protocols $root$datadir/iana/

	gawk -F"[<>]" '
BEGIN { print "# Full data: /usr/share/iana/protocol-numbers.xml\n" }
(/<record/) { v=n="" }
(/<value/) { v=$3 }
(/<name/ && $3!~/ /) { n=$3 }
(/<\/record/ && n && v!="") { printf "%-12s %3i %s\n", tolower(n),v,n }
' $iana_protocols > $root$sysconfdir/protocols

	gawk -F"[<>]" '
BEGIN { print "# Full data: /usr/share/iana-etc/port-numbers.xml\n" }
(/<record/) { n=u=p=c="" }
(/<name/ && !/\(/) { n=$3 }
(/<number/) { u=$3 }
(/<protocol/) { p=$3 }
(/Unassigned/ || /Reserved/ || /historic/) { c=1 }
(/<\/record/ && n && u && p && !c) { printf "%-15s %5i/%s\n", n,u,p }
' $iana_ports > $root$sysconfdir/services

}