Subversion Repositories DevTools

Rev

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

Rev 6619 Rev 6653
Line 343... Line 343...
343
#                       revision    - ref to returned revision tag
343
#                       revision    - ref to returned revision tag
344
#                       tag         - ref to URL of the Check In
344
#                       tag         - ref to URL of the Check In
345
#                       replace     - True: Delete existing tag if present
345
#                       replace     - True: Delete existing tag if present
346
#                       cmd         - Error Prefix
346
#                       cmd         - Error Prefix
347
#                       validated   - Locations already validated
347
#                       validated   - Locations already validated
-
 
348
#                       parents     - Create parents as required
348
#
349
#
349
# Returns         : Revision of the copy
350
# Returns         : Revision of the copy
350
#
351
#
351
sub SvnCopy
352
sub SvnCopy
352
{
353
{
Line 386... Line 387...
386
    #   Copy the URLs
387
    #   Copy the URLs
387
    #
388
    #
388
    SvnCmd ($self   , 'copy'
389
    SvnCmd ($self   , 'copy'
389
                    , $old
390
                    , $old
390
                    , $new
391
                    , $new
391
                    , '-m', SvnComment($opt{'comment'},"Copied by $cmd"),
392
                    , '-m', SvnComment($opt{'comment'},"Copied by $cmd")
-
 
393
                    , $opt{parents} ? '--parents' : ''
392
                    , { 'credentials' => 1
394
                    , { 'credentials' => 1
393
                      , 'process' => \&ProcessRevNo
395
                      , 'process' => \&ProcessRevNo
394
                      , 'error' => "$cmd: Source not copied" } );
396
                      , 'error' => "$cmd: Source not copied" } );
395
 
397
 
396
    CalcRmReference($self, $new );
398
    CalcRmReference($self, $new );
Line 864... Line 866...
864
#                       printdata   - Print data
866
#                       printdata   - Print data
865
#                       error       - Error Message
867
#                       error       - Error Message
866
#                                     Used as first line of an Error call
868
#                                     Used as first line of an Error call
867
#
869
#
868
# Returns         : non-zero on errors detected
870
# Returns         : non-zero on errors detected
869
#                   Aurthentication errors are detected and always reported
871
#                   Authentication errors are detected and always reported
870
#
872
#
871
sub SvnCmd
873
sub SvnCmd
872
{
874
{
873
    my $self = shift;
875
    my $self = shift;
874
    Debug ("SvnCmd");
876
    Debug ("SvnCmd");
Line 889... Line 891...
889
    #   All commands are non-interactive, prepend argument
891
    #   All commands are non-interactive, prepend argument
890
    #   Accept serve certs. Only applies to https connections. VisualSvn
892
    #   Accept serve certs. Only applies to https connections. VisualSvn
891
    #   perfers https and it uses self-signed certificates.
893
    #   perfers https and it uses self-signed certificates.
892
    #
894
    #
893
    unshift @_, '--non-interactive', '--trust-server-cert';
895
    unshift @_, '--non-interactive', '--trust-server-cert';
-
 
896
 
-
 
897
    # Remove empty arguments.
-
 
898
    @_ = grep { $_ ne '' } @_;
894
    Verbose2 "SvnCmd $svn @_";
899
    Verbose2 "SvnCmd $svn @_";
895
 
900
 
896
    #
901
    #
897
    #   Prepend credentials, but don't show to users
902
    #   Prepend credentials, but don't show to users
898
    #
903
    #