Date: Thu, 29 Apr 1999 12:03:30 +0000 From: Neil Blakey-Milner <nbm@mithrandr.moria.org> To: Maxim Sobolev <sobomax@altavista.net> Cc: ports@FreeBSD.ORG Subject: Re: Usefull script to clean /usr/ports/distfiles. Testers neded Message-ID: <19990429120329.A82884@rucus.ru.ac.za> In-Reply-To: <37242D15.77938D17@altavista.net>; from Maxim Sobolev on Mon, Apr 26, 1999 at 12:08:38PM %2B0300 References: <37241D4B.C9DC6FD2@altavista.net> <19990426105508.A30028@rucus.ru.ac.za> <37242D15.77938D17@altavista.net>
next in thread | previous in thread | raw e-mail | index | archive | help
On Mon 1999-04-26 (12:08), Maxim Sobolev wrote: > It would be great, because I'm not very proof in perl programming ;(. Maybe > after some fining we should make some sort of port like mergemaster! http://rucus.ru.ac.za/~nbm/distclean.pl It has three major options: -n doesn't do any md5 checks, which take ages. -o only looks for md5 differences. -d doesn't actually delete anything. It takes two optional arguments - the first the ports directory, which defaults to /usr/ports, and the second the distfiles directory, which defaults to $portsdir/distfiles. It does only one traversal if $portsdir/distfiles is actually physically under $portsdir (ie, not a symlink). It also takes care of symlinks for /usr/ports and /usr/ports/distfiles, which was a problem I discovered with your version (I think). It doesn't use any temporary files, or call any other programs except "md5". It uses the Cwd module, which comes with the standard perl install, and find.pl, which does too. Neil -- Neil Blakey-Milner nbm@rucus.ru.ac.za To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-ports" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?19990429120329.A82884>