Subversion Repositories DevTools

###############################################################################

# CLASS Clearcase::FindCmd

# This class inherits from the CCCmpdProc and executes the cleartool command

# "find" with specified args

#

# It overrides the CCProcess member to process the resultant output from the find

# command and store information about all files/dirs in and below the pwd.

# 

# It uses the CCIgnore class to determine if a file should be ignored or included

# in the processing of the cmd output.

#

# It stores as a result of the command for each file/dir

# NAME      = The full path of the file (as defined by CCCmdProc)

# VERSION   = 

###############################################################################

package Clearcase::FindCmd;

use strict;

use Cwd qw/ abs_path /;

use DeployUtils::Logger;

use Clearcase::IgnoreList;

use Clearcase::CmdProc;

use vars qw( @ISA );

@ISA = qw( Clearcase::CmdProc );

my $StateCheckedIn  = "CHECKEDIN";

my $StateCheckedOut = "CHECKEDOUT";

#==============================================================================

#   Constructor

#==============================================================================

sub new

{

    my $obclass = shift;

    my $class = ref($obclass) || $obclass;

    my $dir = shift;

    my $args = shift;

    LogDebug("Clearcase::FindCmd::new Instantiating new object of class $class");

    # if no dir of dir is "." the get full absolute path, abs_path returns patch with "/" regardless of platform

    $dir = abs_path(".") if ( ! defined($dir) || $dir eq "." );    

    $args = "" if ( ! defined($args) );

    $args .= " -print" if ( $args !~ /-print/ );

    # Call base class's constructor

    my $self = $class->SUPER::new();

    # Add this class's data to the class object

    $self->{_FINDDIR} = $dir;

    $self->{_FINDARGS} = $args;

    bless($self, $class);

    # set Clearcase command and arg

    $self->CCcmd("find $dir");

    $self->CCargs("$args");

    return $self;

}   # new

#==============================================================================

#   CCprocess overrides base class's CCProcess to process result

#==============================================================================

sub CCprocess

{

    my $self = shift;

    my $line;

    my ($name, $version, $state ) = ( "", "", "" );

    my $dirRE = $self->{_FINDDIR};

    # if dirRE starts with a drive letter then its a dynamic view and the find reports file names without

    # the drive letter, so lets remove it from the RE

    #$dirRE =~ s|^[a-zA-Z]:||;

    # Change the search RE for the findDir so that all occurances of "/" in path are changed to "[/\\]" 

    # to match either type of path separator

    $dirRE =~ s|/|\[/\\\\\]|g;

NEXTLINE:

    while ( $line = $self->getline() )

    {

        chomp $line ;

        $line =~ s/\r//g;    # remove carraige returns

        # ignore blank lines

        next NEXTLINE if ( $line =~ /^\s*$/ );

        # Files Found can be above the supplied dir if -all is used so lets remove files that dont start with Dir

        if ( $line !~ m|^$dirRE| )

        {

            LogDebug("Clearcase::FindCmd::CCprocess Ignoring following Line as it is above current path");

            LogDebug("$line");

            next NEXTLINE;

        }

        # if line contains 2 sets of @@ then its probably a removed file that is traced back to a parent

        # its format is dir@@branch/filename@@branch/version

        if ( $line =~ /^(.*)\@\@(.*)\@\@(.*)$/ )

        {

            my $dir = $1;

            $name = $2;

            $version = $3;

            # get last part of name which is the file name with the dir separator 

            $name =~ s|^.*([/\\\\][^/\\\\])|$1|;

            # now prepend dir to name

            $name = $dir . $name;

            # See if Checked out state

            if ( $version =~ /CHECKEDOUT$/ )

            {

                $state = $StateCheckedOut;

            }

            else

            {

                $state = $StateCheckedIn;

            }

        }

        elsif ( $line =~ /^(.*)\@\@(.*)$/ )

        {

            # got the file name, & rest of line

            $name = $1;

            $version = $2;

            # See if Checked out state

            if ( $version =~ /CHECKEDOUT$/ )

            {

                $state = $StateCheckedOut;

            }

            else

            {

                $state = $StateCheckedIn;

            }

        }

        else

        {

            LogError("-x", "Clearcase::FindCmd::CCprocess Unknown Input Line as follows");

            LogError("$line");

        }

        # Remove findDir from path if find dir is same as pwd, makes it less clutered

        $name =~ s|$dirRE|\.| if ( $self->CCcwd() =~ m|^$dirRE| );

        # Add name to file list and set it as current element

        $self->addToFileList($name);

        # now add other elements, the index is remembered in the base class

        $self->updateCurrentFile("STATE", $state, "VERSION", $version);

    }

}   # process

#==============================================================================

#   printResult prints out the result of the ls command in a formatted output

#==============================================================================

sub printResult

{

}   # printResult

#==============================================================================

# getDiffListFrom

# Compares this objects file list to object passed into.  It assumes the object passed

# is the from object and this object is the to object and compares them.

# Any item in this and not in from is new and vice versa.

# it returns a reference to a hash that is keyed by name and contains hash elements

# NEW & OLD that contain the version strings from the comparison

#==============================================================================

sub getDiffListFrom

{

    my $self = shift;

    my $from = shift;

    my %diff;

    my ( $thisElement, $thatElement );

    my $name;

    LogError("FindCmd::getDiffFrom: Argument must be a FindCmd object") if ( ref($from) ne "Clearcase::FindCmd" );

    # loop through this objects elements and find them in from object.

    # if not found in from then its a new object, otherwise if versions are different then element has changed

    $thisElement = $self->getFirstElement();

    while( defined($thisElement) )

    {   

        $name = $thisElement->{NAME};

        $thatElement = $from->findName($name);

        if ( defined($thatElement) )

        {

            if ( $thisElement->{VERSION} ne $thatElement->{VERSION} )

            {

                $diff{$name}{NEW} = $thisElement->{VERSION};

                $diff{$name}{OLD} = $thatElement->{VERSION};

            }

        }

        else

        {

            $diff{$name}{NEW} = $thisElement->{VERSION};

            $diff{$name}{OLD} = "";

        }

        $thisElement = $self->getNextElement();

    }

    # loop through that objects elements and find them in this object.

    # Only want to find ones that dont exist in this one which means they have been removed

    $thatElement = $from->getFirstElement();

    while( defined($thatElement) )

    {   

        $name = $thatElement->{NAME};

        $thisElement = $self->findName($name);

        if ( !defined($thisElement) )

        {

            $diff{$name}{OLD} = $thatElement->{VERSION};

            $diff{$name}{NEW} = "";

        }

        $thatElement = $from->getNextElement();

    }

#print Data::Dumper->Dump([ \%diff ], [ "Diff" ]);

    return \%diff;

}   # getDiffListFrom

1;