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 
#