#!/bin/sh

# Uninstallation script
# Peter Guntert, 14-01-1999

log=etc/installed

if [ ! -f $log ]; then exit; fi
awk -F, 'NF==2' $log | sort -u > $log.tmp
mv $log.tmp $log; rm -f $log.tmp

for k in 1 2; do

  for i in `cat $log`; do
    bindir=`echo $i | sed 's/,.*//'`
    libdir=`echo $i | sed 's/.*,//'`
    n=`ls -d $bindir/cofima $bindir/difima \
             $bindir/ancoma $libdir 2>/dev/null |\
       awk 'END { print NR }'`
    if [ $n -gt 0 ]; then echo $i >> $log.tmp; fi
  done
  if [ ! -f $log.tmp ]; then rm -f $log; exit; fi
  mv $log.tmp $log; rm -f $log.tmp

  binasked=""; libasked=""
  if [ $k -eq 1 ]; then
    for i in `cat $log`; do
#      echo $i
      bindir=`echo $i | sed 's/,.*//'`
      n=`echo $binasked | grep -c $bindir`
      if [ $n -eq 0 ]; then
        n=`ls -d $bindir/cofima $bindir/difima \
                 $bindir/ancoma 2>/dev/null |\
           awk 'END { print NR }'`
        if [ $n -gt 0 ]; then
          binasked=$binasked,$bindir
          echo "Remove executables from $bindir [n]? " |\
          awk '{printf("%s",$0)}'; read answer;
          if [ "$answer" = "y" ]; then
            rm -f $bindir/cofima $bindir/difima $bindir/ancoma
          fi
          n=`ls $bindir/* 2>/dev/null | awk 'END { print NR }'`
          if [ $n -eq 0 ]; then
            echo "$bindir is empty. Remove it [n]? " |\
            awk '{printf("%s",$0)}'; read answer;
            if [ "$answer" = "y" ]; then rmdir $bindir; fi
          fi
        fi
      fi
      libdir=`echo $i | sed 's/.*,//'`
      n=`echo $libasked | grep -c $libdir`
      if [ $n -eq 0 ]; then
        if [ -d $libdir ]; then
          libasked=$libasked,$libdir
          echo "Remove directory $libdir [n]? " |\
          awk '{printf("%s",$0)}'; read answer;
          if [ "$answer" = "y" ]; then
            rm -rf $libdir
          fi
        fi
      fi
    done
  fi

done

