#!/usr/bin/perl

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

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

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

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

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

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

sub ipkgwarn
{
    my $msg = shift;
    warn "### ${PROGNAME}: ${msg}";
    my $doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Warning/Error." -I "${msg}" -1 "Accept"`;
    chomp( $doresult);
    return $doresult;
}

sub ipkgsystem
{
    my $cmd = shift;
    if (${II2LOGLEVEL} > 3) {
	warn "### ${PROGNAME}. Executing: \"${cmd}\"\n";
    }
    return system( ${cmd});
}

exit( 0);

# $Id: latex-update.prepare 118 2008-10-04 09:51:34Z gctwnl $