Plan 9 from Bell Labs’s /usr/web/sources/plan9/mail/grey/revdom

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#!/bin/awk -f
# reverse whilelist domains
function rev(s,  i, n, ndom, dom) {
	n = split(s, dom, ".")
	ndom = dom[n]
	for (i = n-1; i >= 1; i--)
		ndom = ndom "." dom[i]
	return ndom
}
NF == 1 { print }
NF == 2	{ printf "%s %s\n", $1, rev($2) }

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].