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   : Create auto.pl for given package

#                 Need rtag_id and pv_id

#

#                 Slow Version

#                   Multiple DB accesses may be slow

#

# Usage:

#

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

require 5.006_001;

use strict;

use warnings;

use JatsError;

use JatsVersionUtils;

use JatsRmApi;

use JatsSystem;

#use Data::Dumper;

use Cwd;

use DBI;

use Getopt::Long;

use Pod::Usage;                             # required for help support

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

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

my $RM_DB;

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

#   Global data

#

my $VERSION = "1.0.0";

my %ReleasePackages;            # Packages in the release

my %BuildPackages;              # Packages for this build

my $base_name;

my $base_version;

my $base_label;

my $base_path;

#

#   Options

#

my $opt_help = 0;

my $opt_verbose = 0;

my $opt_rtagid;

my $opt_pvid;

my $result = GetOptions (

                "help|h:+"          => \$opt_help,

                "manual:3"          => \$opt_help,

                "verbose:+"         => \$opt_verbose,       # flag or number

                "rtagid|rtag_id=s"  => \$opt_rtagid,

                "pvid|pv_id=s"      => \$opt_pvid,

                );

#

#   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_help > 2);

#

#   Configure the error reporting process now that we have the user options

#

ErrorConfig( 'name'    =>'PLAY19',

             'verbose' => $opt_verbose );

Error( "Need rtagid and pvid" )

    unless ( $opt_rtagid && $opt_pvid );

#

#   Get info the specified package

#

getPkgDetailsBy_PVID ( $opt_pvid );

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

#

#   Get the current (released) version of packages that we depend on

#

getCurrentPkgVersion ( $opt_rtagid, $_ ) for (keys %BuildPackages);

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

#

#   %ReleasePackages - Packages in this release

#   %BuildPackages   - Packges in this build

#

foreach my $pkg ( keys %BuildPackages  )

{

    foreach my $ext ( keys %{$BuildPackages{$pkg}}  )

    {

#print "Version: $pkg, $ext, $BuildPackages{$pkg}{$ext} \n";

        Error ("Package not in Release: $pkg") unless ( exists $ReleasePackages{$pkg} );

        Error ("Package not in Release: $pkg.xxx.$ext") unless ( exists $ReleasePackages{$pkg}{$ext} );

#        $ReleasePackages{$pkg}{$ext} =  $BuildPackages{$pkg}{$ext};

    }

}

#

#   Create a configuration file for use by the JATS rewrite tool

#   This will allow the build.pl file to be re-written

#

my $file = "jats_rewrite.cfg";

open CFG, ">$file" || Error("Cannot create $file" );

foreach my $pkg ( sort keys %ReleasePackages )

{

    foreach my $prj ( sort keys %{$ReleasePackages{$pkg}} )

    {

        my $ver = $ReleasePackages{$pkg}{$prj};

        print CFG "${pkg} ${ver}.${prj}\n";

    }

}

close CFG;

#

#   Massage the build.pl file to create the auto.pl file

#   That will be used to create the final package.

#

JatsTool ("jats_rewrite.pl", "-conf", "$file", "-verb" ) && Error("Did not rewrite build.pl file");

exit 0;

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

# Function        : getPkgDetailsBy_PVID

#

# Description     :

#

# Inputs          : pvid

#

# Returns         :

#

sub getPkgDetailsBy_PVID

{

    my (@row);

    my ($pv_id) = @_;

    # if we are not or cannot connect then return 0 as we have not found anything

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

#print "getPkgDetailsBy_PVID: $pv_id\n";

    #

    #   Determine package information

    #

    my $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pkg.PKG_ID, pv.PV_ID, pv.CHANGE_TYPE, pv.BUILD_TYPE, pv.PKG_LABEL, pv.SRC_PATH".

                   " FROM RELEASE_MANAGER.PACKAGES pkg, RELEASE_MANAGER.PACKAGE_VERSIONS pv" .

                   " WHERE pv.PV_ID = \'$pv_id\' AND pkg.PKG_ID = pv.PKG_ID";

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

    if ( defined($sth) )

    {

        if ( $sth->execute( ) )

        {

            if ( $sth->rows )

            {

                while ( @row = $sth->fetchrow_array )

                {

#print ( "getPkgDetailsBy_PVID: " . join(',', @row) . "\n");

                    $base_name = $row[0];

                    $base_version = $row[1];

                    $base_label = $row[6];

                    $base_path = $row[7];

                    my ( $pn, $pv, $pp ) = SplitPackage( $base_name, $base_version );

                    $BuildPackages{$pn}{$pp} = $pv;

                    last;

                }

            }

            $sth->finish();

        }

        else

        {

            Error("getPkgDetailsBy_PVID:Execute failure 1", $m_sqlstr );

        }

    }

    else

    {

        Error("getPkgDetailsBy_PVID:Prepare failure" );

    }

    #   Now extract the package dependacies

    #

    $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pd.DPV_ID" .

                   " FROM RELEASE_MANAGER.PACKAGE_DEPENDENCIES pd, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .

                   " WHERE pd.PV_ID = \'$pv_id\' AND pd.DPV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";

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

    if ( defined($sth) )

    {

        if ( $sth->execute( ) )

        {

            if ( $sth->rows )

            {

                while ( @row = $sth->fetchrow_array )

                {

#print ( "getPkgDetailsBy_PVID: " . join(',', @row) . "\n");

                    my ( $pn, $pv, $pp ) = SplitPackage( $row[0], $row[1] );

                    $BuildPackages{$pn}{$pp} = $pv;

                }

            }

            $sth->finish();

        }

        else

        {

            Error("getPkgDetailsBy_PVID:Execute failure 2", $m_sqlstr );

        }

    }

    else

    {

        Error("getPkgDetailsBy_PVID:Prepare failure" );

    }

}

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

# Function        : getCurrentPkgVersion

#

# Description     : 

#

# Inputs          : 

#

# Returns         : 

#

sub getCurrentPkgVersion

{

    my ($RTAG_ID, $pname ) = @_;

    my $foundDetails = 0;

    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 pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION" .

                   " FROM RELEASE_MANAGER.RELEASE_CONTENT rc, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .

                   " WHERE rc.RTAG_ID = $RTAG_ID AND rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID AND pkg.PKG_NAME = \'$pname\'";

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

    if ( defined($sth) )

    {

        if ( $sth->execute( ) )

        {

            if ( $sth->rows )

            {

                while ( @row = $sth->fetchrow_array )

                {

#print ( "getCurrentPkgVersion: " . join(',', @row) . "\n");

                    my $pv_id   = $row[0];

                    my $name    = $row[1];

                    my $version = $row[2];

                    my ( $pn, $pv, $pp ) = SplitPackage( $name,  $version );

                    $ReleasePackages{$pn}{$pp} = $pv;

                }

            }

            $sth->finish();

        }

        else

        {

            Error("getCurrentPkgVersion:Execute failure" );

        }

    }

    else

    {

        Error("getCurrentPkgVersion:Prepare failure" );

    }

}