Subversion Repositories DevTools

Rev

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

Rev 4287 Rev 4446
Line 1536... Line 1536...
1536 
 
 1536 
 
1537 
    Verbose2 ("SvnLocatePackageRoot: $reporoot, $url" );
 1537 
    Verbose2 ("SvnLocatePackageRoot: $reporoot, $url" );
1538 
 
 1538 
 
1539 
    #
 1539 
    #
1540 
    #   Remove anything after a ttb ( truck, tags, branch ) element
 1540 
    #   Remove anything after a ttb ( truck, tags, branch ) element
1541 
    #   This will be the root of the package within the repo
 1541 
    #       This will be the root of the package within the repo
- 
 
 1542 
    #   Calc the deveopment Branch based on path after the ttb
1542 
    #
 1543 
    #
1543 
    if (  $url =~ m~(.+)/((tags|branches|trunk)(/|$).*)~ )
 1544 
    if (  $url =~ m~(.+)/((tags|branches|trunk)(/|$).*)~ )
1544 
    {
 1545 
    {
1545 
        $url = $1;
 1546 
        $url = $1;
1546 
        $self->{WSTYPE} = $3;
 1547 
        $self->{WSTYPE} = $3;
1547 
        if ( $3 eq 'trunk' ) {
 1548 
        if ( $3 eq 'trunk' ) {
1548 
            $devBranch = $3;
 1549 
            $devBranch = $3;
1549 
        } elsif ( $3 eq 'branches' ) {
 1550 
        } elsif ( $3 eq 'branches' ) {
1550 
            my @bits = split('/', $2);
 1551 
            my @bits = split('/', $2);
- 
 
 1552 
            $devBranch = $2;
- 
 
 1553 
            Warning("Branch name with multiple subdirs is NOT recommended")
1551 
            $devBranch = join('/', @bits[0 .. 1]);
 1554 
                if ( ($devBranch =~ tr~/~/~) > 1 );
1552 
        }
 1555 
        }
1553 
    }
 1556 
    }
1554 
    else
 1557 
    else
1555 
    {
 1558 
    {
1556 
        #
 1559 
        #