Subversion Repositories DevTools

Rev

Rev 392 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 392 Rev 1197
Line 39... Line 39...
39 
my $opt_label;
 39 
my $opt_label;
40 
my $opt_package;
 40 
my $opt_package;
41 
my $opt_version;
 41 
my $opt_version;
42 
my $opt_GBE_DPKG_STORE = $ENV{'GBE_DPKG_STORE'};
 42 
my $opt_GBE_DPKG_STORE = $ENV{'GBE_DPKG_STORE'};
43 
my $opt_GBE_DPKG = $ENV{'GBE_DPKG'};
 43 
my $opt_GBE_DPKG = $ENV{'GBE_DPKG'};
44 
my $opt_repo = 'AUPERASVN01/ddpTest';
 44 
my $opt_repo = 'AUPERASVN01/Import_test';
45 
my $vob_prefix = $ENV{'GBE_UNIX'} ? '/vobs' : '';
 45 
my $vob_prefix = $ENV{'GBE_UNIX'} ? '/vobs' : '';
- 
 
 46 
my $opt_author;
- 
 
 47 
my $opt_date;
46 
 
 48 
 
47 
#
 49 
#
48 
#   Globals
 50 
#   Globals
49 
#
 51 
#
50 
my $opr_done;                                   # User has done something
 52 
my $opr_done;                                   # User has done something
Line 63... Line 65...
63 
                "path=s"        => \$opt_path,              # String
 65 
                "path=s"        => \$opt_path,              # String
64 
                "label=s"       => \$opt_label,             # String
 66 
                "label=s"       => \$opt_label,             # String
65 
                "package=s"     => \$opt_package,           # String
 67 
                "package=s"     => \$opt_package,           # String
66 
                "repo=s"        => \$opt_repo,              # String
 68 
                "repo=s"        => \$opt_repo,              # String
67 
                "version=s"     => \$opt_version,           # String
 69 
                "version=s"     => \$opt_version,           # String
- 
 
 70 
                'author=s'      => \$opt_author,
- 
 
 71 
                'date=s'        => \$opt_date,
- 
 
 72
68 
 
 73 
 
69 
                );
 74 
                );
70 
 
 75 
 
71 
                #
 76 
                #
72 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
 77 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
Line 138... Line 143...
138 
#
 143 
#
139 
#   Ensure that the required label is available
 144 
#   Ensure that the required label is available
140 
#
 145 
#
141 
$opt_label = SvnIsaSimpleLabel ($opt_label);
 146 
$opt_label = SvnIsaSimpleLabel ($opt_label);
142 
my $url_label = $svn->BranchName( $opt_label, 'branches' );
 147 
my $url_label = $svn->BranchName( $opt_label, 'branches' );
143 
my  $rv = $svn->SvnValidateTarget (
 148 
my $rv = $svn->SvnValidateTarget (
144 
                          'target' => $url_label,
 149 
                          'target' => $url_label,
145 
                          'available' => 1,
 150 
                          'available' => 1,
146 
                          'test' => 1,
 151 
                          'test' => 1,
147 
                        );
 152 
                        );
148 
if ( ! $rv )
 153 
if ( ! $rv )
Line 165... Line 170...
165 
#   Configure JatsTool
 170 
#   Configure JatsTool
166 
#
 171 
#
167 
SystemConfig ('ExitOnError' => 1);
 172 
SystemConfig ('ExitOnError' => 1);
168 
 
 173 
 
169 
#
 174 
#
- 
 
 175 
#   Create subversion options
- 
 
 176 
#       Set author
- 
 
 177 
#       Set insertion date
- 
 
 178 
#           Expecting Clearcase format: 2011-08-30T13:49:21+08
- 
 
 179 
#           Need 'YYYY-MM-DDTHH:MM:SS.MMMMMMZ'
- 
 
 180 
#
- 
 
 181 
my @svnOpts;
- 
 
 182 
push (@svnOpts, '-author', $opt_author )if $opt_author;
- 
 
 183 
if ( $opt_date )
- 
 
 184 
{
- 
 
 185 
        $opt_date =~ s~ ~T~;
- 
 
 186 
        $opt_date =~ s~\+.*~~;
- 
 
 187 
        $opt_date .= '.0000000Z';
- 
 
 188 
        push @svnOpts, '-date', $opt_date;
- 
 
 189 
    }
- 
 
 190 
 
- 
 
 191 
 
- 
 
 192 
#
170 
#   Create a copy of the package
 193 
#   Create a copy of the package
171 
#
 194 
#
172 
JatsTool ( 'jats_svn', 'create',  "$opt_repo/$opt_package" );
 195 
#JatsTool ( 'jats_svn', 'create',  "$opt_repo/$opt_package", @svnOpts );
173 
JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extract', '-extract', '-root=.' , '-noprefix', "-path=$opt_path");
 196 
#JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extract', '-root=.' , '-noprefix', "-path=$opt_path");
174 
JatsTool ( 'jats_svn', 'import', '-reuse' ,"-package=$opt_repo/$opt_package", "-dir=$opt_label$vob_prefix/$opt_path", "-label=$opt_label" );
 197 
#JatsTool ( 'jats_svn', 'import', '-reuse' ,"-package=$opt_repo/$opt_package", "-dir=$opt_label$vob_prefix/$opt_path", "-label=$opt_label", @svnOpts );
175 
JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extract', '-root=.' , '-noprefix', "-path=$opt_path", -'delete');
 198 
#JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extract', '-root=.' , '-noprefix', "-path=$opt_path", '-delete');
- 
 
 199 
 
- 
 
 200 
SystemConfig ('ExitOnError' => 0);
- 
 
 201 
JatsTool ( 'jats_svn', 'create',  "$opt_repo/$opt_package", @svnOpts );
- 
 
 202 
JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extractfiles', '-root=.' , '-noprefix', "-path=$opt_path");
- 
 
 203 
JatsTool ( 'jats_svn', 'import', '-reuse' ,"-package=$opt_repo/$opt_package", "-dir=$opt_label$opt_path", "-label=$opt_label", @svnOpts );
- 
 
 204 
JatsTool ( 'jats_ccrelease', "-label=$opt_label" , '-extractfiles', '-root=.' , '-noprefix', "-path=$opt_path", '-delete');
- 
 
 205 
 
176 
 
 206 
 
177 
 
 207 
 
178 
#-------------------------------------------------------------------------------
 208 
#-------------------------------------------------------------------------------
179 
# Function        : GetData
 209 
# Function        : GetData
180 
#
 210 
#