# ##############################################################
#    " m a k e t a r "   V 1.0 (12.3.91)
#
#    w) W. Moehle    c) iX, Heise Verlag
# ##############################################################
clear
echo "==============================================="
echo "A n l e g e n   v o n   T A R - A r c h i v e n"
echo "==============================================="
echo
echo "Bitte Tape einlegen - danach RETURN"
read dummy                            # Script anhalten
echo "Band wird zurueckgespult"
/usr/lib/tape/scsicntl -w             # Band zurueckspulen
echo
echo "Inhalts-Datei wird erstellt"
inhalt=inhalt$$
rett=rett$$
find . -name "*" -print > $inhalt     # rekursiver Inhalt
sed -e "/$inhalt/d" $inhalt > $rett   # zeile ./$inhalt entfernen
sed -e "s/^\.\$/.\/$inhalt/" $rett > $inhalt # erste Zeile gegen
rm $rett                                     # ./$inhalt tauschen
echo
echo "Archive werden aufgespielt"
for i in `cat $inhalt`                # Dateinamen aufloesen
  do
  tar cf /dev/rmt/c1s0n $i            # Dateien auf Band schreiben
  done
rm $inhalt                            # wird nicht mehr gebraucht
echo
echo "Band wird zurueckgespult"
/usr/lib/tape/scsicntl -w             # Band zurueckspulen
echo
echo "Tape kann entnommen werden"