Subversion Repositories DevTools

Rev

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

Rev 379 Rev 385
Line 416... Line 416...
416 
#                       comment     - Deletion comment
 416 
#                       comment     - Deletion comment
417 
#                       test        - Just test existance
 417 
#                       test        - Just test existance
418 
#                       create      - Create if it doesn't exist
 418 
#                       create      - Create if it doesn't exist
419 
#
 419 
#
420 
# Returns         : May not return
 420 
# Returns         : May not return
- 
 
 421 
#                   2 : Exists and was created
421 
#                   True : Exists
 422 
#                   1 : Exists
422 
#                   False: Not exist (any more)
 423 
#                   0 : Not exist (any more)
423 
#
 424 
#
424 
sub SvnValidateTarget
 425 
sub SvnValidateTarget
425 
{
 426 
{
426 
    my $self = shift;
 427 
    my $self = shift;
427 
    my %opt = @_;
 428 
    my %opt = @_;
Line 454... Line 455...
454 
        #   Create target if required
 455 
        #   Create target if required
455 
        #
 456 
        #
456 
        if ( $opt{create} )
 457 
        if ( $opt{create} )
457 
        {
 458 
        {
458 
            $self->SvnCmd ('mkdir', $opt{target}
 459 
            $self->SvnCmd ('mkdir', $opt{target}
459 
                           , '-m', $self->Path() . ': Created by SvnValidateTarget'
 460 
                           , '-m', $self->Path() . ': Created by ' . $cmd
460 
                           , '--parents'
 461 
                           , '--parents'
461 
                           , { 'credentials' => 1,
 462 
                           , { 'credentials' => 1
462 
                               'error' => "SvnCreateBranch" } );
 463 
                              ,'error' => "SvnCreateBranch"
- 
 
 464 
                              ,'process' => \&ProcessRevNo
- 
 
 465 
                             } );
463 
            return 1;
 466 
            return 2;
464 
        }
 467 
        }
465 
 
 468 
 
466 
        Error ("$cmd: Element does not exist", "Element: $opt{target}")
 469 
        Error ("$cmd: Element does not exist", "Element: $opt{target}")
467 
            if ( $opt{'require'} );
 470 
            if ( $opt{'require'} );
468 
    }
 471 
    }