onintr Q ps a >/tmp/x2$$& who >/tmp/x1$$ wait ed - /tmp/x2$$ 1d 1,$s/\(.......\).\(.\)./\2~\1/ g/^...............-$/s/~/|/ w q ed - /tmp/x1$$ 1,$s/\(.*\)\(tty.\) [A-Z][a-z][a-z] .[0-9]/\2 \1/ 1,$s/^tty// w q echo "\nWho is doing what on \c" date echo "on \c" uname echo "" cat /tmp/x1$$ /tmp/x2$$ | sort >/tmp/x3$$ ed - /tmp/x3$$ g/^. /.1s/ ..:[0-9][0-9] -$//\ s/^.[~|]//\ .-1,.j g/^.[~|]/s/^.[~|]/ &/\ s/^\(...\)[~|]/\1 / w q pr -2 -w132 -t -l65 /tmp/x3$$ : Q rm /tmp/x[123]$$