Initial import of the CDE 2.1.30 sources from the Open Group.

cde/admin/BuildTools/master_build/manageBInstallDirs

@@ -0,0 +1,89 @@
+#! /usr/local/bin/perl
+
+eval "exec /usr/local/bin/perl -S $0 $*"
+    if $running_under_some_shell;
+
+################################################################################
+#
+# File:         manageBInstallDirs <source tree>
+# RCS:          $XConsortium: manageBInstallDirs /main/3 1995/10/30 13:43:53 rswiston $
+# Author:       Marc Ayotte Hewlett-Packard, OSSD-CV
+# Created:      Thu Dec 30 14:02:31 PST 1993
+# Language:     perl
+# Package:      N/A
+# Status:       CDE distributed
+#
+# (c) Copyright 1993, Hewlett-Packard Company, all rights reserved.
+#
+# Usage:        manageBInstallDirs <directory> <latestsubdir> [#dirsleft]
+#
+# Description:  This script removes excessive binstall directories of
+#               the type parentdir/mm_dd (month day).
+#               It also symbolically links the most recent subdirectory
+#               to parentdir/latest.
+#
+################################################################################
+if ($ARGV[1]) {
+	$tree = $ARGV[0];
+	$latestSubdir = $ARGV[1];
+}
+else {
+	die "USAGE manageBInstallDirs <parent directory> <latestsubdir> [# dirsleft]\n";
+}
+
+if (! chdir("$tree")) {
+	die "	ERROR -> Couldn't change directory to $tree.\n";
+}
+
+if ($ARGV[2]) {
+	$numDirsLeft = $ARGV[2];
+}
+else {
+	$numDirsLeft = 7;
+}
+
+#######################################################
+# define local subroutines
+#######################################################
+sub dokill {
+	die "\n	left on INTR \n";
+	exit 1;
+}
+########################################################
+# Catch signals
+########################################################
+$SIG{'INT'} = 'dokill';
+
+
+##################################################
+# get the mm_dd directories in oldest first order.
+# remove the oldest if there are more than minimum.
+##################################################
+@allDirs = (`ls -t`);
+$counter = 0;
+foreach $dir (@allDirs){
+	chop $dir;
+	$_ = $dir;
+	if (m%^[0-9][0-9]_[0-9][0-9]$% && -d $dir) {
+		if ($counter++ >= $numDirsLeft) {
+			print "removing $tree/$dir\n";
+			system "rm -rf $dir";
+		}
+	}
+}
+
+
+############################
+# link latestSubdir to latest
+############################
+if (-l "latest") {
+	print "linking $latestSubdir to \"latest\"\n";
+	system "rm -f latest";
+	system "ln -s -f $latestSubdir latest";
+}
+elsif(-d "latest") {
+	print "Error - directory \"latest\" is a real directory";
+}
+else { # create link
+	system "ln -s -f $latestSubdir latest";
+}