WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/jats_svnrelease.pl



push @opt_spec, @ARGV;
 
unless(  @opt_spec  )
{
    Error ("Need a view or a label. -help for options") if ( $opt_delete  && ! $opt_viewname );
    Error ("Need a label or URL. -help for options") unless $opt_delete;
}
 
#
#   Convert label with embedded VCS information into a 'normal' form.
#   Form:

    Error ("Multiple labels not supported",
           "Use one label to describe a package" );
}
 
#
#   Check branch and tags names
#
if ( $opt_branch )
{
#    Error ("Branch Name cannot start with '-'") if ( $opt_branch =~ m/^-/ );
    $opt_branch = SvnIsaSimpleLabel($opt_branch);
}
 
#
#   User has specified both debug and production
#   Then set both to 0 : ie default
#
if ( $opt_debug_build + $opt_prod_build > 1 )
{

#   of multiple views and reduce the risk of unexpected deletion
#
if ( $opt_viewname )
{
    Error ("View Name contains invalid characters" )
        unless ( $opt_viewname =~ m~^[0-9a-z]([-.:0-9a-z_]*[0-9a-z])?$~i )
}
else
{
    #
    #   Create a view name based on the provide 'label'
    #   Unless creating a branch. Branch name will be appended later
    #
    if ( $svn_label->Type )
    {
        $opt_viewname = $svn_label->Path;
        $opt_viewname .= '_' . ($svn_label->Version || 'trunk') unless $opt_branch;
 
        #
        #   Tags and Branches 'should' include the package name
        #   This will lead to a duplication of the package name
        #   ie: aaaaa/package/tags/package_version

location will be the root directory of the development sandbox.
 
=item B<-branch=xxx or -mkbranch=xxx>
 
This option will create workspace branch that is tagged with the named branch.
This is intended to facilitate the maintenance of existing packages and the
creation of private development branches.
 
The named branch must NOT exist within the subversion repository. The script will
check for its existence.
 
The tool will copy the specified source version to the branch and then create a
workspace based on the branch.
 
A branch name of TIMESTAMP will be treated in special manner. The name will be
replaced with a unique name based on the users name and the current date time.
 
=item B<-tag=text>
 
This option is not used.
It is present to maintain compatability with the buildtool interface.
 

Rev 363	Rev 383
Line 172...	Line 172...
172	`push @opt_spec, @ARGV;`	172	`push @opt_spec, @ARGV;`
173		173
174	`unless( @opt_spec )`	174	`unless( @opt_spec )`
175	`{`	175	`{`
176	`Error ("Need a view or a label. -help for options") if ( $opt_delete && ! $opt_viewname );`	176	`Error ("Need a view or a label. -help for options") if ( $opt_delete && ! $opt_viewname );`
177	`Error ("Need a label or config_spec. -help for options") unless $opt_delete;`	177	`Error ("Need a label or URL. -help for options") unless $opt_delete;`
178	`}`	178	`}`
179		179
180	`#`	180	`#`
181	`# Convert label with embedded VCS information into a 'normal' form.`	181	`# Convert label with embedded VCS information into a 'normal' form.`
182	`# Form:`	182	`# Form:`
Line 203...	Line 203...
203	`Error ("Multiple labels not supported",`	203	`Error ("Multiple labels not supported",`
204	`"Use one label to describe a package" );`	204	`"Use one label to describe a package" );`
205	`}`	205	`}`
206		206
207	`#`	207	`#`
-		208	`# Check branch and tags names`
-		209	`#`
-		210	`if ( $opt_branch )`
-		211	`{`
-		212	`# Error ("Branch Name cannot start with '-'") if ( $opt_branch =~ m/^-/ );`
-		213	`$opt_branch = SvnIsaSimpleLabel($opt_branch);`
-		214	`}`
-		215
-		216	`#`
208	`# User has specified both debug and production`	217	`# User has specified both debug and production`
209	`# Then set both to 0 : ie default`	218	`# Then set both to 0 : ie default`
210	`#`	219	`#`
211	`if ( $opt_debug_build + $opt_prod_build > 1 )`	220	`if ( $opt_debug_build + $opt_prod_build > 1 )`
212	`{`	221	`{`
Line 269...	Line 278...
269	`# of multiple views and reduce the risk of unexpected deletion`	278	`# of multiple views and reduce the risk of unexpected deletion`
270	`#`	279	`#`
271	`if ( $opt_viewname )`	280	`if ( $opt_viewname )`
272	`{`	281	`{`
273	`Error ("View Name contains invalid characters" )`	282	`Error ("View Name contains invalid characters" )`
274	`unless ( $opt_viewname =~ m~^[-.:0-9a-zA-Z_]+$~ )`	283	`unless ( $opt_viewname =~ m~^[0-9a-z]([-.:0-9a-z_]*[0-9a-z])?$~i )`
275	`}`	284	`}`
276	`else`	285	`else`
277	`{`	286	`{`
278	`#`	287	`#`
279	`# Create a view name based on the provide 'label'`	288	`# Create a view name based on the provide 'label'`
-		289	`# Unless creating a branch. Branch name will be appended later`
280	`#`	290	`#`
281	`if ( $svn_label->Type )`	291	`if ( $svn_label->Type )`
282	`{`	292	`{`
283	`$opt_viewname = $svn_label->Path;`	293	`$opt_viewname = $svn_label->Path;`
284	`$opt_viewname .= '_' . ($svn_label->Version \|\| 'trunk');`	294	`$opt_viewname .= '_' . ($svn_label->Version \|\| 'trunk') unless $opt_branch;`
285		295
286	`#`	296	`#`
287	`# Tags and Branches 'should' include the package name`	297	`# Tags and Branches 'should' include the package name`
288	`# This will lead to a duplication of the package name`	298	`# This will lead to a duplication of the package name`
289	`# ie: aaaaa/package/tags/package_version`	299	`# ie: aaaaa/package/tags/package_version`
Line 991...	Line 1001...
991	`location will be the root directory of the development sandbox.`	1001	`location will be the root directory of the development sandbox.`
992		1002
993	`=item B<-branch=xxx or -mkbranch=xxx>`	1003	`=item B<-branch=xxx or -mkbranch=xxx>`
994		1004
995	`This option will create workspace branch that is tagged with the named branch.`	1005	`This option will create workspace branch that is tagged with the named branch.`
996	`This is intended to facilitate the maintenance of existing packages - the`	1006	`This is intended to facilitate the maintenance of existing packages and the`
997	`creation of a patch.`	1007	`creation of private development branches.`
998		1008
999	`The named branch must NOT exist within the subversion repository. The script will`	1009	`The named branch must NOT exist within the subversion repository. The script will`
1000	`check for its existence.`	1010	`check for its existence.`
1001		1011
1002	`The tool will copy the specified source version to the branch and then create a`	1012	`The tool will copy the specified source version to the branch and then create a`
1003	`workspace based on the branch.`	1013	`workspace based on the branch.`
1004		1014
-		1015	`A branch name of TIMESTAMP will be treated in special manner. The name will be`
-		1016	`replaced with a unique name based on the users name and the current date time.`
-		1017
1005	`=item B<-tag=text>`	1018	`=item B<-tag=text>`
1006		1019
1007	`This option is not used.`	1020	`This option is not used.`
1008	`It is present to maintain compatability with the buildtool interface.`	1021	`It is present to maintain compatability with the buildtool interface.`
1009		1022

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats_svnrelease.pl – Rev 363 → 383