Subversion Repositories DevTools

Rev

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

Rev 321 Rev 341
Line 66... Line 66...
66
my $opt_branch;                             # Create config spec with branch
66
my $opt_branch;                             # Create config spec with branch
67
my $opt_debug_build = 0;                    # Build Debug Only
67
my $opt_debug_build = 0;                    # Build Debug Only
68
my $opt_prod_build = 0;                     # Build ion Only
68
my $opt_prod_build = 0;                     # Build ion Only
69
my $opt_view_root = $ENV{'GBE_VIEWBASE'};   # Root of the view
69
my $opt_view_root = $ENV{'GBE_VIEWBASE'};   # Root of the view
70
my $opt_prefix = 1;                         # Prefix the view tag with user-name
70
my $opt_prefix = 1;                         # Prefix the view tag with user-name
71
my $bad_label_name = 0;                    # Badly formed label
71
my $bad_label_name = 0;                     # Badly formed label
72
 
72
 
73
#
73
#
74
#   Globals - Provided by the JATS environment
74
#   Globals - Provided by the JATS environment
75
#
75
#
76
my $USER            = $ENV{'USER'};
76
my $USER            = $ENV{'USER'};
Line 288... Line 288...
288
}
288
}
289
else
289
else
290
{
290
{
291
    #
291
    #
292
    #   Create a view name based on the provide 'label'
292
    #   Create a view name based on the provide 'label'
293
    #       - If a package name and version can be found - then use it
-
 
294
    #       - Insert branch name if required
-
 
295
    #       - Use full user path if all else fails
-
 
296
    #
293
    #
297
    if ( $svn_label->Type )
294
    if ( $svn_label->Type )
298
    {
295
    {
299
        $opt_viewname = $svn_label->Package;
296
        $opt_viewname = $svn_label->Path;
300
        $opt_viewname .= '_' . ($svn_label->Version || 'trunk');
297
        $opt_viewname .= '_' . ($svn_label->Version || 'trunk');
301
    }
298
    }
302
    else
299
    else
303
    {
300
    {
304
        $opt_viewname = $svn_label->Path;
301
        $opt_viewname = $svn_label->Path;
Line 313... Line 310...
313
    
310
    
314
    #
311
    #
315
    #   Create a singe dir name
312
    #   Create a singe dir name
316
    #   Remove path sep characters and replace with _
313
    #   Remove path sep characters and replace with _
317
    #
314
    #
318
    $opt_viewname =~ tr~\\/~_~s;
315
    $opt_viewname =~ tr~\\/:~_~s;
319
 
316
 
320
}
317
}
321
$opt_viewname =~ s~^$view_prefix~~ if (defined($opt_viewname) && $view_prefix && $opt_delete );
318
$opt_viewname =~ s~^$view_prefix~~ if (defined($opt_viewname) && $view_prefix && $opt_delete );
322
 
319
 
323
#
320
#