Subversion Repositories DevTools

Rev

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

Rev 2074 Rev 2312
Line 41... Line 41...
41
my $opt_test = 1;
41
my $opt_test = 1;
42
my $opt_force;
42
my $opt_force;
43
my $opt_checkOperation;
43
my $opt_checkOperation;
44
my $opt_report = 0;
44
my $opt_report = 0;
45
my $opt_live;
45
my $opt_live;
-
 
46
my $opt_grep;
46
 
47
 
47
#-------------------------------------------------------------------------------
48
#-------------------------------------------------------------------------------
48
# Function        : Main Entry
49
# Function        : Main Entry
49
#
50
#
50
# Description     :
51
# Description     :
Line 62... Line 63...
62
                'test!'         => \$opt_test,
63
                'test!'         => \$opt_test,
63
                'force!'        => \$opt_force,
64
                'force!'        => \$opt_force,
64
                'check:s'       => \$opt_checkOperation,
65
                'check:s'       => \$opt_checkOperation,
65
                'report:+'      => \$opt_report,
66
                'report:+'      => \$opt_report,
66
                'live!'         => \$opt_live,
67
                'live!'         => \$opt_live,
-
 
68
                'grep'          => \$opt_grep,          # Grep friendly - display pkg name
67
                );
69
                );
68
 
70
 
69
#
71
#
70
#   Process help and manual options
72
#   Process help and manual options
71
#
73
#
Line 230... Line 232...
230
            Verbose ("Processed: " . $ScmVersions{$entry}{vname} . ' :: ' . ($rmRef || '???') . $done );
232
            Verbose ("Processed: " . $ScmVersions{$entry}{vname} . ' :: ' . ($rmRef || '???') . $done );
231
            
233
            
232
        }
234
        }
233
    }
235
    }
234
 
236
 
-
 
237
    if ( $opt_report == 3 )
-
 
238
    {
-
 
239
        #
-
 
240
        #   Just the packages that have no problems
-
 
241
        #   Short form
-
 
242
        #
-
 
243
        return if ( $ecount ||$globalErrors || $pkgBase ||  $errorCount || $notProcessed || $rtErrorCount );
-
 
244
        print ("$pname\n");
-
 
245
        return;
-
 
246
    }
-
 
247
    
235
    if ( $opt_report )
248
    if ( $opt_report )
236
    {
249
    {
237
        return unless ($globalErrors || $pkgBase ||  $errorCount || $notProcessed || $rtErrorCount);
250
        return unless ($globalErrors || $pkgBase ||  $errorCount || $notProcessed || $rtErrorCount);
238
    }
251
    }
239
 
252
 
Line 242... Line 255...
242
        my ($value) = @_;
255
        my ($value) = @_;
243
        return $value ? ' <------' : '';
256
        return $value ? ' <------' : '';
244
    }
257
    }
245
 
258
 
246
    my $rmTotal = scalar keys %packageVcs;
259
    my $rmTotal = scalar keys %packageVcs;
-
 
260
    my $tpref = $opt_grep ? "$pname: " : '';
247
    Message ("Transfer Stats",
261
    Message ("Transfer Stats",
248
            ,"Package                   : $pname"
262
            ,"${tpref}Package                   : $pname"
249
            ,"Total RM Versions         : $rmTotal"
263
            ,"${tpref}Total RM Versions         : $rmTotal"
250
            ,"Total Packages Processed  : $totalCount"
264
            ,"${tpref}Total Packages Processed  : $totalCount"
251
            ,"Packages NOT Processed    : $notProcessed" . highlight($notProcessed)
265
            ,"${tpref}Packages NOT Processed    : $notProcessed" . highlight($notProcessed)
252
            ,"Packages pruned           : " . ($rmTotal - $totalCount)
266
            ,"${tpref}Packages pruned           : " . ($rmTotal - $totalCount)
253
            ,"Essential Packages        : $essentialCount"
267
            ,"${tpref}Essential Packages        : $essentialCount"
254
            ,"Essential Packages Errors : $errorCount" . highlight($errorCount)
268
            ,"${tpref}Essential Packages Errors : $errorCount" . highlight($errorCount)
255
            ,"Global Import Errors      : $globalErrors" . highlight($globalErrors)
269
            ,"${tpref}Global Import Errors      : $globalErrors" . highlight($globalErrors)
256
            ,"PackageBase Error         : $pkgBase" . highlight($pkgBase)
270
            ,"${tpref}PackageBase Error         : $pkgBase" . highlight($pkgBase)
257
            ,"Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
271
            ,"${tpref}Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
258
            ,"Not Transferred Packages  : $ecount"
272
            ,"${tpref}Not Transferred Packages  : $ecount"
259
            ,"Transferred Packages      : $transferred" . highlight(!$transferred)
273
            ,"${tpref}Transferred Packages      : $transferred" . highlight(!$transferred)
260
#            ,"Release Tags applied      : $rtCount"
274
#            ,"${tpref}Release Tags applied      : $rtCount"
261
#            ,"Release Tag errors        : $rtErrorCount" . highlight($rtErrorCount)
275
#            ,"${tpref}Release Tag errors        : $rtErrorCount" . highlight($rtErrorCount)
262
            ,"Transfer to RM            : $diffCount"
276
            ,"${tpref}Transfer to RM            : $diffCount"
263
            ,"Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
277
            ,"${tpref}Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
264
            ,"Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
278
            ,"${tpref}Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
265
            );
279
            );
266
 
280
 
267
    if ( $opt_report )
281
    if ( $opt_report )
268
    {
282
    {
269
        return;
283
        return;