#!/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";

if (${II2INSTALLDIR} eq "" or
    not (-e "${II2INSTALLDIR}/usr/local/bin/gv")) {
    print "### ${PROGNAME}: No ghostview found.\n";
    print "### ${PROGNAME}: I cannot remove a nonexistent ghostview. Bailing out gracefully...\n";
    `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Ghostview Unavailable" -I "It seems there is no ghostview in this location so I will not proceed to remove." -1 "OK"`;
    exit( 0);
}

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

print "### ${PROGNAME}: Removing ghostview (please wait) ...\n";

system( "rm -rf \"${II2INSTALLDIR}/usr/local/lib/gv\"");
unlink "${II2INSTALLDIR}/usr/local/bin/gv";
unlink "${II2INSTALLDIR}/usr/local/man/man1/gv.1";
unlink "${II2INSTALLDIR}/usr/X11R6/lib/X11/doc/html/gv.1.html";
unlink "${II2INSTALLDIR}/etc/X11/app-defaults/GV";

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

exit( 0);

# $Id: gv.remove 75 2006-10-27 19:45:14Z gctwnl $