#!/usr/local/bin/bash

# Copyright (C) 1995, Mats Kindahl. All rights reserved.
# This program is in the public domain, you can redistribute
# it and/or modify it as long as this copyright notice is
# kept.
#
# This software is delivered as-is. There is NO WARRANTY, neither
# implicit nor explicit, for this code.
#
# E-mail: matkin@docs.uu.se
#
# Script to count the amount of "garbage" in each users
# directory. Will then generate bourne shell code which will send a
# nice little mail to each of the users in question.

# If you supply a directory, it is assumed to contain accounts for
# which garbage should be counted.

# Usage: count-garbage [ <directory> ]
#    <directory> is the directory where all the users directory are
#    located, default is /home/kay/docs.
count-garbage () {
    ls -s $(find $1 '(' -name '*~' -o -name '.*~' -o -name core ')' \
            -print 2>/dev/null) | 
      cut -c-4 |
      perl -ne '$n += $_; print $n if eof;'
}

# Usage: get-name <user>
#    Function that will get the real first name of <user>.
function get-name () {
    ypmatch ${1} passwd | {
	IFS=: read user pswd uid gid gcos dir shell
	set $gcos
	echo $1
    }
}

# Main program
cd ${1:-${HOME}/..}	# Default location to look

for user in *
do
  garbage=$(count-garbage ${user})
  name=$(get-name ${user})
  if [ "$garbage" -ge 200 ]
  then
    echo '# --------------------------------------------------------------'
    echo mail -s \"${garbage} kbytes of garbage\" ${user} "<<END_OF_MAIL"
    cat << EOT
Hi ${name}!

I have counted the disk occupied by the following type of files:

	1. files ending with "~" (emacs backup files)
	2. core files (from segmentations faults or bus errors)

that you have on your account. It sums up to ${garbage} kilobytes.

If you want to remove these files, there is a command 'sweep' that
will automatically removes all such files from your account. Just
execute it in a shell as follows ($ is the prompt):

	$ sweep

If you want to see what files it *would* remove, but without removing
them, just type:

	$ sweep -n

and sweep will print the names of the files without removing them.

There is a manual for sweep which you can see by typing 'man sweep' in
a shell.

Regards,
The Automatic Garbage File Sniffer.
END_OF_MAIL
EOT
  fi
done