Subversion Repositories DevTools

########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : jats_extract_packages.pl
# Module type   : Makefile system
# Compiler(s)   : Perl
# Environment(s): jats build system
#
# Description   : Extracts the contents of dpkg_archive for a set of packages
#                 for a specified release.
#                 
#                 Temp utility to assist Pulse Integration developers
#......................................................................#

require 5.008_002;
use File::Basename;
use File::Copy;
use File::Path;
use strict;
use warnings;
use JatsEnv;
use JatsError;
use JatsSystem;
use JatsRmApi;
use FileUtils;
use DBI;
use Getopt::Long;
use Pod::Usage;                             # required for help support

#
#   Config Options
#
my $VERSION = "1.0.0";                      # Update this
my $opt_help = 0;
my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose
my $opt_rtagid;
my $opt_rootdir = '.';
my $opt_test;


#
#   Constants
#
my @ignoreList = qw (android-ndk Dinkumware_STL netbula);
#
#   Globals
#
my $DM_DB;              # Data Base Interface

#-------------------------------------------------------------------------------
# Function        : Main
#
# Description     : Main entry point
#                   Parse user options
#
# Inputs          :
#
# Returns         :
#

my $result = GetOptions (
                "help:+"            => \$opt_help,              # flag, multiple use allowed
                "manual:3"          => \$opt_help,              # flag, multiple use allowed
                "verbose:+"         => \$opt_verbose,           # flag
                "rtagid|rtag_id=s"  => \$opt_rtagid,            # Number
                "rootdir=s"         => \$opt_rootdir,           # string

                "test"              => \$opt_test,              # flag
                );

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

ErrorConfig( 'name'    => 'GenDeploy',
             'verbose' => $opt_verbose );

#
#   Sanity tests
#

# Supplied rootdir must exists as a directory
Error("Root dir not specified") 
    unless defined $opt_rootdir;
Error("Root dir not a valid directory: ", $opt_rootdir )
    unless( -d $opt_rootdir );

    # Environment var GBE_DPKG must exists as a directory
Error("GBE_DPKG Environment var is not a directory")
    unless ( -d $ENV{GBE_DPKG} );


#   Non Filter operations
#   Must supply an rtagid
Error("Need --rtagid", "Example: -rtagid=2362" )
    unless ($opt_rtagid);

#
#   This command is destined to be used in a directory where group permissions
#   are important. Ensure that the user is not killing group access
#
umask 0002;
Message("Copying packages from $ENV{GBE_DPKG} to $opt_rootdir");

#
#   Processing
#
connectRM(\$DM_DB);
GetPackageData();               # Get RM Data
exit 0;

#-------------------------------------------------------------------------------
# Function        : GetPackageData 
#
# Description     : Extract data from RM based on the provided rtag_id
#
# Inputs          : 
#
# Returns         : 
#
sub GetPackageData
{
    my $baseTar = 'stuff.tar';
    System ("tar cvf $baseTar --files-from /dev/null");


    my $m_sqlstr =  "SELECT p.PKG_NAME, pv.PKG_VERSION" .
                    " FROM package_versions pv, RELEASE_CONTENT rc, PACKAGES p" .
                    " WHERE rc.rtag_id = " . $opt_rtagid .
                    " AND rc.pv_id = pv.pv_id" .
                    " and p.PKG_ID = pv.pkg_id";

    my ( $PKG_NAME, $PKG_VERSION );
    my $sth = $DM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {
        if ( $sth->execute( ) )
        {
            if ( $sth->rows )
            {
                while ( ( $PKG_NAME, $PKG_VERSION ) = $sth->fetchrow_array )
                {
                    my $skip = 0;
                    foreach ( @ignoreList)
                    {
                        if (uc($_) eq uc($PKG_NAME))
                        {
                            $skip = 1;
                            last;;
                        }
                    }
                    next if $skip;


                    Verbose ("Deployable: $PKG_NAME, $PKG_VERSION");
                    my $pkgDir = "$ENV{GBE_DPKG}/$PKG_NAME";
                    my $srcDir = "$ENV{GBE_DPKG}/$PKG_NAME/$PKG_VERSION";
                    my $dstDir = $opt_rootdir;

                    if ( -d "$srcDir" )
                    {
                        my $tarName = join ( '_' , $PKG_NAME , $PKG_VERSION ) . '.tar.gz';
                        Message ("Processing: $tarName");
                        System("tar --transform 's,^\\.,$PKG_NAME/$PKG_VERSION,' --exclude='./lcov' --exclude='./utfResults' -rf $baseTar -C $srcDir .");
                    }
                    elsif ( ! -d "$pkgDir" )
                    {
                        # if srcDir and pkgDir dont exist then package is not in dpkg_archive so display message
                        Warning("Skipping Package $PKG_NAME/$PKG_VERSION as it does not exist in dpkg_archive");
                    }
                    else
                    {
                        # However if srcDir does not exist but pkgDir does exist then the package version is missing which maybe an issue
                        Warning("Missing Version $PKG_VERSION for Package $PKG_NAME in dpkg_archive");
                    }
                }

                Message ("Compressing the result");
                System ("gzip $baseTar");
            }
            else
            {
                Error("No Packages for rtagid: $opt_rtagid");
            }
            $sth->finish();
        }
        else
        {
            Error("Execute failure", $sth->errstr(), $m_sqlstr );
        }
    }
    else
    {
        Error("Prepare failure", $sth->errstr(), $m_sqlstr );
    }
}

#-------------------------------------------------------------------------------
#   Documentation
#

=pod

=for htmltoc    DEPLOY::jats_extract_packages

=head1 NAME

jats_extract_packages - Generate a tarzip for all packages in a release

=head1 SYNOPSIS

  jats jats_extract_packages [options]

 Options:
    -help                   - Brief help message
    -help -help             - Detailed help message
    -man                    - Full documentation
    -rtagid=xxx             - Specify the Release Manager RtagId to process
    -rootdir=xxx            - Specifies the root of the releases directory

    -test                   - Just log actions without copying files.
    -verbose                - Enable verbose output

=head1 OPTIONS

=over 8

=item B<-help>

Print a brief help message and exits.

=item B<-help -help>

Print a detailed help message with an explanation for each option.

=item B<-man>

Prints the manual page and exits.

=item B<-rtagid=xxx>

This option specifies one or more RTAG_ID's to use as the source of packages that will be copied.
The ID will be used to get a unique list of package/versions that can be copied from dpkg_archive.

This option is Mandatory, for non-filter command.

=item B<-rootdir=xxx>

This option specifies the root directory where the packages will be copied to.

The specified directory must exist.

The default value is the current directory.

=item B<-test>

This option will display what would be copied without actually copying anything

=item B<-verbose>

This option will display progress information as the program executes.

=back

=head1 DESCRIPTION

This program is a temp kludge to keep the IT developers happy.

It will create a tar.gz file of all the packages in a specified release in a dpkg_archive structure.

=cut