|
|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T u
Length: 736 (0x2e0)
Types: TextFile
Names: »usr/lbin/rmjunk «
└─⟦307897ef0⟧ Bits:30004042/core1.imd SW95705I 386/ix Multi-user Release 1.2
└─⟦this⟧ »usr/lbin/rmjunk «
#ident "@(#)sadmin:shell/rmjunk 1.3"
# remove files of dubious worth
# Removes all files that match the patterns listed in the filelist file
# starting at <starting-directory> (default /)
# that are more than <days> old (default 4).
#! chmod +x ${file}
if [ $# -lt 1 ]
then
echo >&2 "Usage: $0 filelist [ starting-directory ] [ days ]"
exit 1
fi
# generate list of -name arguments for find
if [ ! -r $1 ]
then
echo >&2 "$0: cannot read file '$1'"
exit 1
fi
names=`sed -n ' /^#/d
s/[ ]\{1,\}#.*//
/^[ ]*$/d
'" /./ s/.*/-o -name '&'/p
" $1 |
sed '1s/-o //'`
if [ -z "${names}" ]
then
echo >&2 "$0: no file names!"
exit 1
fi
eval find ${2:-/} -type f -atime +${3:-4} '\(' ${names} '\)' \
-print -exec rm {} '\;'