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.

by Phil for Humanity
on 06/23/2008

ClearCase Support: Check In and Label at the Same Time

Related Articles » ClearCase Support: How to Make a ClearCase Label » ClearCase Support: Another Common ClearCase Labeling Error Message » ClearCase Support: Common ClearCase Labeling Error Message

Related Articles
» ClearCase Support: How to Make a ClearCase Label
» ClearCase Support: Another Common ClearCase Labeling Error Message
» ClearCase Support: Common ClearCase Labeling Error Message