Subversion Repositories DevTools

Rev

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

Rev 1341 Rev 1347
Line 719... Line 719...
719 
    #
 719 
    #
720 
    my $peg = $self->{REVNO} || $self->{WSREVNO};
 720 
    my $peg = $self->{REVNO} || $self->{WSREVNO};
721 
    $target .= '@' . $peg if $peg;
 721 
    $target .= '@' . $peg if $peg;
722 
 
 722 
 
723 
    #
 723 
    #
- 
 
 724 
    #   Attempt to Calculate Release Manager
- 
 
 725 
    #       SourcePath::Tag
- 
 
 726 
    #
- 
 
 727 
    if ( $self->{DEVBRANCH} )
- 
 
 728 
    {
- 
 
 729 
        my $sourcePath = $self->CalcSymbolicUrl($self->FullPath()) . '/' . $self->{DEVBRANCH};
- 
 
 730 
        my $tag = 'Unknown';
- 
 
 731 
        if ( $target =~ m~/tags/(.*)~ ) {
- 
 
 732 
            $tag = $1;
- 
 
 733 
        } else {
- 
 
 734 
            $tag = $peg if ( $peg );
- 
 
 735 
        }
- 
 
 736 
        $self->{SVNTAG} = $sourcePath . '::' . $tag;
- 
 
 737 
    }
- 
 
 738 
 
- 
 
 739 
    return $self->{RMREF} = $self->CalcSymbolicUrl($target);
- 
 
 740 
}
- 
 
 741 
 
- 
 
 742 
#-------------------------------------------------------------------------------
- 
 
 743 
# Function        : CalcSymbolicUrl
- 
 
 744 
#
- 
 
 745 
# Description     : Given a URL, return a symbolic URL
- 
 
 746 
#
- 
 
 747 
# Inputs          : $target                 - FULL URL
- 
 
 748 
#
- 
 
 749 
# Returns         : Imput string with a Symbolic URL if possible
- 
 
 750 
#
- 
 
 751 
sub CalcSymbolicUrl
- 
 
 752 
{
- 
 
 753 
    my ($self, $target) = @_;
- 
 
 754 
 
- 
 
 755 
    #
724 
    #   Take target and remove the reference to the local repository,
 756 
    #   Take target and remove the reference to the local repository,
725 
    #   if its present. This will provide a ref that we can use on any site
 757 
    #   if its present. This will provide a ref that we can use on any site
726 
    #
 758 
    #
727 
    #   Note: %SVN_URLS values will have a trailing '/'
 759 
    #   Note: %SVN_URLS values will have a trailing '/'
728 
    #
 760 
    #
Line 735... Line 767...
735 
        {
 767 
        {
736 
            $target =~ s~^/~~;
 768 
            $target =~ s~^/~~;
737 
            last;
 769 
            last;
738 
        }
 770 
        }
739 
    }
 771 
    }
740 
    return $self->{RMREF} = $target;
 772 
    return $target;
741 
}
 773 
}
742 
 
 774 
 
743 
#-------------------------------------------------------------------------------
 775 
#-------------------------------------------------------------------------------
744 
# Function        : SvnComment
 776 
# Function        : SvnComment
745 
#
 777 
#
Line 860... Line 892...
860 
    #
 892 
    #
861 
    #   Reset command output data
 893 
    #   Reset command output data
862 
    #
 894 
    #
863 
    $self->{ERROR_LIST} = [];
 895 
    $self->{ERROR_LIST} = [];
864 
    $self->{RESULT_LIST} = [];
 896 
    $self->{RESULT_LIST} = [];
- 
 
 897 
#    $self->{LAST_CMD} = \@_;
865 
 
 898 
 
866 
    #
 899 
    #
867 
    #   Make use of a wrapper program to mux the STDERR and STDOUT into
 900 
    #   Make use of a wrapper program to mux the STDERR and STDOUT into
868 
    #   one stream (STDOUT). #   This solves a lot of problems
 901 
    #   one stream (STDOUT). #   This solves a lot of problems
869 
    #
 902 
    #