remove_old_moduledirs

#!/usr/bin/env bash

become_path=/shared/ucl/sysops/bin/become
moduledirs_path=/shared/ucl/apps

if (id -Gn | grep -v '\bccsprcop\b') && (whoami | grep -v ccspapp); then
  echo "Error: user should be in ccsprcop group to use this script." >&2
  exit 1
fi

if (whoami | grep -v ccspapp); then
  echo "Becoming ccspapp and re-running..." >&2
  $become_path ccspapp <<EOF
  $0 "$@"
EOF
  exit
fi
  

# v-- gets a list of all directories named .mf_* created more than 7 days ago
dirs_to_remove=`find -L $moduledirs_path -maxdepth 1 -type d -name ".mf_*" -ctime +7`

num_dirs=`echo "$dirs_to_remove" | wc -l`

if [ $num_dirs -eq 0 ]; then
  echo "No directories found." >&2
  exit
fi

while :; do
  read -n 1 -p "This will delete $num_dirs directories. Are you sure you want to continue? [Y|N|(L)ist] " prompt_response

  case "${prompt_response,,*}" in
    "y")
      for i in $dirs_to_remove; do
        if [ ! -a $i/.keep ]; then
          'rm' -vRf $i
        else
          echo "Not deleting $i : .keep file found"
        fi
      done
      exit
      ;;
    "n")
      echo "Okay, doing nothing."
      exit
      ;;
    "l")
      'ls' -lrtd $dirs_to_remove
      ;;
    *)
      echo "Invalid response. Please choose one of y, n, or l."
      ;;
  esac

done