:
#  ------------------------------------------------------------------------
#  Title        : BITs-service shell support
#  ------------------------------------------------------------------------
#                  This is an UNPUBLISHED work COPYRIGHT by
#                 "ArtCom, Atelier fuer Computergrafik GmbH"
#          Schwachhauser Heerstr. 78, D-2800 Bremen 1, West-Germany
#       It may be used, copied, or distributed only as permitted in a
#                              written license.
#  ------------------------------------------------------------------------
#  Created      :            19-Mar-89 / 23:44 / (pf)
#  Version      :       Tue, 11-Jun-91 / 11:18 / (pf,rb)
#  Portability  : XENIX Bourne shell
#  State        : under development
#  Purpose      : belongs to the XENIX port of BITS
#I Usage        : none, normally Login-shell for user 'service'
#I Remarks      : user 'service' must have root-rights !
#I		  Script must be modified, if driver files were changed
#  ------------------------------------------------------------------------
#
# einige nuetzliche Bourne Shell Prozeduren
#
# PROCEDURE Yes : Prompt for yes or no answer - returns non-zero for no
Yes() {
	while	read yn
	do	case $yn in
		[yYjJ])	return 0 			;;
		[nN])	return 1			;;
		*)	echo "\007Bitte entweder j oder n" 	;;
		esac
	done
}
#
#
# ===============================================================
# Main part starts here :
# ===============================================================
#
tape=$1
if [ "$tape" = "tape" ]
then	# Welches device ?
	echo "Backup auf Spulenmagnetband ?\c"
	if Yes
	then	TAPEOP=mtape
		TAPE="8"
	else	TAPEOP="mtape fname /dev/exa"
		TAPE="3"
	fi
	###$TAPEOP status >/dev/null 2>/dev/null 
	###if [ ! $? -eq 2 ] 
	###then	Error "Die Bandstation ist nicht ansprechbar !"
		###exit 1
	###fi
echo "Haben Sie einen freies beschreibares Magnetband/Exaband eingelegt ? \c"
	# Kernel sichern, um nach Einspielung eines neuen Updates, verbunden
	# mit neuer libartcom.a und neuem Kernel, evtl. wieder auf den
	# alten Stand kommen zu koennen :
	echo "./xenix" >/tmp/tar$$
else	echo "Haben Sie formatierte HD-Disketten (ca.6-7) bereit liegen ? \c"
	cat </dev/null >/tmp/tar$$
fi
if Yes
then	cd /
	find ./bitslib/service -type f -print >> /tmp/tar$$
	$TAPEOP rew
	echo \
"./usr/sys/conf/libartcom.a
./etc/motd" >> /tmp/tar$$
	find ./bitslib -type f -print | \
		fgrep -v ./bitslib/dat | \
		fgrep -v ./bitslib/service >> /tmp/tar$$
# Einpflegen des Courier Fonts
echo \
"./projects/fonts/c_______.pfb" >> /tmp/tar$$
	echo "./tmp/UPD.END.MRK" >> /tmp/tar$$
	echo "pipapo" > /tmp/UPD.END.MRK
	if [ "$tape" = "tape" ]
	then	tar cvF$TAPE /tmp/tar$$
		$TAPEOP rew
		echo "Kontrollesen des Bandes ?\c"
		if Yes
		then	if tar tv$TAPE
			then :
			else echo \
"Fehler beim Kontrollesen. Sicherung sollte wiederholt werden !\007\007"
			fi
			$TAPEOP rew
		fi
	else	tar cv2F /tmp/tar$$
echo "Pruefen Sie die Disketten grob, in dem Sie bei jeder Diskette
'tar tv2' eingeben.
Erscheint bei einer Diskette die Fehlermeldung 'tar: directory checksum error',
so ist diese Diskette fehlerhaft und Sie muessen den Vorgang wiederholen."
	fi
	rm -f /tmp/tar$$
else	if [ ! "$tape" = "tape" ]
	then	echo "Sie koennen Disketten formatieren, in dem Sie als Anwender
(z.B. auf einem anderen Multiscreen) das Kommado 'formatHD' benutzen."
	fi
fi
