#!/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( "TeX Gyre");

$doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Really Remove TeX Gyre?" -I "Yes will completely remove TeX Gyre.\n\nChoose Cancel when in doubt." -1 "Cancel" -3 "Yes"`;
chomp( $doresult);

if (($? >> 8) == 0) {
    print "### ${PROGNAME}: Not removing TeX Gyre.\n";
}
if (($? >> 8) == 1) {
    print "### ${PROGNAME}: Configuring TeX not to use TeX Gyre...\n";
    ipkgsystem( "${updmapcmd} --nomkmap --disable qbk.map </dev/null");
    ipkgsystem( "${updmapcmd} --nomkmap --disable qpl.map </dev/null");
    ipkgsystem( "${updmapcmd} --nomkmap --disable qtm.map </dev/null");
    ipkssystem( "${updmapcmd} --nomkmap --disable qcs.map </dev/null");
    ipkgsystem( "${updmapcmd} --nohash");
    print "### ${PROGNAME}: Removing TeX Gyre. Please wait...\n";
    ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/*/*/*/tex-gyre");
    ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/*/*/tex-gyre");
    ipkgsystem( "${mktexlsrcmd} \"${II2INSTALLDIR}\"</dev/null");
}

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

exit( 0);

# $Id: texgyre.remove 109 2006-12-28 21:54:55Z gctwnl $