#!/bin/rc

qid=`{ls -q $1/ctl | sed 's/^\(//; s/ .*//'}
pid=`{grep $qid /proc/*/fd | sed 's,/proc/,,; s,/fd.*,,'}

echo $pid