Subversion Repositories DevTools

Rev

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

Rev 363 Rev 365
Line 118... Line 118...
118 
 
 118 
 
119 
    $stdmux = LocateProgInPath ( 'stdmux');
 119 
    $stdmux = LocateProgInPath ( 'stdmux');
120 
    $svn    = LocateProgInPath ( 'svn', '--All', '--Path=' . $::GBE_SVN_PATH );
 120 
    $svn    = LocateProgInPath ( 'svn', '--All', '--Path=' . $::GBE_SVN_PATH );
121 
 
 121 
 
122 
    #
 122 
    #
- 
 
 123 
    #   Don't report errors in not finding svn and stdmux
- 
 
 124 
    #   Need to allow the help system to work.
- 
 
 125 
    #
- 
 
 126 
 
- 
 
 127 
    #
123 
    #   Extract GBE_SVN_XXXX_URL information from the environment
 128 
    #   Extract GBE_SVN_XXXX_URL information from the environment
124 
    #       XXXX is the first element of the repository path and will
 129 
    #       XXXX is the first element of the repository path and will
125 
    #            be globally (ERG) unique
 130 
    #            be globally (ERG) unique
126 
    #       The value will be the URL to access this named repository path
 131 
    #       The value will be the URL to access this named repository path
127 
    #       It will normally include the repository path
 132 
    #       It will normally include the repository path
Line 903... Line 908...
903 
    my $opt;
 908 
    my $opt;
904 
    $opt = pop @_
 909 
    $opt = pop @_
905 
        if (@_ > 0 and UNIVERSAL::isa($_[-1],'HASH'));
 910 
        if (@_ > 0 and UNIVERSAL::isa($_[-1],'HASH'));
906 
 
 911 
 
907 
    Verbose2 "SvnUserCmd $svn @_";
 912 
    Verbose2 "SvnUserCmd $svn @_";
908 
 
 913
- 
 
 914 
    #
- 
 
 915 
    #   Delayed error reporting
- 
 
 916 
    #   Allows the the package to be used when SVN is not installed
- 
 
 917 
    #   as long as we don't want to use any of the features
- 
 
 918 
    #
- 
 
 919 
    #   Think of 'help' when svn is not yet installed
- 
 
 920 
    #
- 
 
 921 
    Error ("The JATS stdmux utility cannot be found" ) unless ( $stdmux );
- 
 
 922 
    Error ("The svn utility cannot be found", "Configured Path: $::GBE_SVN_PATH") unless ( $svn );
- 
 
 923
909 
    #
 924 
    #
910 
    #   Prepend credentials, but don't show to users
 925 
    #   Prepend credentials, but don't show to users
911 
    #
 926 
    #
912 
    unshift @_, SvnCredentials() if ( $opt->{'credentials'} );
 927 
    unshift @_, SvnCredentials() if ( $opt->{'credentials'} );
913 
 
 928