Subversion Repositories DevTools

#! perl
########################################################################
# Copyright ( C ) 2004 ERG Limited, All rights reserved
#
# Module name   : jats.sh
# Module type   : Makefile system
# Compiler(s)   : n/a
# Environment(s): jats
#
# Description   : Junk
#
# Usage:
#
# Version   Who      Date        Description
#
#......................................................................#

require 5.006_001;
use strict;
use warnings;
use JatsError;
use JatsSystem;

#use Data::Dumper;
use Cwd;
use DeployUtils::RmPkgInfo;
my $GBE_PERL     = $ENV{'GBE_PERL'};        # Essential ENV variables
my $GBE_CORE     = $ENV{'GBE_CORE'};
my $opt_verbose = 1;


my %Pkgs = (
"tp5000", "1.0.0.syd",
);



foreach my $name ( sort keys( %Pkgs) )
{
    GetDepends (0, $name , $Pkgs{$name} );
}


#
#   Test the RM Interface
#
#GetDepends (0, 'daf_br', '25.14.3.syd' );
#GetDepends (0, 'daf_br_oar','26.0.3001.syd' );
#GetDepends (0, 'safpd', '2.0.6.syd' );

#-------------------------------------------------------------------------------
# Function        : GetDepends
#
# Description     :
#
# Inputs          : pkg_name
#                   pkg_ver
#
# Returns         :
#
sub GetDepends
{
    my ($level, $pkg_name, $pkg_ver ) = @_;

#    return
#        if ( defined($Package{$pkg_name}) );

#    print  ' ' x ($level * 4), "Package $pkg_name $pkg_ver\n";
    my $pkgInfo;

    $pkgInfo = DeployUtils::RmPkgInfo->new( { PKG_NAME => $pkg_name , PKG_VERSION => $pkg_ver } );
    my $path = $pkgInfo->pv_source_path();
    my $label = $pkgInfo->pv_label();


    unless ( $pkgInfo->foundDetails() )
    {
#        print  "${pkg_name}_$pkg_ver - NO Details at all\n";
        return;
    }

    unless ( $path )
    {
#        print  "${pkg_name}_$pkg_ver - NO Path\n";
        return;
    }

    unless ( $label )
    {
#        print  "${pkg_name}_$pkg_ver - NO label\n";
        return;
    }
    

#    print  "${pkg_name}_$pkg_ver $label $path\n";


    #
    #   Try to pull the version out
    #
    $path = "/$path";
    $path =~ tr~\\/~/~s;
    $path =~ s~/$~~;

    return unless ($path =~ m/MASS_Dev_/);

    $path =~ s~MASS_Dev/Bus~MASS_Dev_Bus~;
    $path =~ s~MASS_Dev/Infra~MASS_Dev_Infra~;
    $path =~ s~MASS_Dev/Crypto~MASS_Dev_Crypto~;
    $path =~ s~MASS_Dev/Tools~MASS_Dev_Tools~;

    my $vob = $path;
    $vob =~ s~^/~~g;
    $vob =~ s~/.*~~g;

    return unless ($vob =~ m/MASS_Dev/);

    print "\"$label\", \"$path\",\n";
#    print "${pkg_name}_$pkg_ver :: \"$label\", \"$path\",\n";
#
#   JatsCmd("release -extract -view xxx \"$label\" -path \"$path\" > log_$label.txt" );
#
#   my $rpath = "c:/clearcase/dpurdie_xxx/$path";
#
#   print "PATH NOT FOUND: $path\n" unless -d $rpath;
#
#   JatsCmd('release', '-view', 'xxx', '-delete' );
#   print "\n\n";
}