mboxck

#!/bin/sh
#
# mboxck - look for large or old mailbox files
#
MAILSPOOL=/var/spool/mail	# mail spool directory
MAXSIZE=100			# max size in 512 byte blocks
MAXAGE=30			# max days since last access
#
HOST=`hostname`
TMP=/tmp/mboxck.$$
rm -f $TMP

if [ -f /vmunix ]; then		# get Berkeley df(1)
   DFCOMMAND=/bin/df		# if SunOS
else
   DFCOMMAND=/usr/ucb/df	# if SVR4
fi

cd $MAILSPOOL
if [ $? -ne 0 ]; then
   echo "Cannot access $MAILSPOOL directory on $HOST"
   exit
fi

#
# make sure the mail spool directory is physically on this host
#
x=`$DFCOMMAND . | grep "^/"`
if [ -z "$x" ]; then
   echo "$MAILSPOOL directory not local to $HOST"
   exit
fi

#
# make a list of the files that qualify
#

find * -type f -size +100 -o -atime +$MAXAGE -exec ls -l {} \; >$TMP

#
# report any results
#
n=`wc -l $TMP | awk '{print $1}'`
if [ $n -gt 0 ]; then
   echo " "
   echo "Old or large mailboxes on $HOST in $MAILSPOOL"
   echo " "
   sed 's/^/     /' $TMP
   echo " "
fi

rm -f $TMP

