Usenet 1994 October/usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso/misc/volume3/core_notice

Internet Message Format | 1989-02-03 | 3KB

Path: xanth!mcnc!uvaarpa!umd5!brl-adm!cmcl2!nrl-cmf!ames!necntc!ncoast!allbery
From: [e-mail]
Newsgroups: comp.sources.misc
Subject: v03i013: Mail users about old files
Message-ID: <[e-mail]>
Date: 9 May 88 13:14:20 GMT
Sender: [e-mail]
Reply-To: [e-mail]
Lines: 102
Approved: [e-mail]

comp.sources.misc: Volume 3, Issue 13
Submitted-By: "A. Nonymous" <[e-mail]>
Archive-Name: core_notice

We run this script weekly.
It will need minor tweaking for other sites, but it's not really
BSD or USG dependent.

    /r$


#To unpack, delete all lines before this and feed to /bin/sh
echo core_notice 1>&2
sed -e 's/^X//' >core_notice <<'END'
X#! /bin/sh
X##
X##  Script to find old core, etc., files and send mail to their owners.
X##  It assumes your find has the "-xdev" option to not cross mount
X##  points.  It would like to use System V "xargs" command, but can
X##  use the BSD "fmt" command as a hack, instead.  Also check the mail
X##  commands, below.
X##
X##  The file core_errs will contain any errors; core_ls will be the full
X##  list of old and bogus files.
X##
X
X##  Setup.
Xcd /usr/adm
XPATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin
XHOST=`hostname`
Xrm -f core_ls core_errs core_unknown
X
X##  If first argument is "-i" then we're interactive.
Xif [ "x$1" = "x-i" ] ; then
X    shift
Xelse
X    exec 2>core_errs
Xfi
X
X##  Optional next argument is how old files should be before we complain.
XAGE=${1-5}
X
X##  Cute trick to get list of directly-mounted filesystems, only.
XFILESYSTEMS=`df | awk '$1 ~ /^\/dev\// {print $6}'`
X
X##  You might want to tweak the predicates in here.
Xfind ${FILESYSTEMS} \( \
X        -name core -o -name a.out \
X        -o -name 'drft.[0-9]*' \
X        -name 'msg[0-3][0-9][JFMASOND]*' \
X        -o -name ',*' \
X        -o -name '#*' -o -name '.#*' \
X        -o -name '*~' -o -name '.*~' \
X        -o -name '.tpen*' \
X    \) -a -xdev -a -mtime +${AGE} -print \
X    | fmt -200 | sed -e 's@^@/bin/ls -l @' | sh >core_ls
X#  If you have xargs, it is more efficient.
X#   | xargs /bin/ls -l >core_ls
X
X##  Unlikely, but maybe we didn't find anything.
Xif [ ! -s core_ls ]; then
X    exec rm -f core_ls
Xfi
X
X##  Assuming a standard "ls", third field is the users.  Loop over list
X##  of all badguys.  The funky grep commands ignore filenames; be careful
X##  if your "ls -l" uses tabs.
Xfor c in `awk '{print $3}' <core_ls | sort -u` ; do
X    case $c in
X    _*|[0-9]*)
X    grep " $c " core_ls >>core_unknown
X    ;;
X    *)
X    (
X        echo "You have the following old files on the ${HOST}:"
X        grep " $c " core_ls
X        echo "which are greater than ${AGE} days old."
X        echo ''
X        echo 'If you are finished with them, it would be nice to remove'
X        echo 'them, freeing up the disk space.'
X        echo ''
X        echo 'Thanks,'
X        echo ''
X        echo "The Filesystem on ${HOST}"
X        echo ''
X    ) | \
X        Mail -s "Old files on ${HOST}" $c
X# We use sendmail; MMDF is probably this:
X#        v6mail -to $c -subj "Old files on ${HOST}"
X    ;;
X    esac
Xdone
Xif [ -s core_unknown ] ; then
X    (
X    echo "Found unknown old files on ${HOST}:"
X    cat core_unknown
X    ) | \
X    Mail -s "${HOST}: No owner for these ancient files." root
X# We use sendmail; MMDF is probably this:
X#    v6mail -to root -subj "${HOST}: No owner for these ancient files."
Xfi
END