#!/usr/bin/perl

$II2PKGDIR = $ENV{"II2PKGDIR"};
$II2LOGLEVEL = $ENV{"II2LOGLEVEL"};
$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";

if (not $ENV{'TEXIPKGUSDEPRECATED'} eq 'YES') {
    if (${II2INSTALLDIR} =~ m|^/usr/local/teTeX|) {
	my $msg = "You are now configuring 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 configuring 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"`;
    }
}

checkPrerequisites( "MusixTeX");

if (not -d "${II2INSTALLDIR}/fonts/type1/public/musixtex") {
    ipkgwarn( "No MusixTeX found.\nI cannot configure a nonexistent MusixTeX. Bailing out...\n");
    exit( 1);
}

print "### ${PROGNAME}: Preparing TeX for MusixTeX configuration...\n";

ipkgsystem( "${updmapcmd} --nomkmap --enable Map musix.map </dev/null");
print "### ${PROGNAME}: Configuring TeX to use MusixTeX. Please wait...\n";
ipkgsystem( "${updmapcmd} </dev/null");

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

exit( 0);

# $Id: musixtex.configure 110 2006-12-28 21:58:00Z gctwnl $