:
#  ------------------------------------------------------------------------
#  Title        : Auspacken eines Release-Tapes zum 'Flicken' oder kopieren
#  ------------------------------------------------------------------------
#                  This is an UNPUBLISHED work COPYRIGHT by
#		  "ArtCom, Atelier fr Computergrafik GmbH"
# Bremer Medienhaus, Schwachhauser Heerstr. 78, 28209 Bremen, West Germany.
#       It may be used, copied, or distributed only as permitted in a
#                              written license.
#  ------------------------------------------------------------------------
#  Created      :       Mon, 12-Dec-94 / 13:39 / (mk)
#  Version      :       Mi, 29-Nov-95 / 07:35 / (mk)
#  Portability  : /bin/sh
#  Remarks      : Verzeichnis, unter dem die Daten abgelegt werden sollen
#                 und Tape, von dem gelesen werden soll, wird erfragt.
#                 Das angegebene Verzeichnis und ein Unterverzeichnis bin
#                 wird angelegt. In das ./bin-Verzeichnis wird das gesamte
#                 Tararchiv vom Tape-Anfang gelesen. Dann wird das einge-
#                 lesene unpackTape ausgefhrt.
#  ------------------------------------------------------------------------

Error()
{
  echo "\nERROR ERROR ERROR\n"
  exit 1
} # Error


AssertSuper()
{
  if   [ ! -w /etc/passwd ]
  then echo "\nNOT SUPERUSER\n"
       Error
  fi
} # AssertSuper


AssertDir()
{
  case $1 in
       /*) slash=/;;
        *) slash=;;
  esac
  for dir in `echo $1 | tr / ' '`; do
      dir=${slash}$dir
      if   [ ! -d "$dir" ]
      then dir=`pwd`/$dir
	   echo "mkdir $dir"
		 mkdir $dir || Error
      fi
      cd $dir || Error
      slash=
  done
} # AssertDir

#
# ---------------------------------- MAIN ----------------------------------
#

AssertSuper

distBase=
while [ -z "$distBase" ]
do  default=/projects/bitsTape.$OS
    echo "Wohin mit den Daten ? [$default] \c";
    read distBase
    [ -z "$distBase" ] && distBase=$default
    if   [ -d "$distBase" ] || [ -w "$distBase" ]
    then echo "FEHLER !  '$distBase' existiert bereits !"
	 distBase=
    fi
done
export distBase

TAPE=
while [ -z "$TAPE" ]
do  default=/dev/exa
    echo "Laufwerk # [$default] \c";
    read TAPE
    [ -z "$TAPE" ] && TAPE=$default
    mt -f $TAPE rewind || TAPE=
done
export TAPE

VAU=V; export VAU

AssertDir $distBase
AssertDir $distBase/bin

mt -f $TAPE rewind || Error

#--- Install-Skripte
cd $distBase/bin   || Error
tar xvf $TAPE      || Error
./unpackTape $distBase $TAPE
