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;