uupick under SunOS 4.1

[fts1!mcr at uunet.uu.net]

I've been using uuto and uupick as a simple means of moving files between
work and home without worrying about the exact details of Permissions,
etc... Having basically ignored this subset of UUCP since I discovered it
had been added, I had no expectations.

Suddenly, it dawned on me what the '\c' in the uupick prompt was about. A
quick file on /usr/bin/uupick revealed it to be a shell script. It has
been copied verbatim from the AT&T HDB stuff. Echo, is of course,
incompatible.  I include a brief patch: (back it up first of course)

*** /usr/bin/uupick	Thu Feb  8 09:48:25 1990
--- /usr/bin/uupick	Tue Dec 11 12:50:19 1990
***************
*** 11,16 ****
--- 11,18 ----
  var=""
  varto=""
  varfrom=""
+ c=''
+ n='-n'
  trap "exit 1" 1 2 13 15
  # get options
  if test $# -gt 2
***************
*** 56,67 ****
  		do
  			if test $j = "." -o $j = ".."; then continue; fi
  			if test -d $j
! 			then echo "from system $i: directory $j \c"
! 			else echo "from system $i: file $j \c"
  			fi
  			while true
  			do
! 			  echo '? \c'
  			  if read cmd dir
  			  then
  				trap ": ;;" 1
--- 58,69 ----
  		do
  			if test $j = "." -o $j = ".."; then continue; fi
  			if test -d $j
! 			then echo $n "from system $i: directory $j $c"
! 			else echo $n "from system $i: file $j $c"
  			fi
  			while true
  			do
! 			  echo $n '? $c'
  			  if read cmd dir
  			  then
  				trap ": ;;" 1
***************
*** 158,164 ****
  					sh -c "$ex"
  					cd $tdir
  					echo '!' ;;
! 				 *)	echo "usage: [d][m dir][a dir][p][q]\c"
  					echo "[cntl-d][!cmd][*][new-line]" ;;
  				esac
  				trap "exit 1" 1
--- 160,166 ----
  					sh -c "$ex"
  					cd $tdir
  					echo '!' ;;
! 				 *)	echo $n "usage: [d][m dir][a dir][p][q]$\c"
  					echo "[cntl-d][!cmd][*][new-line]" ;;
  				esac
  				trap "exit 1" 1

   :!mcr!:            |    The postmaster never          |  So much mail,
   Michael Richardson |            resolves twice.       |  so few cycles.
 mcr at julie.UUCP/michael at fts1.UUCP/mcr at doe.carleton.ca -- Domain address
    - Pay attention only to _MY_ opinions. -         registration in progress.