#!/bin/zsh

# print banner
cat >&2 <<EOF
SuggestDuplicates 1.2 - check for non-current installed versions
 (Copyright 2005 MJ Ray. Released under GNU GPL v2.)

EOF

action='RemoveProgram'

while [ -n "$*" ] ; do
  case "$1" in
    "-d")
      echo Setting debug
      debug=1 ;;
    "-keep")
      echo Disable rather than Remove
      action='DisableProgram' ;;
    *)
      echo "Usage: $0 [-d] [-keep]"
      exit 127 ;;
  esac
  shift
done

updates=""

# Iterate over installed programs, reading Current symlink
find /Programs/ -maxdepth 2 -mindepth 2 -name Current -printf '%P/%l\n' | \
  sort | sed -e 's|/| |g' | \
  while read prog cur ver junk ; do
    export prog
    for cver in $(find /Programs/$prog -maxdepth 1 -type d -printf '%P ') ; do
      [ -n "$debug" ] && echo " # D: Consider $prog $cver"
      # output a suggestion if a dir isn't the current version or a special
      case "$cver" in
        "$ver"|Settings|Current|Resources|Variable) ;;
        *)
          echo "'$action' $prog $cver #(current: $ver)(space used: $(du -sh /Programs/$prog/$ver 2>/dev/null|cut -f1))"
          updates="x$updates"
          ;;
      esac
    done 
  done

# output trailing banner
echo "--- End of list: $#updates suggested removal(s)" >&2