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.006_001;
use strict;
use warnings;
use JatsError;
use JatsRmApi;
use lib "../../pkg/jats_java/jar";                    # Allow JATS libraries


#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                      => "jdbc:jtds:sqlserver://AUPERASQL05:1433:master",
    _CQ_USER                    => "release_manager",
    _CQ_PASS                    => "release_manager",
    _CQ_CONN                    => undef,
);

#==============================================================================
# connectCQ
# Connects the DBI to Clear Quest if not connected
#==============================================================================
sub xxconnectCQ
{
    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}].");
        }
    }
DebugDumpData("CM_DATA", \%CM_DATA);
$RM_DB = $globals->{_CQ_CONN};
    return 1;
}   # _connectCQ


sub getClearQuestData
{
    print "Test:1\n";
    my $foundDetails = 0;
    my (@row);
    my $row_count = 0;

    # First get details from pv_id

    my $m_sqlstr = "SELECT si.dbid AS iss_id, ".
                    "si.new_num AS iss_num,".
                    "si.headline AS summary, ".
                    "sd.NAME AS state , ".
                    "si.package_ref, ".
                    "si.project, ".
                    "si.product, ".
                    "sd.id, ".
                    "si.submit_date".
         " FROM CQ_DEVI.admin.software_issue si,".
         " CQ_DEVI.admin.STATEDEF sd".
         " WHERE si.STATE = sd.ID";
    print "--- SQL: $m_sqlstr\n";
    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 )
                {
                    print("Data: ", join(',', @row),"\n");
                    $row_count++;
                }
            }
            print "--- Finish: $row_count rows extracted\n";
            $sth->finish();
        }
        else
        {
            Warning("Execute failure: " . $sth->errstr );
        }
    }
    else
    {
        Warning("Prepare failure" );
    }
}



#-------------------------------------------------------------------------------
# Function        : Main
#
# Description     :
#
# Inputs          :
#
# Returns         :
#

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

connectCQ( \$RM_DB, 1);
#connectCQ();
getClearQuestData();
print "End of tests\n";
exit;

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