source: trunk/packs/maint/clean_tmp_areas.sh @ 10130

#!/bin/athena/tcsh -f
#
# This script is intended to replace the following "finds" which were
#       intended to clean up /tmp, /usr/tmp and some other areas.
#
#       $Source: /afs/dev.mit.edu/source/repository/packs/maint/clean_tmp_areas.sh,v $
#       $Author: danw $
#       $Header: /afs/dev.mit.edu/source/repository/packs/maint/clean_tmp_areas.sh,v 1.8 1997-06-03 22:45:08 danw Exp $
#
# 05 1 * * *    root    find /tmp -atime +1 -exec rm -f {} \;
# 10 1 * * *    root    cd /tmp; find . ! -name . -type d -mtime +1 -exec rm -r {} \;
# 15 1 * * *    root    find /usr/tmp -atime +2 -exec rm -f {} \;
# 20 1 * * *    root    cd /usr/tmp; find . ! -name . -type d -mtime +1 -exec rmdir {} \;
# 10 4 * * *    root    (cd /usr/spool/rwho; find . -name whod.\* -mtime +7 -exec rm -f {} \;)
# 15 4 * * *    root    (cd /usr/preserve; find . -mtime +7 -a -exec rm -f {} \;)
#
# It was discovered that on systems which do not have a /usr/tmp, and are
#       idle much of the time, such as VS2 workstations, the "05 1" & "10 1"
#       lines will delete everything in /tmp.  This allows the "20 1" line
#       to delete /tmp, since there is no /usr/tmp.  This allows "10 1" to
#       delete EVERYTHING on the disk which has not been accessed in 24
#       hours.  AAAAAAAARRRRRRRRGGGGGGGGHHHHHHHH!!!!!!!! From Berkeley.
set dirs =    ( /tmp/           /usr/tmp/       /usr/spool/rwho/ \
                /usr/preserve/)
set timeout = ( "-atime +1"     "-atime +2"     "-mtime +3" \
                "-mtime +3")

set xdev = -mount
set exceptions = "! -type b ! -type c"

switch($hosttype)
        case sun4:
                set exceptions = "$exceptions ! -type p ! -name ps_data"
                breaksw
        case sgi:
                set exceptions = "$exceptions ! -type p ! -type s ! -user root"
#                       ! -type s ! -name .ps_data ! -name .cadmin*
#                       set noglob (for .cadmin*)
                breaksw
        case decmips:
                set exceptions = "$exceptions ! -type s"
                breaksw
        case rsaix:
                set exceptions = "$exceptions ! -type s"
                set xdev = -xdev
                breaksw
        default:
endsw

set j = 1
foreach i ($dirs)
        if ( -d $i ) then
                cd $i
                find . $xdev $timeout[$j] $exceptions -exec rm -f {} \; -print
                find . $xdev -depth ! -name . -type d -mtime +1 -exec rmdir {} \; -print
        endif
@ j++
end