Subversion Repositories DevTools

########################################################################

# Copyright (C) 1998-2012 Vix Technology, All rights reserved

#

# Module name   : jats_rm_play24.pl

# Module type   : Makefile system

# Compiler(s)   : n/a

# Environment(s): jats

#

# Description   : Get data on one package - without dependencies

#

#

#......................................................................#

require 5.006_001;

use strict;

use warnings;

use JatsError;

use JatsSystem;

use Getopt::Long;

use Pod::Usage;                             # required for help support

use JatsRmApi;

use DBI;

my $VERSION = "1.2.3";                      # Update this

my $opt_verbose = 1;

my $opt_help = 0;

my $opt_manual;

my $RM_DB;

my $DM_DB;

#-------------------------------------------------------------------------------

# Function        : Main Entry

#

# Description     :

#

# Inputs          :

#

# Returns         :

#

my $result = GetOptions (

                "help+"         => \$opt_help,          # flag, multiple use allowed

                "manual"        => \$opt_manual,        # flag

                "verbose+"      => \$opt_verbose,       # flag

                );

#

#   Process help and manual options

#

pod2usage(-verbose => 0, -message => "Version: $VERSION")  if ($opt_help == 1  || ! $result);

pod2usage(-verbose => 1)  if ($opt_help == 2 );

pod2usage(-verbose => 2)  if ($opt_manual || ($opt_help > 2));

ErrorConfig( 'name'    =>'PLAY25' );

getBoms();

exit 0;

GetDepends(480269);

GetDepends(860874);

sub GetDepends

{

    my ($pv_id ) = @_;

    my $found = 0;

    my @rows;

    connectRM(\$RM_DB) unless $RM_DB;

    #

    #   Now extract the package dependacies

    #

    my $m_sqlstr = "SELECT ".

                  "        pv.PV_ID,".

                  "        pkg.PKG_NAME, ".

                  "        pv.PKG_VERSION, ".

                  "        pv.DLOCKED,".

                  "        release_manager.PK_RMAPI.return_vcs_tag(pv.PV_ID),".

                  "        pv.PKG_ID,".

                  "        pv.MODIFIED_STAMP" .

                  " FROM  ".

                  "         RELEASE_MANAGER.PACKAGE_DEPENDENCIES pd, ".

                  "         RELEASE_MANAGER.PACKAGE_VERSIONS pv ".

                  "         ,RELEASE_MANAGER.PACKAGES pkg" .

                  " WHERE ".

                  #"         pv.PV_ID = \'$pv_id\' " .

                  "         pd.PV_ID(+) = \'$pv_id\' " .

                  "         AND pd.DPV_ID = pv.PV_ID" .

                  "         AND pv.PKG_ID = pkg.PKG_ID" .

                  "";

$m_sqlstr =~ s~\s+~ ~g;

print "\n\n$m_sqlstr\n";

    my $sth = $RM_DB->prepare($m_sqlstr);

    if ( defined($sth) )

    {

        if ( $sth->execute( ) )

        {

            if ( $sth->rows )

            {

                while ( my @row = $sth->fetchrow_array )

                {

                    print "-- @row\n";

                    $found = 1;

                }

            }

            $sth->finish();

        }

        else

        {

            Error("GetDepends:Execute failure: $m_sqlstr", $sth->errstr() );

        }

    }

    else

    {

        Error("GetDepends:Prepare failure" );

    }

    unless ( $found )

    {

        Warning("No Package Version data for: $pv_id");

    }

}

my %AllBoms;

#-------------------------------------------------------------------------------

# Function        : getBoms

#

# Description     : Get all the os_id's associated with a BOMID

#                   Also get base_env_id's where they exist

#

# Inputs          : $bom_id             - BOM to process

#

# Returns         :

#

sub getBoms

{

    my $foundDetails = 0;

    my (@row);

    Verbose ("getBoms");

    connectDM(\$DM_DB) unless ($DM_DB);

    my $m_sqlstr = "SELECT distinct ".

                        "p.PROJ_ID,".

                        "p.PROJ_NAME".

#                        "br.BRANCH_ID,".

#                        "bm.BOM_ID".

                   " FROM DEPLOYMENT_MANAGER.DM_PROJECTS p, " .

                         "DEPLOYMENT_MANAGER.BRANCHES br, ".

                         "DEPLOYMENT_MANAGER.BOMS bm ".

                   " WHERE p.PROJ_ID = br.PROJ_ID ".

                      "AND br.BRANCH_ID = bm.BRANCH_ID";

    my $sth = $DM_DB->prepare($m_sqlstr);

    if ( defined($sth) )

    {

        if ( $sth->execute( ) )

        {

            if ( $sth->rows )

            {

                while ( @row = $sth->fetchrow_array )

                {

print "$row[0]    # $row[1]\n";

                    $foundDetails = 1;

                }

            }

            $sth->finish();

        }

        else

        {

            Error("getBoms:Execute failure: $m_sqlstr" );

        }

    }

    else

    {

        Error("getBoms:Prepare failure" );

    }

    Error("getBoms:No OS Information Found" ) unless $foundDetails;

#    DebugDumpData("AllBoms", \%AllBoms );

}