Subversion Repositories DevTools

Rev

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

Rev 6177 Rev 7262
Line 21... Line 21...
21 
use JatsError;
 21 
use JatsError;
22 
use JatsSvn;
 22 
use JatsSvn;
23 
 
 23 
 
24 
use Pod::Usage;                             # required for help support
 24 
use Pod::Usage;                             # required for help support
25 
use Getopt::Long;
 25 
use Getopt::Long;
26 
use Cwd;
 26 
use FileUtils;
27 
 
 27 
 
28 
my $VERSION = "1.0.0";                      # Update this
 28 
my $VERSION = "1.0.0";                      # Update this
29 
 
 29 
 
30 
#
 30 
#
31 
#   Options
 31 
#   Options
Line 102... Line 102...
102 
pod2usage(-verbose => 2) if ($opt_help > 2);
 102 
pod2usage(-verbose => 2) if ($opt_help > 2);
103 
 
 103 
 
104 
#
 104 
#
105 
#   Configure the error reporting process now that we have the user options
 105 
#   Configure the error reporting process now that we have the user options
106 
#
 106 
#
- 
 
 107 
InitFileUtils();
107 
ErrorConfig( 'name'    =>'SVNLABEL',
 108 
ErrorConfig( 'name'    =>'SVNLABEL',
108 
             'verbose' => $opt_verbose,
 109 
             'verbose' => $opt_verbose,
109 
            );
 110 
            );
110 
 
 111 
 
111 
#
 112 
#
Line 431... Line 432...
431 
    #   Every thing else can live without it
 432 
    #   Every thing else can live without it
432 
    #
 433 
    #
433 
    Error ("Cannot determine source Workspace") if ( $opt_label && !$ws_root );
 434 
    Error ("Cannot determine source Workspace") if ( $opt_label && !$ws_root );
434 
 
 435 
 
435 
    #
 436 
    #
- 
 
 437 
    #   If operation is 'label', then we have a Workspace
- 
 
 438 
    #   Ensure that we are in the 'root' of the workspace - otherwise we will get cryptic messages
- 
 
 439 
    #
- 
 
 440 
    if ( $opt_label && $ws_root  && !$opt_workspace) {
- 
 
 441 
        my $pathToRoot = RelPath($ws_root);
- 
 
 442 
        if ( $pathToRoot =~ m~^..~) {
- 
 
 443 
            Warning("Current directory is the not the workspace root",
- 
 
 444 
                    "The 'svn update' command will not update the entire workspace");
- 
 
 445 
        }
- 
 
 446 
    }
- 
 
 447 
 
- 
 
 448 
    #
436 
    #   Calculate the package base
 449 
    #   Calculate the package base
437 
    #       - User specified
 450 
    #       - User specified
438 
    #       - Extacted from label
 451 
    #       - Extacted from label
439 
    #       - Extracted from WorkSpace
 452 
    #       - Extracted from WorkSpace
440 
    #           - User specified Workspace
 453 
    #           - User specified Workspace