Subversion Repositories DevTools

########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : find_vob_root.pl
# Module type   : JATS Utility
# Compiler(s)   : Perl
# Environment(s): JATS
#
# Description   :
#
# Usage:
#
#
#......................................................................#

require 5.008_002;
use strict;
use warnings;

use Pod::Usage;
use Getopt::Long;

use JatsError;
use JatsSystem;
use Cwd;

my @error_list;
my $last_result;
my @last_results;


        ClearCmd('describe', '-fmt', '%Ln', 'vob:.');
        Error ("Program Terminated") if ( @error_list );
        Error ("Cannot determine current VOB base" ) unless ( $last_result );
        my $vob_base = quotemeta($last_result);
        Message ("VOB Base: $vob_base");

        my $here =  getcwd();
        Message ("Current dir: $here");

        my $base_dir = $here;
        $here =~ m~^(.*$vob_base)~;
        $base_dir = $1;

        Message ("Path of base: $base_dir");
        chdir ( $base_dir ) || Error ("Cannot chdir to vob base", $base_dir);
        Message ("All is good", getcwd());

#-------------------------------------------------------------------------------
# Function        : ClearCmd
#
# Description     : Execute a ClearCase command and capture the results
#                   Errors are held in one array
#                   Result are held in another
#
# Inputs          :
#
# Returns         :
#
sub ClearCmd
{
    my $cmd = QuoteCommand (@_);
    Verbose2( "cleartool $cmd" );

        @error_list = ();
        @last_results = ();
        $last_result = undef;

        open(CMD, "cleartool $cmd  2>&1 |")    || Error( "can't run command: $!" );
        while (<CMD>)
        {
            chomp;
            $last_result = $_;
            $last_result =~ tr~\\/~/~s;
            push @last_results, $last_result;

            Verbose2 ( "cleartool resp:" . $_);
            push @error_list, $_ if ( m~Error:~ );
        }
        close(CMD);

    Verbose2( "Exit Status: $?" );
    return $? / 256;
}