Subversion Repositories DevTools

#! perl
########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). 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" );
}