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 
    #