Subversion Repositories DevTools

Rev

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

Rev 1340 Rev 1342
Line 173... Line 173...
173 
    my $rippleProcessed = 0;
 173 
    my $rippleProcessed = 0;
174 
    my $globalErrors = 0;
 174 
    my $globalErrors = 0;
175 
    my $notProcessed = 0;
 175 
    my $notProcessed = 0;
176 
    my $pkgBase = 0;
 176 
    my $pkgBase = 0;
177 
    my $adjustedPath = 0;
 177 
    my $adjustedPath = 0;
- 
 
 178 
    my $rtCount = 0;
- 
 
 179 
    my $rtErrorCount = 0;
- 
 
 180
178 
 
 181 
 
179 
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
 182 
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
180 
    {
 183 
    {
181 
        $totalCount ++;
 184 
        $totalCount ++;
182 
        $notProcessed++ unless $ScmVersions{$entry}{Scanned};
 185 
        $notProcessed++ unless $ScmVersions{$entry}{Scanned};
Line 190... Line 193...
190 
        {
 193 
        {
191 
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
 194 
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
192 
            $ecount++;
 195 
            $ecount++;
193 
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error')  );
 196 
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error')  );
194 
        }
 197 
        }
- 
 
 198 
 
- 
 
 199 
        $rtCount += $ScmVersions{$entry}{data}{ReleaseTag}{tCount} || 0;
- 
 
 200 
        $rtErrorCount += $ScmVersions{$entry}{data}{ReleaseTag}{eCount} || 0;
195 
    }
 201 
    }
196 
 
 202 
 
197 
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
 203 
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
198 
    {
 204 
    {
199 
        if ( $ScmVersions{$entry}{TagCreated} )
 205 
        if ( $ScmVersions{$entry}{TagCreated} )
Line 226... Line 232...
226 
        }
 232 
        }
227 
    }
 233 
    }
228 
 
 234 
 
229 
    if ( $opt_report )
 235 
    if ( $opt_report )
230 
    {
 236 
    {
231 
        return unless ($globalErrors || $pkgBase ||  $errorCount || $notProcessed);
 237 
        return unless ($globalErrors || $pkgBase ||  $errorCount || $notProcessed || $rtErrorCount);
232 
    }
 238 
    }
233 
 
 239 
 
234 
    sub highlight
 240 
    sub highlight
235 
    {
 241 
    {
236 
        my ($value) = @_;
 242 
        my ($value) = @_;
Line 249... Line 255...
249 
            ,"Global Import Errors      : $globalErrors" . highlight($globalErrors)
 255 
            ,"Global Import Errors      : $globalErrors" . highlight($globalErrors)
250 
            ,"PackageBase Error         : $pkgBase" . highlight($pkgBase)
 256 
            ,"PackageBase Error         : $pkgBase" . highlight($pkgBase)
251 
            ,"Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
 257 
            ,"Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
252 
            ,"Not Transferred Packages  : $ecount"
 258 
            ,"Not Transferred Packages  : $ecount"
253 
            ,"Transferred Packages      : $transferred"
 259 
            ,"Transferred Packages      : $transferred"
- 
 
 260 
            ,"Release Tags applied      : $rtCount"
- 
 
 261 
            ,"Release Tag errors        : $rtErrorCount" . highlight($rtErrorCount)
254 
            ,"Transfer to RM            : $diffCount"
 262 
            ,"Transfer to RM            : $diffCount"
255 
            ,"Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
 263 
            ,"Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
256 
            ,"Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
 264 
            ,"Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
257 
            );
 265 
            );
258 
 
 266