#!/bin/rc
#identd service net dir -- rfc1413 -- bugs to forsyth@minster.york.ac.uk
loc=`{sed 's/!.*//' $3/local}
rem=`{sed 's/!.*//' $3/remote}
query=`{read}
! ~ $#query 0 || exit empty
lport=`{echo $query|sed -e 's/[ 	]*([^ 	]*)[ 	]*,.*/\1/' -e 's/
//g' -e 's/[^0-9]+/X/g' }
rport=`{echo $query|sed -e 's/.*,[ 	]*([^ 	]*).*/\1/' -e 's/
//g' -e 's/[^0-9]+/X/g' }
~ $#lport^$#rport 11 && ! ~ $lport^$rport *X* || { exec echo $query: ERROR: INVALID-PORT
 }
for(a in /net/tcp/[0-9]*) {
	if (grep -s '^'^$loc^'!'^$lport^'$' $a/local &&
	    grep -s '^'^$rem^'!'^$rport^'$' $a/remote) {
		who=`{ls -l $a/data | sed 's/^[^ ]+ [^ ]+ [^ ]+ ([^ ]+).*/\1/'}
		exec echo $lport, $rport: USERID: UNIX: $who^
	}
}
exec echo $lport, $rport: ERROR: NO-USER