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

Copyright © 2009 Alcatel-Lucent.
Distributed under the Lucent Public License version 1.02.
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 © 2009 Alcatel-Lucent. All Rights Reserved.
Comments to webmaster@plan9.bell-labs.com.