DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T u

⟦1e105a5e0⟧ TextFile

    Length: 736 (0x2e0)
    Types: TextFile
    Names: »usr/lbin/rmjunk «

Derivation

└─⟦307897ef0⟧ Bits:30004042/core1.imd SW95705I 386/ix Multi-user Release 1.2
    └─⟦this⟧ »usr/lbin/rmjunk « 

TextFile

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