: "@[$]uupick.sh	2.1 08/01/83 07:49:35 -Zilog Inc."
# sys:	system 
# user: login name 
# cdir: current directory
# tdir: temporary directory 
# pu:	PUBDIR/receive/user;
cdir=`pwd`
trap "exit" 1 2 13 15
# get options
while test $# -gt 1
do
	case $1 in
	 -s)	sys=$2 ;;
	 *)	echo "Usage: $0 [-s sysname]"; exit
	esac
	shift; shift
done
user=`who am i | sed -n -e 's/ .*//p'`
pu=/usr/spool/uucppublic/receive/$user
# does user have anything to pick from
if test -d $pu -a -s $pu
  then
  # process each system directory
  for i in `ls $pu`
  do
	if test $sys
	  then	if test $sys != $i;  then continue;  fi
	fi
	if test -d $pu/$i -a -s $pu/$i
	  then
	  # process each file in this system directory
		cd $pu/$i
		for j in `ls`
		do
			if test -d $j
			  then echo "from system $i: directory $j"
			  else echo "from system $i: file $j"
			fi
			while true
			do
			  echo '?'
			  if read cmd dir
			    then
				trap ": ;;" 1
				case $cmd in
				 d)	# delete entry
					rm -fr $j ; break ;;
				 "")	break ;;
				 m)	# move entry to dir
					if test $dir
					  then tdir=$dir
					  else tdir=$cdir
					fi
					find $j -print | cpio -pdmul $tdir
					if test $? -eq 0
					  then rm -fr $j
					fi
					break ;;
				 a)	# move all entries from system to dir
					if test $dir
					  then tdir=$dir
					  else tdir=$cdir
					fi
					find * -print | cpio -pdmul $tdir
					if test $? -eq 0
					  then rm -fr *
					fi
					break 2 ;;
				 p)	# print the entry
					if test -d $j
					  then cat $j
					  else find . -print
					fi ;;
				 q)	# stop
					break 3 ;;
				 !*)	# escape to shell to execute cmd
					ex=`expr "$cmd $dir" : '!\(.*\)'`
					tdir=`pwd`
					cd $cdir
					sh -c "$ex"
					cd $tdir
					echo '!' ;;
				 *)	echo "usage: [d][m dir][a dir][p][q]\c"
					echo "[cntl-d][!cmd][*][new-line]" ;;
				esac
				trap 1
			    else	break 3
			  fi
			done
		done
	fi
  done
  else echo "Nothing to pick."
fi