DataMuseum.dk

top - download

    Length: 1014 (0x3f6)
    Types: TextFile
    Names: »save.sh«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/news/misc/search/save.sh« 

TextFile

: Save a news article

case $# in
0)	echo "usage: `basename $0` file ..." >&2; exit 2;;
esac

savedir=$HOME/News/save
if	(cd $savedir) 2>/dev/null
then	:
else	mkdir $savedir || exit
fi

temp=/tmp/sv$$

trap 'rm -f $temp; exit' 0 1 2 3 13 14 15

save=$savedir/sv$$

for file
do
	# Generate a new random number: use the pid of a small background job
	while test -f $save
	do
		sleep 1 &
		save=$savedir/sv$!
	done
	
	>$temp

	echo -n "Format: (e.g. binhex, shar, uuencode, diff, ...) "
	read format
	case $format in
	?*)	echo "Format: $format" >>$temp ;;
	esac
	
	echo -n "Type: (e.g. program, source, howto, info, discussion, ...) "
	read type
	case $type in
	?*)	echo "Type: $type" >>$temp ;;
	esac
	
	echo -n "Topic: (e.g., unix, c, mac, pc, c++, languages, ...) "
	read topic
	case $topic in
	?*)	echo "Topic: $topic" >>$temp ;;
	esac
	
	echo -n "Keywords (comma-separated list): "
	read keywords
	case $keywords in
	?*)	echo "Keywords: $keywords" >>$temp ;;
	esac
	
	cat $file >>$temp; munge $temp >$save

done