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   : Display the packages that have a 'bad' Buildtype
#
# Usage:
#
# Version   Who      Date        Description
#
#......................................................................#

require 5.006_001;
use strict;
use warnings;
use JatsError;
use JatsRmApi;

#use Data::Dumper;
use DBI;
use Cwd;

my $GBE_PERL     = $ENV{'GBE_PERL'};        # Essential ENV variables
my $GBE_CORE     = $ENV{'GBE_CORE'};
my $opt_verbose = 1;
my $RM_DB;
my @GDATA;

sub getPkgDetailsByRTAG_ID
{
    my ($RTAG_ID) = @_;
    my (@row);

    # if we are not or cannot connect then return 0 as we have not found anything
    connectRM(\$RM_DB) unless ( $RM_DB );

    # First get details from pv_id

    my $m_sqlstr = "SELECT pbe.PV_ID, pbe.BE_ID, pkg.PKG_NAME, pv.PKG_VERSION, be.BE_NAME, pv.PKG_LABEL, pbe.BUILD_TYPE" .
                   " FROM PACKAGE_BUILD_ENV pbe, PACKAGE_VERSIONS pv, PACKAGES pkg, BUILD_ENVIRONMENTS be, RELEASE_CONTENT rc" .
                   " WHERE pbe.BUILD_TYPE >= 0 AND pv.PV_ID = pbe.PV_ID AND pv.PKG_ID = pkg.PKG_ID AND be.BE_ID = pbe.BE_ID AND rc.RTAG_ID = $RTAG_ID AND rc.PV_ID = pv.PV_ID" .
                   " ORDER BY pkg.PKG_NAME, pv.PKG_VERSION";
    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {
        if ( $sth->execute( ) )
        {
            if ( $sth->rows )
            {
                while ( @row = $sth->fetchrow_array )
                {
                    printf "%40s %-20s %-80s - %s(%s)\n", $row[2], $row[3], $row[5], $row[4], $row[6];
                }
            }
            $sth->finish();
        }
    }
    else
    {
        Error("Prepare failure" );
    }
}

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

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


#getRtagId();

#getPkgDetailsByRTAG_ID(3645);           # 3645 : SLS 2.03d
#getPkgDetailsByRTAG_ID(2301);           # 2301 : Seattle I7
getPkgDetailsByRTAG_ID(2362);           # 2362 : Syd Release 1
#getPkgDetailsByRTAG_ID(1861);           # 1861 : Syd Release Legacy
#getPkgDetailsByRTAG_ID(2641);           # 2641 : NZS Phase-1

exit;