From owner-freebsd-ports@FreeBSD.ORG  Sun Jan 22 23:52:47 2006
Return-Path: <owner-freebsd-ports@FreeBSD.ORG>
X-Original-To: freebsd-ports@freebsd.org
Delivered-To: freebsd-ports@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 5F06D16A41F
	for <freebsd-ports@freebsd.org>; Sun, 22 Jan 2006 23:52:47 +0000 (GMT)
	(envelope-from randall@ucsb.edu)
Received: from isber.ucsb.edu (research.isber.ucsb.edu [128.111.147.5])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 1AEC943D5C
	for <freebsd-ports@freebsd.org>; Sun, 22 Jan 2006 23:52:47 +0000 (GMT)
	(envelope-from randall@ucsb.edu)
Received: from localhost ([127.0.0.1] helo=[192.168.0.103])
	by isber.ucsb.edu with esmtp (Exim 3.36 #2) id 1F0p0f-000P1S-00
	for freebsd-ports@freebsd.org; Sun, 22 Jan 2006 15:52:37 -0800
Message-ID: <43D41AC2.206@ucsb.edu>
Date: Sun, 22 Jan 2006 15:52:34 -0800
From: randall ehren <randall@ucsb.edu>
Organization: ISBER
User-Agent: Thunderbird 1.5 (Windows/20051201)
MIME-Version: 1.0
To: freebsd-ports@freebsd.org
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Scanner: exiscan *1F0p0f-000P1S-00*BtL7o8UxWnQ* (ISBER - Institute for
	Social, Behavioral, and Economic Research)
Subject: ports cleaning script
X-BeenThere: freebsd-ports@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Porting software to FreeBSD <freebsd-ports.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-ports>,
	<mailto:freebsd-ports-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-ports>
List-Post: <mailto:freebsd-ports@freebsd.org>
List-Help: <mailto:freebsd-ports-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-ports>,
	<mailto:freebsd-ports-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 22 Jan 2006 23:52:47 -0000

hi -
  a few years ago i wrote a small perl script to cleanup all ports that 
had a 'work' directory, aka a 'make clean'. it's quite simple, but i 
haven't found anything that does a similar thing.

cleanup_port_ports.pl:
#!/usr/bin/perl

####
###
## clean out the ports tree (remove all the 'work' directories)
# randall s. ehren 20001011

@works = `/usr/bin/find /usr/ports/ -name work`;
foreach $directory (@works) {
  print "removing $directory";
  `/bin/rm -r $directory`;
}


-- 
         :// randall s. ehren         :// voice 805.893.5632
         :// systems administrator    :// isber|survey|avss.ucsb.edu
         :// institute for social, behavioral, and economic research