#!/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/X11R6/bin/transfig" or -e "${II2INSTALLDIR}/usr/X11R6/bin/xfig")) { print "### ${PROGNAME}: No Xfig or transfig found.\n"; print "### ${PROGNAME}: I cannot remove a nonexistent Xfig. Bailing out gracefully...\n"; `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Xfig Unavailable" -I "It seems there is no Xfig in this location so I will not proceed to remove." -1 "OK"`; exit( 0); } if (not -w "${II2INSTALLDIR}") { warn "### ${PROGNAME}: Ghostscript is not writable. Removal cannot proceed. Bailing out...\n"; exit( 1); } print "### ${PROGNAME}: Removing binaries (please wait) ...\n"; unlink "${II2INSTALLDIR}/usr/X11R6/bin/fig2ps2tex"; unlink "${II2INSTALLDIR}/usr/X11R6/bin/fig2ps2tex.sh"; unlink "${II2INSTALLDIR}/usr/X11R6/bin/pic2tpic"; unlink "${II2INSTALLDIR}/usr/X11R6/bin/transfig"; unlink "${II2INSTALLDIR}/usr/X11R6/bin/fig2dev"; unlink "${II2INSTALLDIR}/usr/X11R6/bin/xfig"; unlink "${II2INSTALLDIR}/etc/X11/app-defaults/Fig"; unlink "${II2INSTALLDIR}/etc/X11/app-defaults/Fig-color"; print "### ${PROGNAME}: Removing documentation and man pages (please wait) ...\n"; system( "rm -rf \"${II2INSTALLDIR}/usr/share/doc/xfig\""); unlink "${II2INSTALLDIR}/usr/X11R6/lib/X11/doc/html/fig2dev.1.html"; unlink "${II2INSTALLDIR}/usr/X11R6/lib/X11/doc/html/fig2ps2tex.1.html"; unlink "${II2INSTALLDIR}/usr/X11R6/lib/X11/doc/html/pic2tpic.1.html"; unlink "${II2INSTALLDIR}/usr/X11R6/lib/X11/doc/html/transfig.1.html"; unlink "${II2INSTALLDIR}/usr/X11R6/lib/X11/doc/html/xfig.1.html"; print "### ${PROGNAME}: Removing libraries and support (please wait) ...\n"; system( "rm -rf \"${II2INSTALLDIR}/usr/X11R6/lib/X11/xfig\""); warn "### ${PROGNAME}: Finished.\n"; print "### ${PROGNAME}: Finished.\n"; exit( 0); # $Id: xfig.remove 75 2006-10-27 19:45:14Z gctwnl $