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;

my $GBE_PERL     = $ENV{'GBE_PERL'};        # Essential ENV variables

my $GBE_CORE     = $ENV{'GBE_CORE'};

my $opt_verbose = 2;

my @bad_list;

my %Pkgs = (

"BACardInitialiseLib_25.2.0.syd", "/MASS_Dev_Bus/CardFulfilmentSystem/BureauAdapter/src/native/BACardInitialiseLib",

"BPELWorkflows_25.2.0.syd", "/MASS_Dev_Bus/WebServices/BPEL Workflow",

"CardInitialiseLib_25.0.5.syd", "/MASS_Dev_Bus/CIPP/CardInitialiseLib",

"DMAClient_25.1.0.cr", "/MASS_Dev_Infra/DeviceManagement/DMAClient",

"DMCDClient_25.1.1.cr", "/MASS_Dev_Infra/DeviceManagement/DMCDClient",

"DMCDDequeuerTarget_25.1.0.cr", "/MASS_Dev_Infra/DeviceManagement/DMCDDequeuerTarget",

"DMCDServer_25.1.0.cr", "/MASS_Dev_Infra/DeviceManagement/DMCDServer",

"DMConfigurationClient_25.2.0.cr", "/MASS_Dev_Infra/DeviceManagement/DMConfigurationClient",

"DataStore_25.1.0.cr", "/MASS_Dev_Infra/DeviceManagement/DataStore",

"DataViewer_2.5.1.cr", "/MASS_Dev_Infra/DataViewer/src",

"DeviceCdDistribution_25.1.0.mas", "/MASS_Dev_Infra/DeviceCDManagement/cpp/CDDistribution",

"DriverCashManagement_20.0.0.syd", "/MASS_Dev_Bus/Financial/java/DriverCashManagement",

"FinExportViewer_19.0.0.mas", "/MASS_Dev_Bus/Financial/java/Financial Export Viewer",

"FulfilMgr_20.0.3.mas", "/MASS_Dev_Bus/Fulfilment Manager",

"ImageCaptureFunctionWrapper_23.0.0.mas", "/MASS_Dev_Bus/Image Capture/Image Capture Function Wrapper",

"ImageCaptureTomcatDeployment_24.0.0.mas", "/MASS_Dev_Bus/ImageCapture",

"ImageCapture_24.0.0.mas", "/MASS_Dev_bus/Image Capture/ImageCaptureApplication/ImageCapture",

"ImageUtils_23.0.0.mas", "/MASS_Dev_bus/ImageCapture/ImageUtils",

"ProcExt_25.1.0.syd", "/MASS_Dev_Bus/Financial/cpp/ProcExt",

"TestAccounts_25.1.0.syd", "/MASS_Dev_Bus/Issuer/test/OLSSimConnector",

"TwainImageCapture_23.0.0.mas", "/MASS_Dev_bus/ImageCapture/Twain Image Capture",

"UDEvent_25.2.3000.syd", "/MASS_Dev_Infra/DeviceManagement/UDEvent",

"card_ejb-api_25.0.0.syd", "/MASS_Dev_Bus/Card EJB",

"card_ejb_25.0.0.syd", "/MASS_Dev_Bus/Card EJB",

"cardholder_ejb-api_25.1.0.syd", "/MASS_Dev_Bus/Cardholder EJB",

"cardholder_ejb_25.2.0.syd", "/MASS_Dev_Bus/Cardholder EJB",

"cdxforms_25.1.2.syd", "/MASS_Dev_Infra/ProjectSpecfic/Sydney/cdxforms and /MASS_Dev_Infra/cdxforms",

"crypta_dsi_25.1.0.cr", "/MASS_Dev_Infra/security/crypAdap/dsi",

"crypto_25.1.0.cr", "/MASS_Dev_Infra/security/crypto",

"dmcg_dmscclient_25.1.0.cr", "/MASS_Dev_Infra/DeviceManagement/dmcg_dmscclient",

"dmcg_dmscclient_sim_24.1.0.cr", "/MASS_Dev_Infra/DeviceManagement/dmcg_dmscclient_sim",

"dmcg_startupkit_25.1.1.cr", "/MASS_Dev_Infra/DeviceManagement/dmcg_startupkit",

"dmsc_decoders_api_25.1.0.cr", "/MASS_Dev_Infra/DeviceManagement/dmsc_decoders_api",

"financial_ejb-api_1.0.2.mas", "/MASS_Dev_Bus/CBP/Financial_ejb",

"financial_ejb_2.1.7.mas", "/MASS_Dev_Bus/CBP/financial_ejb",

"gcalc_1.0.0.cots", "/MASS_Dev_Infra/ProjectSpecific/Sydney/gcalc",

"gnu-regexp_1.1.1.cots", "/MASS_Dev_COTS/Java/gnu-regexp-1.1.1",

"jboss-config-jms_2.0.0.mas", "/MASS_Dev_Tools/Java/JBoss/configuration-jms",

"jboss_config_23.0.2.mas", "/MASS_Dev_Tools/Java/JBoss/configuration",

"jsftp_1.0.0.cr", "/MASS_Dev_Bus/Financial/java/JSFTP",

"loginmodule-jni-api_21.1.0.mas", "/MASS_Dev_Infra/security/LoginModule/JNI2",

"netbula_2.10.1.cots", "/MASS_Dev_COTS/cots_netbula",

"product_ejb-api_25.2.2.syd", "/MASS_Dev_Bus/Product EJB",

"product_ejb_25.2.2.syd", "/MASS_Dev_Bus/Product EJB",

"streamer_25.2.1.syd", "/MASS_Dev_Bus/CBP/streamer/cpp",

"uiconv_1.0.0.mas", "/MASS_Dev_Infra/DeviceCDManagement/cpp/UIR_Manager/uiconv",

"xerces_c1.5.2.cots", "/MASS_Dev_COTS/Xerces/xerces-src1_5_2/src",

"xmlschemacomponentsCDA_25.1.0.cr", "/MASS_Dev_Infra/XMLSchema/components",

);

foreach my $name ( sort keys( %Pkgs) )

{

    GetDepends (0, $name , $Pkgs{$name} );

}

foreach  ( @bad_list )

{

    print $_;

}

#

#   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, $label, $path ) = @_;

    #

    #   Try to pull the version out

    #

    $path = "/$path";

    $path =~ tr~\\/~/~s;

    $path =~ s~/$~~;

    $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;

   print "\n\n";

   print "$label : $vob : $path\n";

   JatsCmd("release", "-extract", "-view", "xxx", $label, "-path", $path, "-latest=mass_dev2" );

   my $rpath = "c:/clearcase/buildadm_xxx/$path";

   print "PATH NOT FOUND: $path\n" unless -d $rpath;

   push @bad_list, "\"$label\", \"$path\",\n" unless -d $rpath;

   JatsCmd("-cd", $rpath, "label", "-label", "-up", $label, "-unlock", "-lock" );

   JatsCmd("release", "-view", "xxx", "-delete" );

}