#!/bin/rc
#

rfork ne

for(ip in $*){
	hget 'http://api.geoiplookup.net/?query='^$ip |
		sed 's/></>\n</g' |
		sed -n 's/^<(.+)>(.+)<.+>$/\1 : \2/p' | 
		grep -v '^host'

	echo $ip | 
		ndb/dnsquery |
		awk '$3 == "ptr" {print "revdns", ":", $NF}'


	echo $ip |
		sed 's/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/\4.\3.\2.\1.abuse-contacts.abusix.org txt/' |
		ndb/dnsquery |
		awk '$3 == "txt" {print "abusix", ":", $NF}'

} |
columns