#!/bin/sh

for pkg in `pkg_info|cut -d" " -f 1`; do
# this means new record
  next="1"
  req=`pkg_info -R $pkg|grep -A 1 Req|grep -v Req`

  while [ $next -eq "1" ]; do
    if [ -z $req ]; then
      echo -n "Pakage $pkg. Delete y/n? (w for pkg comment, q for quit) [n]: "
      read ans

      case $ans in
        'y')
            dres=`sudo pkg_delete $pkg`
            if [ $dres > 0 ]; then
              echo "Error deleting package! Fix it manually!"
              exit 1
            else
              echo "Deleted successfully!"
            fi
# deleted - give me next
            next="0"
          ;;

        'q')
            exit 0
          ;;

        'w')
            pkg_info -c $pkg | grep -A 1 "Comment:" | grep -v "Comment:"
            echo ""
            continue
          ;;

        'n')
# skip - give me next
            next="0"
          ;;

# skip - give me next
        '*')
            next="0"
          ;;
      esac
    fi

# skip - give me next
    next="0"
  done
done
exit 0