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

# Check if there's a common apps area (e.g. merged Young/Michael)
[[ -d "${moduledirs_path}/../common" ]] \
&& moduledirs_path="${moduledirs_path}/../common"

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

num_dirs="${#dirs_to_remove[@]}"

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

while :; do
  read -r -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