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

UNIX Support 3

Saving Money versus Saving Time

ClearCase Support 53

ClearCase Support 52

Subscribe to

Main Menu

HOME

SAVE HUMANITY (36)

HELP THE WORLD (85)

IMPROVE GOVERNMENTS (75)

PERSONAL DEVELOPMENT (193)

COMPUTER HELP (56)

ARCHIVE (all articles)

CONTACT US

DISCLAIMER

PLEASE HELP: DONATE

ClearCase Support: Check In and Label at the Same Time

Have you ever wanted to check-in a file into ClearCase while at the same time label the new version too? Wait no longer. With a single command and using the script below, you can automatically check-in any set of ClearCase elements and then label the newly checked in versions that were just created with a single label.

Here are the two most common ways that you can use this Perl script to check-in and label elements.

$ cil.pl <LABEL> <ELEMENT1> [ELEMENT2] [ELEMENT3] ... $ cat <LIST_OF_ELEMENTS_IN_A_FILE.txt> \| cil.pl <LABEL> ...

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.
 
 
 # Number of arguments
 my $number_of_arguments = scalar(@ARGV);
 
 
 # Checking to make sure there is at least 1 argument
 if ($number_of_arguments == 0)
 {
   print "ERROR: Incorrect number of arguments!\n";
   print "USAGE: cil.pl  <LABEL>  <ELEMENT1>  [ELEMENT2]  [ELEMENT3]  ...\n";
   print "                             or\n";
   print "       cat  <LIST_OF_ELEMENTS_IN_A_FILE.txt>  |  cil.pl  <LABEL>  ...\n\n";
   print "       If <ELEMENT1> equals \"lspriv\", then all checked out files in the View\n\twill be checked in and labeled.\n";
   print "       If <ELEMENT1> equals \"lsco\", then all checked out elements (files and\n\tdirectories) in the View will be checked in and labeled.\n\n";
   exit 1;
 }
 
 
 # Define some variables
 my $count = 1;
 my $element;
 my $label = $ARGV[0];     # The first argument must be the ClearCase label, so save it.
 shift(@ARGV);             # Remove the first argument from the argument list, so only elements remain.
 my @list_of_elements = ();
 my @list_of_versions = ();
 my @temp;
 my @temp2;
 my $version;
 
 
 # Get the list of elements from the rest of the command line arguments.
 for ( ; @ARGV; shift(@ARGV))
 {
   $element = $ARGV[0];
   
   # If the argument equals "lspriv", then automatically get all files that are checked out in the current View.
   if ($element eq "lspriv")
   {
     @temp = `/usr/atria/bin/cleartool lspriv -co | /bin/awk '{print \$1}' `;
     if ( $? )
     {
       die "\nThis check in did not work: /usr/atria/bin/cleartool lspriv -co | /bin/awk '{print \$1}'\n\n";
     }
     else
     {
       # Save each element to an array
       foreach $element (@temp)
       {
         chomp $element;
         @list_of_elements = (@list_of_elements, $element);
       }
     } 
   }
   else
   {
     # If the argument equals "lsco", then automatically get all elements (files and directories) that are checked out in the current View.
     if ($element eq "lsco")
     {
       @temp = `/usr/atria/bin/cleartool lsco -short -cview -me -avobs`;
       if ( $? )
       {
         die "\nThis check in did not work: /usr/atria/bin/cleartool lsco -short -cview -me -avobs\n\n";
       }
       else
       {    
         # Save each element to an array
         foreach $element (@temp)
         {
           chomp $element;
           @list_of_elements = (@list_of_elements, $element);
         }
       } 
     }
     else
     { # Otherwise, if there are just elements from the command line, save them to the array too.
       @list_of_elements = (@list_of_elements, $element);
     }
   }
 }
 
 
 # Next, if elements are passed in via a pipe, then read the pipe for more elements.
 # Such as:  cat file.txt | cil.pl
 # Note that the "lsco" and "lspriv" arguments are intentionally not supported via pipes.
 if (! -t STDIN)
 {
   while (<>)
   {
     chomp($_);
     @list_of_elements = (@list_of_elements, $_);
   }
 }
 
 
 # Make sure there is at least 1 element to process.
 if (@list_of_elements == ())
 {
   print "ERROR: No elements specified to check in and label.\n\n";
   exit 1;
 }
 
 
 # Test if each file exists.
 foreach $element (@list_of_elements)
 {
   if (! -e $element)  # We could also check if the files are ClearCase elements too.  Add to next release?
   {
     print "ERROR: Element \"$element\" does not exist!\n\n";
     exit 1;
   }
 }
 
 
 # We could add a check to make sure the label has a valid label type in each (unique) VOB listed in the list of elements.
 # Consider to add this feature in the next release.  Performance is a concern.
 
 
 # Check in each element, and then label each new version.
 foreach $element (@list_of_elements)
 {
   # Check in element.
   print @temp = `/usr/atria/bin/cleartool ci -nc $element`;
   if ( $? )
   {
     die "\nThis check in did not work: /usr/atria/bin/cleartool ci -nc $element\n\n";
   }
 
 
   # Parse checked in version.
   @temp2 = grep(/^Checked in/, @temp);
   $version = @temp2[0];
   $version =~ s/Checked in "(.*)" version "(.*)"\./$1\@\@$2/;  # Save version in version format: /vob/a/b.txt@@/main/#
   
 
   # Label the checked in version, despite if the config spec is now looking at another version.
   print `/usr/atria/bin/cleartool mklabel -replace $label $version`;
   if ( $? )
   {
     die "\nThis labeling did not work: /usr/atria/bin/cleartool mklabel -replace $label $version\n\n";
   }
 
 
   # Save list of new labeled versions for output later.
   @list_of_versions = (@list_of_versions, $version);
 }
 
 
 # Print list of versions
 print "\n";
 print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n";
 print "SUMMARY\n";
 print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n";
 print "Label: $label\n";
 print "Here is the list of new labeled version(s):\n";
 foreach $version (@list_of_versions)
 {
   print "$count: $version";
   $count++;
 }
 print "\n";
 
 
 # Exit.
 exit 0;

This script was written for www.philforhumanity.com. If you have any questions, issues, or enhancement requests, please don’t hesitate to contact us.

by Phil B.

Related Articles » ClearCase Support: How to Make a ClearCase Label » ClearCase Support: How to Make a ClearCase Branch » ClearCase Support: How to Create a ClearCase VOB

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

ClearCase Support: Check In and Label at the Same Time

Related Articles » ClearCase Support: How to Make a ClearCase Label » ClearCase Support: How to Make a ClearCase Branch » ClearCase Support: How to Create a ClearCase VOB

Related Articles
» ClearCase Support: How to Make a ClearCase Label
» ClearCase Support: How to Make a ClearCase Branch
» ClearCase Support: How to Create a ClearCase VOB