ports cleaning script

[randall ehren]

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