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   : Display the currently released version of ALL packages

#                 that are a part of a given release

#

#                 Currently hard coded to Sydney Legacy

#                 Appears to be an OLD version of play5

#

# Usage:

#

# Version   Who      Date        Description

#

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

require 5.6.1;

use strict;

use warnings;

use JatsError;

use JatsRmApi;

#use Data::Dumper;

use Cwd;

use DBI;

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

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

my $opt_verbose = 0;

my $RM_DB;

our %CM_DATA = (

    _CQ_DB                      => "dbi:ODBC:DEVI",

    _CQ_USER                    => "release_manager",

    _CQ_PASS                    => "release_manager",

    _CQ_CONN                    => undef,

);

#==============================================================================

# connectCQ

# Connects the DBI to Clear Quest if not connected

#==============================================================================

sub connectCQ

{

    my $globals = \%CM_DATA;

    if ( ! defined($globals->{_CQ_CONN}) )

    {

        $globals->{_CQ_CONN} = DBI->connect($globals->{_CQ_DB}, $globals->{_CQ_USER}, $globals->{_CQ_PASS});

        if ( ! defined($globals->{_CQ_CONN}) )

        {

            Error("connectCQ Failed to connect to database [$globals->{_CQ_DB}]. [$DBI::errstr].");

            return 0;

        }

        else

        {

            Message("connectCQ Connected to database [$globals->{_CQ_DB}].");

        }

    }

    return 1;

}   # _connectCQ

my @GDATA;

sub getPkgDetailsByRTAG_ID

{

    print "Test:1\n";

    my ($RTAG_ID) = @_;

    my $foundDetails = 0;

    my (@row);

    my $row_count = 0;

    # First get details from pv_id

    my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION FROM RELEASE_CONTENT rc, PACKAGE_VERSIONS pv, PACKAGES pkg WHERE rc.RTAG_ID = $RTAG_ID AND rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";

    print "--- Prepare\n";

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

    if ( defined($sth) )

    {

        print "--- Execute\n";

        if ( $sth->execute( ) )

        {

            print "--- Test Rows\n";

            if ( $sth->rows )

            {

                print "--- Fetch Rows\n";

                while ( @row = $sth->fetchrow_array )

                {

                    my %DATA;

                    $DATA{pv_id}            = $row[0];

                    $DATA{name}             = $row[1];

                    $DATA{version}          = $row[2];

                    push @GDATA, (\%DATA);

                    $row_count++;

                }

            }

            print "--- Finish: $row_count rows extracted\n";

            $sth->finish();

        }

        else

        {

            Warning("Execute failure: " . $sth->errstr );

        }

    }

    else

    {

        Warning("Prepare failure" );

    }

}

sub test_2

{

    print "Test:2\n";

    my $foundPkg = 0;

    my $pkg = 'mos_api';

    my @row;

    my ($m_sqlstr ) = "SELECT pkg_id, pkg_name FROM PACKAGES WHERE pkg_name=?";

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

    if ( defined($sth) )

    {

        if ( $sth->execute( $pkg ) )

        {

            if ( $sth->rows )

            {

                while ( @row = $sth->fetchrow_array )

                {

                    print "---- @row\n";

                    $foundPkg = 1;

                    last;

                }

            }

            $sth->finish();

            if ( ! $foundPkg )

            {

                Warning("Unable to find Package [$pkg]");

            }

        }

        else

        {

            Warning("executing query [$m_sqlstr] : " . $sth->errstr);

        }

    }

    else

    {

        Warning("Unable to prepare SQL Statement [$m_sqlstr] : " . $RM_DB->errstr);

    }

}

sub test_3

{

    print "Test:3\n";

    my $m_sqlstr = "BEGIN PK_BUILDAPI.Remove_All_Product_Components(?,?); END;";

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

    if ( defined($sth) )

    {

        if ( ! $sth->execute( 12,  'SomePlatform' ) )

        {

            Warning("Expected Error executing query [$m_sqlstr] : " . $sth->errstr);

        }

        else

        {

            Warning("Expected error, but got a good result");

        }

    }

    else

    {

        Warning("Unable to prepare SQL Statement [$m_sqlstr] : " . $RM_DB->errstr);

    }

}

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

# Function        : Main

#

# Description     :

#

# Inputs          :

#

# Returns         :

#

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

connectRM( \$RM_DB);

#connectCQ();

getPkgDetailsByRTAG_ID(1861);               # Sydney Legacy

test_2();

test_3();

#DebugDumpData("GDATA", \@GDATA);

print "End of tests\n";

exit;

connectRM();

print "Connecting: $CM_DATA{_CQ_CONN}\n";