From mboxrd@z Thu Jan  1 00:00:00 1970
Date: Thu,  2 Mar 1995 23:47:16 -0500
From: Scott Schwartz schwartz@galapagos.cse.psu.edu
Subject: finger
Topicbox-Message-UUID: 07b890ac-eac8-11e9-9e20-41e7f4b1d025
Message-ID: <19950303044716.WuJrMDoQVOpmEB7hxzdg1FI9bZk-8iPY8eVxWd62JCE@z>

Here's a quick and dirty finger client, if anyone is interested.
(There is a carrage return in that final sed.  Hopefully not too
many mailers will spoil it.)

#!/bin/rc
~ $#* 0 && { echo 'usage: finger host[!user]' >[1=2] ; exit usage }

ifs='!
' *=`{echo $1}

ifs=' 	
' cs=`{echo tcp!$1!finger | ndb/csquery} 
~ $#cs 2 && exit # blech, prompts; need a nicer csquery
remote=$cs(3)

< /net/tcp/clone {
  n=`{read}
  local=/net/tcp/$n
  echo '[' $local '<' $remote ']' >[1=2]
  echo connect $remote >$local/ctl
  echo $2 >$local/data
  cat <$local/data
} | sed 's/
$//'