Subversion Repositories DevTools

Rev

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

Rev 369 Rev 379
Line 413... Line 413...
413 
#                       delete      - Delete if it exists
 413 
#                       delete      - Delete if it exists
414 
#                       require     - Target must exist
 414 
#                       require     - Target must exist
415 
#                       available   - Target must NOT exist
 415 
#                       available   - Target must NOT exist
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 
#
 419 
#
419 
# Returns         : May not return
 420 
# Returns         : May not return
420 
#                   True : Exists
 421 
#                   True : Exists
421 
#                   False: Not exist (any more)
 422 
#                   False: Not exist (any more)
422 
#
 423 
#
Line 447... Line 448...
447 
        #
 448 
        #
448 
        #   Target does not exist
 449 
        #   Target does not exist
449 
        #
 450 
        #
450 
        return 0 if ( $opt{'test'} || $opt{'available'} );
 451 
        return 0 if ( $opt{'test'} || $opt{'available'} );
451 
 
 452 
 
- 
 
 453 
        #
- 
 
 454 
        #   Create target if required
- 
 
 455 
        #
- 
 
 456 
        if ( $opt{create} )
- 
 
 457 
        {
- 
 
 458 
            $self->SvnCmd ('mkdir', $opt{target}
- 
 
 459 
                           , '-m', $self->Path() . ': Created by SvnValidateTarget'
- 
 
 460 
                           , '--parents'
- 
 
 461 
                           , { 'credentials' => 1,
- 
 
 462 
                               'error' => "SvnCreateBranch" } );
- 
 
 463 
            return 1;
- 
 
 464 
        }
- 
 
 465 
 
452 
        Error ("$cmd: Element does not exist", "Element: $opt{target}")
 466 
        Error ("$cmd: Element does not exist", "Element: $opt{target}")
453 
            if ( $opt{'require'} );
 467 
            if ( $opt{'require'} );
454 
    }
 468 
    }
455 
    else
 469 
    else
456 
    {
 470 
    {
Line 458... Line 472...
458 
        #    Target DOES exist
 472 
        #    Target DOES exist
459 
        #       - Good if the user requires the target
 473 
        #       - Good if the user requires the target
460 
        #       - Error unless the user is prepared to delete it
 474 
        #       - Error unless the user is prepared to delete it
461 
        #
 475 
        #
462 
        return 1
 476 
        return 1
463 
                if ( $opt{'require'} || $opt{'test'} );
 477 
                if ( $opt{'require'} || $opt{'test'} || $opt{'create'}  );
464 
 
 478 
 
465 
        Error ("$cmd: Element exists", "Element: $opt{target}")
 479 
        Error ("$cmd: Element exists", "Element: $opt{target}")
466 
            unless ( $opt{'delete'} );
 480 
            unless ( $opt{'delete'} );
467 
 
 481 
 
468 
        #
 482 
        #
Line 821... Line 835...
821 
    while (<CHLD_OUT>)
 835 
    while (<CHLD_OUT>)
822 
    {
 836 
    {
823 
        s~\s+$~~;
 837 
        s~\s+$~~;
824 
        tr~\\/~/~;
 838 
        tr~\\/~/~;
825 
 
 839 
 
- 
 
 840 
 
826 
        Verbose3 ( "SvnCmd:" . $_);
 841 
        Verbose3 ( "SvnCmd:" . $_);
827 
        m~^STD(...):(.+)~;
 842 
        m~^STD(...):(.+)~;
828 
        my $data = $1 ? $2 : $_;
 843 
        my $data = $1 ? $2 : $_;
829 
        next unless ( $data );
 844 
        next unless ( $data );
830 
 
 845