: # feed this into perl *-*-perl-*-*  
    eval 'exec perl -S $0 "$@"'
    if $running_under_some_shell;  

#
# Huuh, we are perl!
#
# Copyright (c) 1994 by Hochschulrechenzentrum der Universit"at Gie"sen
# All rights reserved.
#
# Author: Markus Porto
#         Markus Porto@physik.uni-giessen.de
#
# This software may be freely copied, modified, and redistributed
# provided that this copyright notice is preserved on all copies.
#
# You may not distribute this software, in whole or in part, as part of
# any commercial product without the express consent of the author.
#
# There is no warranty or other guarantee of fitness of this software
# for any purpose. It is provided solely "as is".
#
# Diese Datei wird zur Installation des TeX--Service benutzt. Bitte ver"andern
# Sie diese Datei *nicht*.
#
# Revision: 30. September 1994
#

# alles sofort schreiben
$|= 1;

print "
Deinstallationsprogramm des TeX--Service

Copyright (c) 1994 by Hochschulrechenzentrum der Universit\"at Gie\"sen
All rights reserved.

Author: Markus Porto
        Markus Porto@physik.uni-giessen.de

This software may be freely copied, modified, and redistributed
provided that this copyright notice is preserved on all copies.

You may not distribute this software, in whole or in part, as part of
any commercial product without the express consent of the author.

There is no warranty or other guarantee of fitness of this software
for any purpose. It is provided solely 'as is'.

Revision: 30. September 1944




Wenn Sie bereit sind fortzufahren, dr\"ucken Sie bitte die Return--Taste ...
";

getc;

print "
Deinstallationsprogramm des TeX--Service

Hallo, ich bin das Deinstallationsprogramm f\"ur den TeX--Service des
Hochschulrechenzentrums der Universit\"at Gie\"sen!

Falls ich eine Ihnen suspekte Aktivit\"at entwickele, k\"onnen Sie mich
jederzeit durch CTRL--C unterbrechen.















Wenn Sie bereit sind fortzufahren, dr\"ucken Sie bitte die Return--Taste ...
";

getc;

print "
Deinstallationsprogramm des TeX--Service

Wunderbar, dann kann es ja losgehen!

Ich w\"urde jetzt als n\"achstes die Konfigurations--Datei lesen.

















Wenn Sie bereit sind fortzufahren, dr\"ucken Sie bitte die Return--Taste ...
";

getc;

open( CONF, "Configuration");
while( <CONF>)
{
  s/#.*//;
  if( $_ ne "\n")
  {
    chop;
    s/\t+/ /;
    ( $name, $value)= split( / /, $_, 2);
    $configuration{"$name"}= $value;
  }
}
close( CONF);

print "
Deinstallationsprogramm des TeX--Service

Konfigurations--Datei gelesen.

Ich w\"urde jetzt als n\"achstes mit der Deinstallation beginnen.

















Wenn Sie bereit sind fortzufahren, dr\"ucken Sie bitte die Return--Taste ...
";

getc;

`/bin/rm -fr $configuration{'texservice'}/tex`;
`/bin/rm -fr $configuration{'cgibin'}/tex`;

print "
Deinstallationsprogramm des TeX--Service

Deinstallation abgeschlossen.




















";

