|
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 {} '\;'