#!/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;