#!/bin/rc
rfork e

fn usage {
	>[2=1] echo $0 name service [proto]
	exit usage
}

if(test $#* -lt 2)
	usage
name=$1
service=$2
proto=$3
if(~ $#proto 0)
	proto='tcp'

<>[9]/net/dns {
	echo _$service._$proto.$name srv >[1=9] || exit NXDOMAIN
	syscall seek 9 0 0 >[2]/dev/null
	while(x=`{syscall -o read 9 buf 1024 |[2] grep -vs 'return 0'})
		echo $proto!$x(6)!$x(5)
}