#!/usr/bin/perl

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

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

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

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

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

require "${II2PKGDIR}/texpkgs.sharedscript.pm";

checkPrerequisites( "ConTeXt");

if (${II2INSTALLDIR} =~ m|^/usr/local/teTeX|) {
    my $msg = "You are now installing in the location for de deprecated gwTeX 2003-2005 i-Package in part based on teTeX. This is probably not what you want. I suggest you make sure you have the gwTeX i-Package based on TeX Live installed. Then the best thing is to reset this i-Package to its default package properties. It will then pick up the new default location.";
    $doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Ar you sure you want to install in this location?" -I \"${msg}\" -1 "Yes" -2 "No"`;
    chomp( $doresult);
    if (($? >> 8) != 0) {
	print "i-Package process aborted at user request\n";
	exit 0;
    }
    `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Environment -E "TEXIPKGUSEDEPRECATED=YES"`;
}
if (${II2INSTALLDIR} =~ m|^/usr/local/TeXLive|) {
    my $msg = "You are now installing in the old location for gwTeX based on TeX Live. This is probably not what you want. I suggest you make sure your TeX i-Package has migrated to /usr/local/gwTeX, then the best thing is to reset this i-Package to its default package properties. It will then pick up the new default location.";
    $doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Ar you sure you want to install in this location?" -I \"${msg}\" -1 "Yes" -2 "No"`;
    chomp( $doresult);
    if (($? >> 8) != 0) {
	print "i-Package process aborted at user request\n";
	exit 0;
    }
    `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Environment -E "TEXIPKGUSEDEPRECATED=YES"`;
}

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

ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/bibtex/bst/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/fonts/hoekwater/koeieletters");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/fonts/urw/urwgothic/");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/scripts/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/adobe/utopia");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/bh/lucida");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/hoekwater/koeieletters");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/bitstrea/charter");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/jmn/hans");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/microsoft/arial");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/microsoft/verdana");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/public/antp");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/urw");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/*/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/truetype/hoekwater/lm/lmtypewriter10-regular.ttf");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/dvips/jmn");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/dvips/lm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/pdftex/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/pdftex/lm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/metapost/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/scripts/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tex/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tex/generic/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tex/latex/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/f-urwgothic.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/t-bib.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/t-bnf.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/t-lettrine.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/u-texshow.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/web2c/context.cnf");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/web2c/natural.tcx");

ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p bibtex/bst)");
#ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p doc/fonts/urw)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p doc/scripts)");
#ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p fonts/*/*/*)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p metapost)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p scripts)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p tex/*)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p tpm)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p web2c)");

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

exit( 0);

# $Id: context-update.prepare 106 2006-10-31 21:00:31Z gctwnl $