Subversion Repositories DevTools

Rev

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

Rev 2450 Rev 2478
Line 178... Line 178...
178
    my $rippleProcessed = 0;
178
    my $rippleProcessed = 0;
179
    my $globalErrors = 0;
179
    my $globalErrors = 0;
180
    my $notProcessed = 0;
180
    my $notProcessed = 0;
181
    my $pkgBase = 0;
181
    my $pkgBase = 0;
182
    my $pkgProject = 0;
182
    my $pkgProject = 0;
-
 
183
    my $badPaths = 0;
183
    my $adjustedPath = 0;
184
    my $adjustedPath = 0;
184
#    my $rtCount = 0;
185
#    my $rtCount = 0;
185
    my $rtErrorCount = 0;
186
    my $rtErrorCount = 0;
186
    
187
    
187
 
188
 
Line 193... Line 194...
193
        $rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
194
        $rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
194
 
195
 
195
        $globalErrors++ if ( $ScmVersions{$entry}{data}{errFlags} eq 'e' );
196
        $globalErrors++ if ( $ScmVersions{$entry}{data}{errFlags} eq 'e' );
196
        $pkgBase++ if ( $ScmVersions{$entry}{data}{BadProjectBase} );
197
        $pkgBase++ if ( $ScmVersions{$entry}{data}{BadProjectBase} );
197
        $pkgProject++ if ( $ScmVersions{$entry}{data}{BadMakeProject} );
198
        $pkgProject++ if ( $ScmVersions{$entry}{data}{BadMakeProject} );
-
 
199
        $badPaths++ if ( $ScmVersions{$entry}{data}{BadPath} );
198
        $adjustedPath++ if ( $ScmVersions{$entry}{data}{adjustedPath} );
200
        $adjustedPath++ if ( $ScmVersions{$entry}{data}{adjustedPath} );
199
        unless ( $ScmVersions{$entry}{TagCreated} )
201
        unless ( $ScmVersions{$entry}{TagCreated} )
200
        {
202
        {
201
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
203
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
202
            $ecount++;
204
            $ecount++;
Line 261... Line 263...
261
        #
263
        #
262
        #   Just the packages that have no problems
264
        #   Just the packages that have no problems
263
        #   Short form
265
        #   Short form
264
        #
266
        #
265
#Debug0("$pname", $notOk ,$globalErrors ,$pkgBase ,$pkgProject ,$errorCount ,$notProcessed ,$rtErrorCount);
267
#Debug0("$pname", $notOk ,$globalErrors ,$pkgBase ,$pkgProject ,$errorCount ,$notProcessed ,$rtErrorCount);
266
        return if ( $notOk ||$globalErrors || $pkgBase || $pkgProject ||  $errorCount || $notProcessed || $rtErrorCount );
268
        return if ( $notOk ||$globalErrors || $pkgBase || $pkgProject ||  $errorCount || $notProcessed || $rtErrorCount || $badPaths);
267
        print ("$pname\n");
269
        print ("$pname\n");
268
        return;
270
        return;
269
    }
271
    }
270
 
272
 
271
    if ( $opt_report == 4 )
273
    if ( $opt_report == 4 )
Line 280... Line 282...
280
    }
282
    }
281
    
283
    
282
    
284
    
283
    if ( $opt_report )
285
    if ( $opt_report )
284
    {
286
    {
285
        return unless ($globalErrors || $pkgBase || $pkgProject ||  $errorCount || $notProcessed || $rtErrorCount);
287
        return unless ($globalErrors || $pkgBase || $pkgProject ||  $errorCount || $notProcessed || $rtErrorCount || $badPaths);
286
    }
288
    }
287
 
289
 
288
    sub highlight
290
    sub highlight
289
    {
291
    {
290
        my ($value) = @_;
292
        my ($value) = @_;
Line 300... Line 302...
300
            ,"${tpref}Packages NOT Processed    : $notProcessed" . highlight($notProcessed)
302
            ,"${tpref}Packages NOT Processed    : $notProcessed" . highlight($notProcessed)
301
            ,"${tpref}Packages pruned           : " . ($rmTotal - $totalCount)
303
            ,"${tpref}Packages pruned           : " . ($rmTotal - $totalCount)
302
            ,"${tpref}Essential Packages        : $essentialCount"
304
            ,"${tpref}Essential Packages        : $essentialCount"
303
            ,"${tpref}Essential Packages Errors : $errorCount" . highlight($errorCount)
305
            ,"${tpref}Essential Packages Errors : $errorCount" . highlight($errorCount)
304
            ,"${tpref}Global Import Errors      : $globalErrors" . highlight($globalErrors)
306
            ,"${tpref}Global Import Errors      : $globalErrors" . highlight($globalErrors)
-
 
307
 
-
 
308
            ,"${tpref}Bad Source Paths          : $badPaths" . highlight($badPaths)
305
            ,"${tpref}PackageBase Error         : $pkgBase" . highlight($pkgBase)
309
            ,"${tpref}PackageBase Error         : $pkgBase" . highlight($pkgBase)
306
            ,"${tpref}MakeProject Error         : $pkgProject" . highlight($pkgProject)
310
            ,"${tpref}MakeProject Error         : $pkgProject" . highlight($pkgProject)
307
            ,"${tpref}Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
311
            ,"${tpref}Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
308
            ,"${tpref}Not Transferred Packages  : $ecount"
312
            ,"${tpref}Not Transferred Packages  : $ecount"
309
            ,"${tpref}Transferred Packages      : $transferred" . highlight(!$transferred)
313
            ,"${tpref}Transferred Packages      : $transferred" . highlight(!$transferred)