Subversion Repositories DevTools

########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : jats_svn_list.pl
# Module type   : Makefile system
# Compiler(s)   : Perl
# Environment(s): jats
#
# Description   : List packages in a Repo
#
#......................................................................#

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

#
#   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_repo;                                   # Repo to list

#-------------------------------------------------------------------------------
# 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
                'repo:s'        => \$opt_repo,
                );

                #
                #   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'    =>'SVNLIST',
             'verbose' => $opt_verbose,
            );


#
#   Assume there are two arguemnts
#       Package Name
#       Package Version
#
$opt_repo = $ARGV[0] unless ( $opt_repo );

Error ("Need to specify a REPO" )
    unless ( $opt_repo );

#
#   Ensure that the package version does not already exist
#
#
#   Create an SVN session
#
my $svn = NewSessionByUrl ( $opt_repo );
#DebugDumpData("svn", $svn );
my ($plist, $tlist) = $svn->SvnListPackages( $svn->Full(),
                        {
                        Progress => 1,
                        Branch => 'ITSO_HOPS_3',
                        Show => 0,
                        } );
#DebugDumpData("Packages", $plist );
DebugDumpData("Tags", $tlist );

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