Subversion Repositories DevTools

Rev

Rev 2026 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
392 dpurdie 1 
#! perl
2 
########################################################################
5710 dpurdie 3 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
392 dpurdie 4 
#
5 
# Module name   : jats.sh
6 
# Module type   : Makefile system
7 
# Compiler(s)   : n/a
8 
# Environment(s): jats
9 
#
10 
# Description   : Junk
11 
#
12 
# Usage:
13 
#
14 
# Version   Who      Date        Description
15 
#
16 
#......................................................................#
17 
 
18 
require 5.006_001;
19 
use strict;
20 
use warnings;
21 
use JatsError;
22 
use JatsSystem;
23 
 
24 
#use Data::Dumper;
25 
use Cwd;
26 
use DeployUtils::RmPkgInfo;
27 
my $GBE_PERL     = $ENV{'GBE_PERL'};        # Essential ENV variables
28 
my $GBE_CORE     = $ENV{'GBE_CORE'};
29 
my $opt_verbose = 1;
30 
 
31 
 
32 
my %Pkgs = (
33 
"tp5000", "1.0.0.syd",
34 
);
35 
 
36 
 
37 
 
38 
foreach my $name ( sort keys( %Pkgs) )
39 
{
40 
    GetDepends (0, $name , $Pkgs{$name} );
41 
}
42 
 
43 
 
44 
#
45 
#   Test the RM Interface
46 
#
47 
#GetDepends (0, 'daf_br', '25.14.3.syd' );
48 
#GetDepends (0, 'daf_br_oar','26.0.3001.syd' );
49 
#GetDepends (0, 'safpd', '2.0.6.syd' );
50 
 
51 
#-------------------------------------------------------------------------------
52 
# Function        : GetDepends
53 
#
54 
# Description     :
55 
#
56 
# Inputs          : pkg_name
57 
#                   pkg_ver
58 
#
59 
# Returns         :
60 
#
61 
sub GetDepends
62 
{
63 
    my ($level, $pkg_name, $pkg_ver ) = @_;
64 
 
65 
#    return
66 
#        if ( defined($Package{$pkg_name}) );
67 
 
68 
#    print  ' ' x ($level * 4), "Package $pkg_name $pkg_ver\n";
69 
    my $pkgInfo;
70 
 
71 
    $pkgInfo = DeployUtils::RmPkgInfo->new( { PKG_NAME => $pkg_name , PKG_VERSION => $pkg_ver } );
72 
    my $path = $pkgInfo->pv_source_path();
73 
    my $label = $pkgInfo->pv_label();
74 
 
75 
 
76 
    unless ( $pkgInfo->foundDetails() )
77 
    {
78 
#        print  "${pkg_name}_$pkg_ver - NO Details at all\n";
79 
        return;
80 
    }
81 
 
82 
    unless ( $path )
83 
    {
84 
#        print  "${pkg_name}_$pkg_ver - NO Path\n";
85 
        return;
86 
    }
87 
 
88 
    unless ( $label )
89 
    {
90 
#        print  "${pkg_name}_$pkg_ver - NO label\n";
91 
        return;
92 
    }
93 
 
94 
 
95 
#    print  "${pkg_name}_$pkg_ver $label $path\n";
96 
 
97 
 
98 
    #
99 
    #   Try to pull the version out
100 
    #
101 
    $path = "/$path";
102 
    $path =~ tr~\\/~/~s;
103 
    $path =~ s~/$~~;
104 
 
105 
    return unless ($path =~ m/MASS_Dev_/);
106 
 
107 
    $path =~ s~MASS_Dev/Bus~MASS_Dev_Bus~;
108 
    $path =~ s~MASS_Dev/Infra~MASS_Dev_Infra~;
109 
    $path =~ s~MASS_Dev/Crypto~MASS_Dev_Crypto~;
110 
    $path =~ s~MASS_Dev/Tools~MASS_Dev_Tools~;
111 
 
112 
    my $vob = $path;
113 
    $vob =~ s~^/~~g;
114 
    $vob =~ s~/.*~~g;
115 
 
116 
    return unless ($vob =~ m/MASS_Dev/);
117 
 
118 
    print "\"$label\", \"$path\",\n";
119 
#    print "${pkg_name}_$pkg_ver :: \"$label\", \"$path\",\n";
120 
#
121 
#   JatsCmd("release -extract -view xxx \"$label\" -path \"$path\" > log_$label.txt" );
122 
#
123 
#   my $rpath = "c:/clearcase/dpurdie_xxx/$path";
124 
#
125 
#   print "PATH NOT FOUND: $path\n" unless -d $rpath;
126 
#
127 
#   JatsCmd('release', '-view', 'xxx', '-delete' );
128 
#   print "\n\n";
129 
}
130 
 
131