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