Subversion Repositories DevTools

Rev

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

Rev 2652 Rev 3043
Line 2078... Line 2078...
2078 
    next unless ( $line );
 2078 
    next unless ( $line );
2079 
#    Debug0('', $line);
 2079 
#    Debug0('', $line);
2080 
 
 2080 
 
2081 
    my $workSpace =  \%{$self->{btData}};
 2081 
    my $workSpace =  \%{$self->{btData}};
2082 
    if ( $line =~ m~<logentry$~ ) {
 2082 
    if ( $line =~ m~<logentry$~ ) {
- 
 
 2083 
        #
- 
 
 2084 
        #   Start of a logentry
- 
 
 2085 
        #
2083 
        $workSpace->{mode} = 'l';
 2086 
        $workSpace->{mode} = 'l';
2084 
        $workSpace->{rev} = 0;
 2087 
        $workSpace->{rev} = 0;
2085 
        $workSpace->{changesSeen} = 0;
 2088 
        $workSpace->{changesSeen} = 0;
2086 
 
 2089 
 
2087 
    } elsif ( $line =~ m~</logentry>$~ ) {
 2090 
    } elsif ( $line =~ m~</logentry>$~ ) {
2088 
        $workSpace->{mode} = '';
 2091 
        $workSpace->{mode} = '';
2089 
 
 - 
 
2090 
        #
 2092 
        #
2091 
        #   End of a <logenty>
 2093 
        #   End of a <logenty>
2092 
        #   See if we have a result - a dev branch not copied from a tag
 2094 
        #   See if we have a result - a dev branch not copied from a tag
2093 
        #
 2095 
        #
2094 
        if ( exists $workSpace->{devBranch} )
 2096 
        if ( exists $workSpace->{devBranch} )
Line 2118... Line 2120...
2118 
 
 2120 
 
2119 
    if ( $workSpace->{mode} eq 'l' )
 2121 
    if ( $workSpace->{mode} eq 'l' )
2120 
    {
 2122 
    {
2121 
        #
 2123 
        #
2122 
        #   Processing logentry data
 2124 
        #   Processing logentry data
2123 
        #       Only need the rev
 2125 
        #       Only need the revision
2124 
        #
 2126 
        #
2125 
        $workSpace->{rev} = $1
 2127 
        $workSpace->{rev} = $1
2126 
            if ( $line =~ m~revision=\"(\d+)\"~ );
 2128 
            if ( $line =~ m~revision=\"(\d+)\"~ );
2127 
 
 2129 
 
2128 
    } elsif ( $workSpace->{mode} eq 'p' ) {
 2130 
    } elsif ( $workSpace->{mode} eq 'p' ) {
Line 2130... Line 2132...
2130 
        #   Processing Paths
 2132 
        #   Processing Paths
2131 
        #       Entries appear to be in a random order
 2133 
        #       Entries appear to be in a random order
2132 
        #       Not always the same order
 2134 
        #       Not always the same order
2133 
        #
 2135 
        #
2134 
        my $end = 0;
 2136 
        my $end = 0;
2135 
        if ( $line =~ s~\s*(.+?)="(.+)">(.*)</path>$~~ )
 2137 
        if ( $line =~ s~\s*(.+?)="(.*)">(.*)</path>$~~ )
2136 
        {
 2138 
        {
2137 
            #
 2139 
            #
2138 
            #   Last entry has two items
 2140 
            #   Last entry has two items
2139 
            #       Attribute
 2141 
            #       Attribute
2140 
            #       Data Item
 2142 
            #       Data Item
Line 2143... Line 2145...
2143 
            $workSpace->{path}{$1} = $2;
 2145 
            $workSpace->{path}{$1} = $2;
2144 
            $workSpace->{path}{DATA} = $3;
 2146 
            $workSpace->{path}{DATA} = $3;
2145 
        }
 2147 
        }
2146 
        elsif ($line =~ m~\s*(.*?)="(.*)"~ )
 2148 
        elsif ($line =~ m~\s*(.*?)="(.*)"~ )
2147 
        {
 2149 
        {
- 
 
 2150 
            #
- 
 
 2151 
            #   Attribute
- 
 
 2152 
            #
2148 
            $workSpace->{path}{$1} = $2;
 2153 
            $workSpace->{path}{$1} = $2;
2149 
        }
 2154 
        }
2150 
#        else
 2155 
#        else
2151 
#        {
 2156 
#        {
2152 
#            Warning ("Cannot decode XML log: $line");
 2157 
#            Warning ("Cannot decode XML log: $line");