Subversion Repositories DevTools

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

# Copyright (C) 2009 ERG Limited, All rights reserved

#

# Module name   : svn_pump.pl

# Module type   : Makefile system

# Compiler(s)   : Perl

# Environment(s): jats

#

# Description   : Pump package into subversion

#

#                 jats svn_pump [options] [packageName PackageVersion]

#

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

require 5.008_002;

use strict;

use warnings;

use Pod::Usage;

use Getopt::Long;

use JatsError;

use JatsSystem;

use JatsRmApi;

use JatsSvn qw(:All);

use JatsCopy;

my $VERSION = "1.0.0";                          # Update this

my $RM_DB;

#

#   Options

#

my $opt_debug   = $ENV{'GBE_DEBUG'};            # Allow global debug

my $opt_verbose = $ENV{'GBE_VERBOSE'};          # Allow global verbose

my $opt_help = 0;

my $opt_path;

my $opt_label;

my $opt_package;

my $opt_version;

my $opt_GBE_DPKG_STORE = $ENV{'GBE_DPKG_STORE'};

my $opt_GBE_DPKG = $ENV{'GBE_DPKG'};

my $opt_repo = 'AUPERASVN01/ddpTest';

my $vob_prefix = $ENV{'GBE_UNIX'} ? '/vobs' : '';

#

#   Globals

#

my $opr_done;                                   # User has done something

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

# Function        : Mainline Entry Point

#

# Description     :

#

# Inputs          :

#

my $result = GetOptions (

                "help:+"        => \$opt_help,              # flag, multiple use allowed

                "manual:3"      => \$opt_help,              # flag

                "verbose:+"     => \$opt_verbose,           # flag, multiple use allowed

                "path=s"        => \$opt_path,              # String

                "label=s"       => \$opt_label,             # String

                "package=s"     => \$opt_package,           # String

                "repo=s"        => \$opt_repo,              # String

                "version=s"     => \$opt_version,           # String

                );

                #

                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!

                #

#

#   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'    =>'PUMP',

             'verbose' => $opt_verbose,

            );

unless ( $opt_package && $opt_version )

{

    $opt_package = $ARGV[0];

    $opt_version = $ARGV[1];

}

#

#   Assume there are two arguemnts

#       Package Name

#       Package Version

#

Error ("Need PackageName PackageVersion" )

    unless ( $opt_package && $opt_version );

#

#   Extract data from RM, but only if it was not provided

#

unless ( $opt_label && $opt_path )

{

    GetData ( $opt_package, $opt_version );

}

#

#   Transfer dpkg_archive entry

#

if ( $opt_GBE_DPKG_STORE && $opt_GBE_DPKG )

{

    unless ( -f "$opt_GBE_DPKG_STORE/$opt_package/$opt_version/descpkg" )

    {

        if ( -f "$opt_GBE_DPKG/$opt_package/$opt_version/descpkg" )

        {

            Message ("Transfer package: $opt_package, $opt_version");

            CopyDir ( "$opt_GBE_DPKG/$opt_package/$opt_version",

                      "$opt_GBE_DPKG_STORE/$opt_package/$opt_version",

                      {'Log' => 0 } );

        }

    }

}

#

#   Ensure that the package version does not already exist

#

#

#   Create an SVN session

#

my $svn = NewSessionByUrl ( "$opt_repo/$opt_package/trunk" );

#

#   Ensure that the required label is available

#

$opt_label = SvnIsaSimpleLabel ($opt_label);

my $url_label = $svn->BranchName( $opt_label, 'branches' );

my  $rv = $svn->SvnValidateTarget (

                          'target' => $url_label,

                          'available' => 1,

                          'test' => 1,

                        );

if ( ! $rv )

{

    $url_label = $svn->BranchName( $opt_label, 'tags' );

    $rv = $svn->SvnValidateTarget (

                          'target' => $url_label,

                          'available' => 1,

                          'test' => 1,

                        );

}

if ( $rv )

{

    Message ("Package Version in repo: $opt_repo $opt_package, $opt_version");

    exit (0);

}

#

#   Configure JatsTool

#

SystemConfig ('ExitOnError' => 1);

#

#   Create a copy of the package

#

JatsTool ( 'jats_svn', 'create',  "$opt_repo/$opt_package" );

JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extract', '-extract', '-root=.' , '-noprefix', "-path=$opt_path");

JatsTool ( 'jats_svn', 'import', '-reuse' ,"-package=$opt_repo/$opt_package", "-dir=$opt_label$vob_prefix/$opt_path", "-label=$opt_label" );

JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extract', '-root=.' , '-noprefix', "-path=$opt_path", -'delete');

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

# Function        : GetData

#

# Description     :

#

# Inputs          : pkg_name

#                   pkg_ver

#

# Returns         :

#

sub GetData

{

    my ( $pkg_name, $pkg_ver ) = @_;

    my (@row);

    my $pv_id;

    #

    #   Establish a connection to Release Manager

    #

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

    #

    #   Extract data from Release Manager

    #

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

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

                   " WHERE pkg.PKG_NAME = \'$pkg_name\' AND pkg.PKG_ID = pv.PKG_ID AND pv.PKG_VERSION = \'$pkg_ver\' AND pv.PV_ID = pbi.PV_ID";

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

    if ( defined($sth) )

    {

        if ( $sth->execute( ) )

        {

            if ( $sth->rows )

            {

                while ( @row = $sth->fetchrow_array )

                {

                    Verbose( "DATA: " . join(',', @row) );

                    $opt_path = $row[4]  || 'None Specified';

                    $opt_label = $row[6] || 'NoLabel';

                    $opt_path =~ s~\\~/~g;

                    Message "$pkg_name, $pkg_ver $opt_label, $opt_path";

                    last;

                }

            }

            else

            {

                Error("GetData:No Data: $pkg_name, $pkg_ver" );

            }

            $sth->finish();

        }

        else

        {

            Error("GetData:Execute failure" );

        }

    }

    else

    {

        Error("GetData:Prepare failure" );

    }

}

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

#   Documentation

#

=pod

=head1 NAME

svn_pump - Pump packages from ClearCase to Subversion

=head1 SYNOPSIS

  jats svn_pump [options] [packageName PackageVersion]

 Options:

    -help              - brief help message

    -help -help        - Detailed help message

    -man               - Full documentation

    -path=name         - ClearCase path to source

    -label=text        - ClearCase label of source

    -package=name      - Package Name

    -version=text      - Package Name

    -repo=url          - Base URL of the Repo

=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.

=back

=head1 DESCRIPTION

This program will extract a package from clearcase and put it into a

subversion repository.

If -label and -path are not provided, the program will use the RM database

to determine the values.

=cut