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
#
#                   Displays the previous vesrion of the package as well
#
#                 Currently hard coded to SEATTLE (SEA) > Phase 2 - I2
#
# Usage:
#
# Version   Who      Date        Description
#
#......................................................................#

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

#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;
my %PVID;

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

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

    # First get details from pv_id

    my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION, pv.LAST_PV_ID" .
                   " 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";
    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {
        if ( $sth->execute( ) )
        {
            print "--- Execute\n";
            if ( $sth->rows )
            {
                print "--- Execute ROWS\n";
                while ( @row = $sth->fetchrow_array )
                {
                    my $pvid = $row[0];
                    $PVID{$pvid}{pv_id}            = $row[0];
                    $PVID{$pvid}{name}             = $row[1];
                    $PVID{$pvid}{version}          = $row[2];
                    $PVID{$pvid}{last_pv_id}       = $row[3];
                    push @GDATA, $pvid;
print "$row[1], $row[2]\n";                    
                }
            }
            print "--- Finish\n";
            $sth->finish();
        }
        else
        {
            Error("getPkgDetailsByRTAG_ID: Execute failure", $m_sqlstr );
        }
    }
    else
    {
        Error("Prepare failure" );
    }
}

#-------------------------------------------------------------------------------
# Function        : getPkgDetailsByPV_ID
#
# Description     : Populate the Packages structure given a PV_ID
#
# Inputs          : PV_ID           - Package Unique Identifier
#
# Returns         : Populates Package
#
sub getPkgDetailsByPV_ID
{
    my ($PV_ID) = @_;
    my $foundDetails = 0;
    my (@row);

    connectRM(\$RM_DB) unless ($RM_DB);

    # First get details from pv_id

    my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION, pv.LAST_PV_ID" .
                    " FROM PACKAGE_VERSIONS pv, PACKAGES pkg" .
                    " WHERE pv.PV_ID = \'$PV_ID\' AND pv.PKG_ID = pkg.PKG_ID";

    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {
        if ( $sth->execute( ) )
        {
            if ( $sth->rows )
            {
                while ( @row = $sth->fetchrow_array )
                {
                    my $pvid = $row[0];
                    $PVID{$pvid}{pv_id}            = $row[0];
                    $PVID{$pvid}{name}             = $row[1];
                    $PVID{$pvid}{version}          = $row[2];
                    $PVID{$pvid}{last_pv_id}       = $row[3];
                }
            }
            else
            {
#                Warning ("No Package details for: PVID: $PV_ID");
            }
            $sth->finish();
        }
        else
        {
            Error("getPkgDetailsByPV_ID: Execute failure", $m_sqlstr );
        }
    }
    else
    {
        Error("Prepare failure" );
    }
}


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

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


getPkgDetailsByRTAG_ID(9011);           # SEATTLE (SEA) > Phase 2 - I2
#DebugDumpData("GDATA", \@GDATA);

#
#   Display package and previous versions
#
my $count = 0;
foreach my $pvid ( @GDATA )
{
    my ( $name, $ver, $proj ) = SplitPackage($PVID{$pvid}{name}, $PVID{$pvid}{version} );
    my ( $major, $minor, $patch, $build ) = SplitVersion( $ver );

    my $suspect;
    my @prev;
#    push @prev, $PVID{$pvid}{version};
    my $this_pv_id = $pvid;
    foreach my $ii ( 1..4 )
    {
        if ( $PVID{$this_pv_id}{last_pv_id} == $this_pv_id )
        {
            last;
        }
        my $last_pv_id = $PVID{$this_pv_id}{last_pv_id} ;
        getPkgDetailsByPV_ID ($last_pv_id );
        if ( exists $PVID{$last_pv_id} )
        {
            push @prev, $PVID{$last_pv_id}{version};

        my ( $xname, $xver, $xproj ) = SplitPackage($PVID{$pvid}{name}, $PVID{$last_pv_id}{version} );
        my ( $xmajor, $xminor, $xpatch, $xbuild ) = SplitVersion( $xver );

#print "$major.$minor,$patch :: $xmajor, $xminor, $xpatch\n";
        if ( $xmajor > $major )
        {
            $suspect = 1;
        }
        elsif ( $xmajor == $major )
        {
            if ( $xminor > $minor )
            {
                $suspect = 1;
            }
            elsif ( $xminor == $minor )
            {
                if ( $xpatch > $patch )
                {
                    $suspect = 1;
                }
                elsif ( $xpatch == $patch )
                {
                    if ( $xbuild > $build )
                    {
                        $suspect = 1;
                    }
                }

            }

        }


#print "------- $PVID{$last_pv_id}{version}\n";
            $major = $xmajor;
            $minor = $xminor;
            $patch = $xpatch;
            $build = $xbuild;
            $this_pv_id = $last_pv_id;
            $last_pv_id = $PVID{$last_pv_id}{last_pv_id} ;
        }
        else
        {
            last;
        }
    }

    printf( "%1.1s%30s, %20s :: %s",
        $suspect ? '*' : ' ',
        $PVID{$pvid}{name},
        $PVID{$pvid}{version},
        "@prev"
        );
    print "\n";

#    last if ( ++$count > 10 );
}

exit;