Subversion Repositories DevTools

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

# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.

#

# Module name   : rmMerge_process.pl

# Module type   : JATS Utility

# Compiler(s)   : Perl

# Environment(s): jats

#

# Description   : Transfer a package from New dpkg_archive to the old dpkg_archive

#                 

#

# Usage         : See POD at the end of this file

#

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

require 5.008_002;

use strict;

use warnings;

use Pod::Usage;

use Getopt::Long;

use JatsError;

use JatsRmApi;

use JatsSystem;

use FileUtils;

use ConfigurationFile;

use JatsProperties;

use File::Copy;

use DBI;

my $RM_DB;

my $opt_help=0;

my $opt_verbose=0;

my $opt_debug=0;

my $opt_replace;

my $VERSION = "1.0";

my $newDpkg = '/net/auawsaarc002/export/devl/dpkg_archive';

my $oldDpkg = '/export/devl/dpkg_archive';

my $pname;

my $pversion;

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

# Function        : Mainline Entry Point

#

# Description     :

#

# Inputs          :

#

my $result = GetOptions (

                "help:+"        => \$opt_help,

                "manual:3"      => \$opt_help,

                "verbose:+"     => \$opt_verbose,

                "debug:+"       => \$opt_debug,

                "replace!"      => \$opt_replace,

                );

                #

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

pod2usage(-verbose => 0, -message => "Version: $VERSION") if ( $#ARGV != 1 );

#

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

#

ErrorConfig( 'name'    =>'DPKG_TRANSFER',

             'verbose' => $opt_verbose,

             'debug' => $opt_debug,

            );

#

# 

$pname = $ARGV[0];  

$pversion = $ARGV[1];

#

#   Ensure the pakage exists in the 'pulse' dpkg_archive

#

testPath($newDpkg);

testPath($oldDpkg);

my $srcDir = testPath( catdir($newDpkg, $pname, $pversion));

my $dstDir = catdir ($oldDpkg, $pname);

my $dstPkg = catdir ($oldDpkg, $pname, $pversion);

Message("Source: $srcDir") ;

Message("Target: $dstDir");

Error ("Package aleady exists: $dstPkg ") if -x $dstPkg;

if ( ! -d $dstDir) {

    Message ("Create Package directory");

    mkdir $dstDir;

}

testPath( $dstDir );

System ('--Show','cp', '-a', $srcDir, $dstDir);

Error("Package not copied") unless -d $dstPkg;

#   Need to set the facl stuff - its not done by the 'cp' command 

System('setfacl', '-R', '-x', 'user:releasem',$dstPkg);

System('setfacl', '-R', '-x', 'user:buildadm',$dstPkg);

System('setfacl', '-R', '-x', 'group:ccperdev',$dstPkg);

System('setfacl', '-R', '-m', 'default:user:buildadm:rwx','-m','default:user::rwx','-m','mask::r-x',$dstPkg);

System('setfacl', '-R', '-m', 'user::r-X,group::r-X,other::r-X',$dstPkg);

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

# Function        : testPath 

#

# Description     : Test that a directory exists

#

# Inputs          : $path

#

# Returns         : 

#

sub testPath

{

    my ($path) = @_;

    Debug("Testing: $path");

    return $path if -d $path;

    Error ("Path not found: $path");

}

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

#   Documentation

#

=pod

=for htmltoc    GENERAL::ClearCase::

=head1 NAME

rmMerge_transfer_dpkg - Transfer package

=head1 SYNOPSIS

jats rmMerge_transfer_dpkg [options] PackageName PackageVersion

 Options:

    -help              - brief help message

    -help -help        - Detailed help message

    -man               - Full documentation

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

=back

=head1 EXAMPLE

jats rmMerge_transfer_dpkg PackageName PackageVersion

=cut