#!/usr/bin/perl

$II2PKGDIR = $ENV{"II2PKGDIR"};
$II2INSTALLDIR = $ENV{"II2INSTALLDIR"};
$II2RESOURCES = $ENV{"II2RESOURCES"};
$II2DOSERVER = $ENV{"II2DOSERVER"};
$II2BUILDSTAMP = $ENV{"II2BUILDSTAMP"};

if (${II2BUILDSTAMP} < 1167840304) {
    warn "### You need at least i-Installer 2.87 for this package. Bailing out...\n";
    exit 1;
}

$PROGNAME = `"${II2RESOURCES}/basename" "$0"`;
chomp( $PROGNAME);

print "### ${PROGNAME}: Started...\n";

my $arch = `uname -p`; chomp $arch;

$II2INSTALLGRANDPA = "$II2INSTALLDIR";
$II2INSTALLGRANDPA = `/usr/bin/dirname "$II2INSTALLGRANDPA"`;
chomp( $II2INSTALLGRANDPA);
$II2INSTALLGRANDPA = `/usr/bin/dirname "$II2INSTALLGRANDPA"`;
chomp( $II2INSTALLGRANDPA);

$ENV{"PATH"} = "${II2INSTALLGRANDPA}/bin/${arch}-apple-darwin-current:$ENV{'PATH'}";

$vartexmf=`kpsewhich --expand-var=\'\$VARTEXMF\'`;
chomp( $vartexmf);

if (not -w "${II2INSTALLDIR}") {
    warn "### ${PROGNAME}: LaTeX is not writable. Removal cannot proceed. Bailing out...\n";
    exit( 1);
}

print "### ${PROGNAME}: Removing LaTeX from this location. Please wait...\n";

system( "/bin/rm -f \"${vartexmf}\"/web2c/latex.*fmt");
system( "/bin/rm -f \"${vartexmf}\"/web2c/pdflatex.*fmt");

system( "/bin/rm -rf \"${II2INSTALLDIR}/tex/latex/base\"");
system( "/bin/rm -rf \"${II2INSTALLDIR}/tex/latex/graphics\"");
system( "/bin/rm -rf \"${II2INSTALLDIR}/tex/latex/cyrillic\"");
system( "/bin/rm -rf \"${II2INSTALLDIR}/tex/latex/tools\"");
system( "/bin/rm -rf \"${II2INSTALLDIR}/doc/latex/base\"");

warn "### ${PROGNAME}: Finished.\n";
print "### ${PROGNAME}: Finished.\n";

exit( 0);

# $Id: latex-update.prepare 75 2006-10-27 19:45:14Z gctwnl $