A Guide for the Survival of Humankind, and Improving the World, Society, and Yourself!

Popular Articles

Reasons For and Against
Human Cloning

Globalization of the USA

The Pros and Cons of
Capital Punishment

World's Stupidest Game

Latest Articles

How to Help Humanity

Why Economists Miss the Mark

Daylight Saving Time

Natural Log Proof

Subscribe to

Main Menu

HOME

SAVE HUMANITY (42)

HELP THE WORLD (96)

IMPROVE GOVERNMENTS (87)

PERSONAL DEVELOPMENT (238)

COMPUTER HELP (125)

ARCHIVE (all articles)

SEARCH THIS SITE

CONTACT US

DISCLAIMER

PLEASE HELP: DONATE

ClearCase Support: Recursively Make Elements

If you need to recursively make elements or import data into a ClearCase VOB, then you can run this small UNIX Perl script to do just that. The benefit of this script, versus the tools that come with ClearCase, is that the user does not have to be VOB owner to import data. Any user account that has write access to a VOB or directory can use this Perl script. Unfortunately, this script can be slow for an extremely large amount of data, yet it is completely automated.

Here is how to run this script from the UNIX command line. Keep in mind that the data would need to have been already copied to the View in the exact location of the VOB where the dta will be added.

*$ re_mkelem.pl* <NEW_ELEMENT_1> [NEW_ELEMENT_2] ...**

For instance, if you want to add to source control the directory "/vob/tools/ABC" and all the data in this directory, no matter how many recusive sub-directories there are, then you can run these commands:

$ cd /vob/tools/ $ re_mkelem.pl ABC

You can download this Perl script here, or you can copy-n-paste from here:

#!/usr/local/bin/perl
 
  
 # This script was written for www.philforhumanity.com.
 # If you have any questions, issues, or enhancement requests, please contact us via the website. 
 # Use this script at your own risk.
  
  
 
 # Variable declarations
 my $CP = "/bin/cp";
 my $CT = "/usr/atria/bin/cleartool";
 my @directories = ();
 my @elements = ();
 my @files = ();
 my $FIND = "/bin/find";
 my $line;
 my $MV = "/bin/mv";
 my $RM = "/bin/rm";
 
 
 # If no arguments, then display error
 if ($#ARGV == -1)
 {
   die "\nERROR: You must specify at least one file or directory to recursively mkelem.\n\n";
 }
 
 
 # For each user argument, get recursive list of new elements to be created
 for ( ; @ARGV; shift(@ARGV))
 {
   if (-e $ARGV[0])
   {
   	@elements = (@elements, `$FIND \"$ARGV[0]\" -print`);
   }
   else
   {
   	die "\nERROR: File or directory \"$ARGV[0]\" does not exist.\n\n";
   } 
 }
 
 
 # Sort the list of new elements
 @elements = sort @elements;  # We may want to sort uniquely
 
 
 # We must process all the directories first, then do the files, so separate elements between directories and files
 foreach $line (@elements)
 {
 	chomp $line;
 	if (-d "$line")
 	{
 		@directories = (@directories, $line);
 	}
 	else
 	{
 		@files = (@files, $line);
 	}
 }
 
 
 # Check out the current directory
 print "1) Checking out the parent directory.\n";
 print `$CT co -nc .`;
 
 
 # Add directories to source control first
 print "2) Processing each directory.\n";
 foreach $line (@directories)
 {
 	# Back up directory
   print `$MV \"$line\" \"$line.tmp\"`;
   # Make a directory element, but leave it checkedout
 	print `$CT mkelem -eltype directory -nc \"$line\"`;
   # Copy all the contents of the directory back in the original directory
  	print `$CP -r \"$line.tmp\"/\* \"$line/\"`;  # Ignore errors from empty directories
   # Delete tmp folder
   print `$RM -rf \"$line.tmp\"`;
 }
 
 
 # Add files to source control next
 print "3) Processing each file.\n";
 foreach $line (@files)
 {
   # Make a directory element, but leave it checkedout
 	print `$CT mkelem -nc -ci \"$line\"`;
 }
 
 
 # Finally, check in all directories now that all elements have been added to source control
 print "4) Checking in each directory.\n";
 foreach $line (@directories)
 {
 	print `$CT ci -nc \"$line\"`;
 }
 
 
 # Check in the current directory
 print "5) Checking in the parent directory.\n";
 print `$CT ci -nc .`;
 
 
 # Exit
 exit 0;

This script was written for www.philforhumanity.com.

by Phil B.

Related Articles » ClearCase Support: How to Copy Data into a VOB » ClearCase Support: How to Copy VOB Data » ClearCase Support: How to Backup a VOB

A Guide for the Survival of Humankind, and Improving the World, Society, and Yourself!

ClearCase Support: Recursively Make Elements

Related Articles » ClearCase Support: How to Copy Data into a VOB » ClearCase Support: How to Copy VOB Data » ClearCase Support: How to Backup a VOB

Related Articles
» ClearCase Support: How to Copy Data into a VOB
» ClearCase Support: How to Copy VOB Data
» ClearCase Support: How to Backup a VOB