blob: dbb92f0959e0d8264cb0209bcf85260cf7e5b98b (
plain)
- #!/bin/sh
- set -e
- PRG=$(basename "$0")
- exit1() {
- echo >&2 "ERROR: $1"
- exit 1
- }
- TEMP=$(getopt -s sh -o vqnh --long verbose,quiet,dry-run,help -n "$PRG" -- "$@") || exit1 "Internal getopt error"
- eval set -- "$TEMP"
- usage() {
- cat <<EOF >&2
- Usage: $PRG [opts...] USER [USER...]
- -v, --verbose increase verbosity
- -q, --quiet suppress non-error messages
- -n, --dry-run perform a trial run with no changes made
- -h, --help show this help
- EOF
- exit 0
- }
- VERBOSE=
- QUIET=
- DRY_RUN=
- while true ; do
- case "$1" in
- -v|--verbose) VERBOSE=1; shift;;
- -q|--quiet) QUIET=1; shift;;
- -n|--dry-run) DRY_RUN=1; shift;;
- -h|--help) usage;;
- --) shift; break;;
- *) exit1 "Internal getopt parsing error";;
- esac
- done
- warn() {
- [ -n "$QUIET" ] || echo >&2 "WARNING: $1"
- }
- info() {
- [ -n "$QUIET" ] || [ -z "$VERBOSE" ] || echo >&2 "INFO: $1"
- }
- remove_account() {
- [ -n "$DRY_RUN" ] || localrmaccount "$1"
- }
- for user in $@; do
- home=$(getent passwd "$user" | cut -d: -f6)
- if [ -z "$home" ]; then
- warn "Skipping user $user: failed resolving homedir"
- elif [ -e "$home/.forward" ]; then
- warn "Skipping user $user: Email gets forwarded"
- elif [ ! -d "$home/Maildir" ]; then
- warn "Skipping user $user: Missing Maildir"
- elif find "$home/Maildir/new" -maxdepth 0 -type d -mtime +365 | grep -q .; then
- info "Removing user $user: Maildir INBOX/new untouched for a year"
- remove_account "$user"
- elif find "$home/Maildir/cur" -maxdepth 0 -type d -mtime +365 | grep -q .; then
- info "Removing user $user: Maildir INBOX/cur untouched for a year"
- remove_account "$user"
- elif find "$home/Maildir/new" -type f -mtime +365 | grep -q .; then
- info "Removing user $user: new mail in INBOX untouched for a year"
- remove_account "$user"
- else
- info "Skipping user $user"
- fi
- done
|