Usenet 1994 October/usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso/misc/volume7/scavenge.ksh

Text File | 1989-06-03 | 8.4 KB | 279 lines

Newsgroups: comp.sources.misc
Subject: v07i014: scavenge.ksh: clean up old files in /tmp (MKS)
From: [e-mail] (Brandon S. Allbery - comp.sources.misc)
Reply-To: [e-mail] (Norman H. Azadian)

Posting-number: Volume 7, Issue 14
Submitted-by: [e-mail] (Norman H. Azadian)
Archive-name: scavenge.ksh

Here is a tool I use on my PC running under the MKS Toolkit.
This shell script could presumably be adapted quite simply to run
under any unix, although the need for it would be less on a real unix.

[You think.  Of course, most people on the Usenet are intelligent enough
not to install applications in /tmp; the people *I* have to hand-hold aren't.
Cleaning up /tmp is a real project on *their* systems.  ++bsa]

Being the cautious type, I generally put unwanted files in /tmp.  Later,
when I need disk space, I run this tool to actually delete the oldest
of those files.  It also knows enough to look in other places where I
keep old, expendable, files.

As a cautious type, I've built in all manner of safeguards and options
to allow me to see what's going to be deleted, and to give me a veto.
The basic operation of the tool, however, is quite simple.  When
invoked with no argument, it reports the number of KBytes which
could be recovered by deleting old files.  When invoked with a number,
it will delete just enough old files to increase the available disk
space by that many KBytes.

The -L option allows you to review the list of termination candidates,
using the pager named in your PAGER environment variable.  Failing
such a variable, it will use a default.  I currently have the default
set to my own hacked version of less.  A more reasonable choice for
most people would be the pg.exe program that comes with the toolkit.

BUG NOTE:  It is supposed to delete the files in chronological order.
In my version 2.2d of the Toolkit, the -t option of ls does not
work correctly, and so files are not deleted in chronological order.
If you have a newer version, it might work for you.

#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#    scavenge.ksh
# This archive created: Thu May 25 14:28:15 1989
# By:    Norman H. Azadian (Hasler AG)
export PATH; PATH=/bin:$PATH
echo shar: extracting "'scavenge.ksh'" '(5625 characters)'
if test -f 'scavenge.ksh'
then
    echo shar: will not over-write existing file "'scavenge.ksh'"
else
cat << \SHAR_EOF > 'scavenge.ksh'
#    /usr/bin/scavenge.ksh    890523    NHA
# With no parameters, simply reports the number of KBytes in expendable files.
# With 1 parameter, prepares a list of temporary files to delete such that
#  that number of KBytes will be freed up on the disk.
# The -Fspec option allows the user to prepend filespecs to fileSpec.
# The -I option makes the selection process Interactive.
# The -L option shows the list of files that can/will be deleted.
# The -V option makes all output verbose.
# Exit status is always 0 for success, otherwise 1.
# At present only the last filespec suggested by the user will be processed.

# Files are selected for deletion in line with the following priorities:
#   1) minimize the number of directories (filespecs) affected.
#   2) maximize the age of the files deleted.
##NOTE THAT IN VERSION 2.2D OF THE TOOLKIT, THE -T OPTION OF LS IS BROKEN.
##THEREFORE THE ORDER OF DELETION MIGHT NOT BE OPTIMAL.


# User-definable constants
##typeset defaultPager='pg'
##typeset defaultPrompt='-p__h_for_help,___q_to_continue_______________Page_%d'
typeset defaultPager='less -aVh_for_help,___v_to_edit,___q_to_continue'
typeset defaultPrompt='-aVh_for_help,___v_to_edit,___q_to_continue'
#filespecs must be put in an array, one spec per array element.
typeset fileSpec
fileSpec[1]='/tmp/*'
fileSpec[2]='/file[0-9][0-9][0-9][0-9].chk'
fileSpec[3]='/usr/obsolete/*'


# Internal constants and variables
typeset -i blocksPerKByte=2                    #2 blocks per KByte
typeset -i Vopt=0 Iopt=0 Lopt=0                # -V and -I and -L option flags
typeset masterList=/tmp/__scav__.tmp        #master list of gleanable files
typeset tmpFile=/tmp/__temp__.tmp            #temporary file
typeset usrFileSpec=" "                        #user filespec gets stashed here


#parse command line
typeset -i requested=0
for arg
do
    case $arg in
        -[iI])    Iopt=1
                ;;
        -[vV])    Vopt=1
                ;;
        -[fF]*)    usrFileSpec=${arg#-[fF]}
                ;;
        -[lL]*)    Lopt=1
                ;;
        [0-9]*)    requested=$arg
                ;;
        *)        cat <<-\FOOBIE_BLETCH
                scavenge -- free up disk space by deleting temporary files
                usage:  scavenge  [-Fspec]  [-I]  [-L]  [-V]   [kbytes]
                -Fspec    spec is pre-pended to list of expendable filespecs
                -I      Interactive file selection
                -L      List of eligible files is shown
                -V      Verbose outputs
                kbytes  number of KBytes to recover.  default 0

                If  kbytes  is not given, nothing will be deleted.
                FOOBIE_BLETCH
                exit 1
                ;;
    esac
done
##echo "Iopt=$Iopt   Lopt=$Lopt   Vopt=$Vopt   requested=$requested"


#initialize master listing file
if test   $Lopt -ne 0   -a   $Vopt -ne 0
then
    echo 'BLKS PERMISSION LNK BYTES  DATE  TIME  FILENAME'  >$masterList
    echo '==== ========== == ====== ====== ===== ========================================' >>$masterList
else
    rm  -f  $masterList
fi


#Draw up the master list of candidates.
#    "If one day it should happen that a victim must be found,"
#    "I've got a little list..."     -- Lord High Executioner from "The Mikado"
# first the user-suggested filespec
if test -r  `echo $usrFileSpec | cut -d" " -f1`
then
    #build sorted list  |  remove "total" line  |  remove directories
    ls.exe -trlsd $usrFileSpec  |  egrep -v '^total [0-9]+'  | \
                                        egrep '^[\ 0-9]+\ \-'  >>$masterList
fi
# then all the built-in filespecs
typeset -i i=1
while (( i < ${#fileSpec[*]} ))
do
    if test -r  `echo ${fileSpec[i]} | cut -d" " -f1`
    then
        #build sorted list  |  remove "total" line  |  remove directories
        ls.exe -trlsd ${fileSpec[i]}  |  egrep -v '^total [0-9]+'  |  \
                                        egrep '^[\ 0-9]+\ \-'  >>$masterList
    fi
    let i=i+1
done


#Handle the -L option
if test $Lopt -ne 0
then
    if test -z "$PAGER"
    then
        $defaultPager  $defaultPrompt   $masterList
    else
        $PAGER  $masterList
    fi
    if test $Vopt -ne 0
    then                                        #get rid of header lines
        tail +2 $masterList  >$tmpFile
        mv  $tmpFile  $masterList
    fi
fi


typeset blocks permissions links       month     timeYear name reply
typeset -R8 bytes
typeset -R2 day
typeset -i neededBlocks neededKB


#Handle case where only a report is wanted.
if ((requested == 0))
then
    while read -r blocks permissions links bytes month day timeYear name
    do
        ((neededBlocks = neededBlocks + blocks))
    done <$masterList
    ((neededKB = neededBlocks / blocksPerKByte))
    if ((Vopt == 0))
    then
        echo $neededKB
    else
        echo "$neededKB KBytes are eligible for scavenging."
    fi
    exit 0
fi


#bail out if there's nothing available
if test ! -s $masterList
then
    if test $Vopt -ne 0
    then
        echo "scavenge: no files to scavenge."
    fi
    exit 1
fi


#Now for the delicate task of deciding who gets the axe.
neededBlocks=`expr $requested '*' $blocksPerKByte`
while test $neededBlocks -gt 0
do
    while read -r blocks permissions links bytes month day timeYear name
    do
        if test $Iopt -ne 0
        then
            if test $Vopt -ne 0
            then
                echo "Delete $bytes $month $day $timeYear $name\t[Nyq] ? \c"
            else
                echo "$name\t[Nyq] ? \c"
            fi
            reply=`line` </dev/con
            reply=${reply:=No}                #empty line means "No"
        else
            reply=Yes
        fi
        if test -z "${reply##[qQ]*}"
        then
            break;                            #bail out
        fi
        if test -z "${reply##[yY]*}"
        then
            ((neededBlocks = neededBlocks - blocks))
            if test $Vopt -ne 0
            then
                let 'neededKB = neededBlocks / blocksPerKByte'
                echo "deleting $name -- $neededKB KBytes to go"
            fi
            rm $name
            if test $neededBlocks -le 0
            then
                break
            fi
        fi
    done <$masterList

    if test $Vopt -ne 0   -a   $neededBlocks -gt 0
    then
        neededKB=`expr $neededBlocks '/' $blocksPerKByte`
        echo "scavenge: still need to eliminate $neededKB KBytes"
        echo "scavenge: hit carriage return to continue, ^C to quit"
        line
    else
        exit 0
    fi
done
SHAR_EOF
if test 5625 -ne "`wc -c < 'scavenge.ksh'`"
then
    echo shar: error transmitting "'scavenge.ksh'" '(should have been 5625 characters)'
fi
fi # end of overwriting check
#    End of shell archive
exit 0

NHA
===
PAPER:  Norman Azadian; Hasler AG; Belpstrasse 23; 3000 Berne 14; Switzerland
X.400:  [e-mail]
UUCP:   ...{uunet,ukc,mcvax,...}!cernvax!hslrswi!azadian
VOICE:  [phone]            BITNET: [e-mail]