Subversion Repositories DevTools

Rev

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

Rev 361 Rev 375
Line 103... Line 103...
103 
#   Validate user options
 103 
#   Validate user options
104 
#   Need one command line argument
 104 
#   Need one command line argument
105 
#
 105 
#
106 
Error ("No labels provided") if ( $#ARGV < 0 && !$opt_list );
 106 
Error ("No labels provided") if ( $#ARGV < 0 && !$opt_list );
107 
Error ("Too many labels provided") if ( $#ARGV > 0);
 107 
Error ("Too many labels provided") if ( $#ARGV > 0);
108 
Error ("Conflicting options") if ( $opt_clone && $opt_label );
 108 
Error ("Conflicting options. Clone and Label") if ( $opt_clone && $opt_label );
- 
 
 109 
Error ("Conflicting options. Rename and Label") if ( $opt_rename && $opt_label );
109 
$label = $ARGV[0];
 110 
$label = $ARGV[0];
110 
 
 111 
 
111 
#
 112 
#
112 
#   Locate package and workspace roots
 113 
#   Locate package and workspace roots
113 
#
 114 
#
Line 356... Line 357...
356 
        #   User has given us the package base
 357 
        #   User has given us the package base
357 
        #
 358 
        #
358 
        $session = NewSessionByUrl ( $opt_packagebase, 0, $session );
 359 
        $session = NewSessionByUrl ( $opt_packagebase, 0, $session );
359 
        $session->SvnValidatePackageRoot();
 360 
        $session->SvnValidatePackageRoot();
360 
    }
 361 
    }
361 
    elsif ( $label && $label =~ m~(.+)(/(tags|branches|trunk)(/|@)(.+))~ )
 362 
    elsif ( (!$opt_label ) && $label && $label =~ m~(.+)(/(tags|branches|trunk)(/|@)(.+))~ )
362 
    {
 363 
    {
363 
        #
 364 
        #
364 
        #   Attempt to extract it from the label
 365 
        #   Attempt to extract it from the label, but only if we are not
- 
 
 366 
        #   labeling a sandbox.
365 
        #   Remove it from the label
 367 
        #   Remove it from the label
366 
        #
 368 
        #
367 
        $src_label = $2;
 369 
        $src_label = $2;
368 
        $label = $5;
 370 
        $label = $5;
369 
        $session = NewSessionByUrl ( $1, 0, $session );
 371 
        $session = NewSessionByUrl ( $1, 0, $session );
Line 528... Line 530...
528 
 
 530 
 
529 
available - check non-existance of a label
 531 
available - check non-existance of a label
530 
 
 532 
 
531 
=item   *
 533 
=item   *
532 
 
 534 
 
533 
list - list the label on a package
 535 
list - list the labels on a package
534 
 
 536 
 
535 
=item   *
 537 
=item   *
536 
 
 538 
 
537 
rename - rename a label
 539 
rename - rename a label
538 
 
 540