| Line 171... |
Line 171... |
| 171 |
my $missingPVID = 0;
|
171 |
my $missingPVID = 0;
|
| 172 |
my $rippleProcessed = 0;
|
172 |
my $rippleProcessed = 0;
|
| 173 |
my $globalErrors = 0;
|
173 |
my $globalErrors = 0;
|
| 174 |
my $notProcessed = 0;
|
174 |
my $notProcessed = 0;
|
| 175 |
my $pkgBase = 0;
|
175 |
my $pkgBase = 0;
|
| - |
|
176 |
my $adjustedPath = 0;
|
| - |
|
177 |
|
| 176 |
foreach my $entry (sort {$a <=> $b} keys(%ScmVersions) )
|
178 |
foreach my $entry (sort {$a <=> $b} keys(%ScmVersions) )
|
| 177 |
{
|
179 |
{
|
| 178 |
$totalCount ++;
|
180 |
$totalCount ++;
|
| 179 |
$notProcessed++ unless $ScmVersions{$entry}{Scanned};
|
181 |
$notProcessed++ unless $ScmVersions{$entry}{Scanned};
|
| 180 |
$essentialCount++ if ( $ScmVersions{$entry}{Essential} );
|
182 |
$essentialCount++ if ( $ScmVersions{$entry}{Essential} );
|
| 181 |
$rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
|
183 |
$rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
|
| - |
|
184 |
|
| 182 |
$globalErrors++ if ( $ScmVersions{$entry}{errFlags} eq 'e' );
|
185 |
$globalErrors++ if ( $ScmVersions{$entry}{data}{errFlags} eq 'e' );
|
| 183 |
$pkgBase++ if ( $ScmVersions{$entry}{BadProjectBase} );
|
186 |
$pkgBase++ if ( $ScmVersions{$entry}{data}{BadProjectBase} );
|
| - |
|
187 |
$adjustedPath++ if ( $ScmVersions{$entry}{data}{adjustedPath} );
|
| 184 |
unless ( $ScmVersions{$entry}{TagCreated} )
|
188 |
unless ( $ScmVersions{$entry}{TagCreated} )
|
| 185 |
{
|
189 |
{
|
| 186 |
$errorCount++ if ( $ScmVersions{$entry}{Essential} );
|
190 |
$errorCount++ if ( $ScmVersions{$entry}{Essential} );
|
| 187 |
$ecount++;
|
191 |
$ecount++;
|
| 188 |
Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{errStr} || 'Unspecified Error') );
|
192 |
Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error') );
|
| 189 |
}
|
193 |
}
|
| 190 |
}
|
194 |
}
|
| 191 |
|
195 |
|
| 192 |
foreach my $entry (sort {$a <=> $b} keys(%ScmVersions) )
|
196 |
foreach my $entry (sort {$a <=> $b} keys(%ScmVersions) )
|
| 193 |
{
|
197 |
{
|
| Line 241... |
Line 245... |
| 241 |
,"Packages pruned : " . ($rmTotal - $totalCount)
|
245 |
,"Packages pruned : " . ($rmTotal - $totalCount)
|
| 242 |
,"Essential Packages : $essentialCount"
|
246 |
,"Essential Packages : $essentialCount"
|
| 243 |
,"Essential Packages Errors : $errorCount" . highlight($errorCount)
|
247 |
,"Essential Packages Errors : $errorCount" . highlight($errorCount)
|
| 244 |
,"Global Import Errors : $globalErrors" . highlight($globalErrors)
|
248 |
,"Global Import Errors : $globalErrors" . highlight($globalErrors)
|
| 245 |
,"PackageBase Error : $pkgBase" . highlight($pkgBase)
|
249 |
,"PackageBase Error : $pkgBase" . highlight($pkgBase)
|
| - |
|
250 |
,"Adjusted Paths : $adjustedPath" . highlight($transferred - $adjustedPath)
|
| 246 |
,"Not Transferred Packages : $ecount"
|
251 |
,"Not Transferred Packages : $ecount"
|
| 247 |
,"Transferred Packages : $transferred"
|
252 |
,"Transferred Packages : $transferred"
|
| 248 |
,"Transfer to RM : $diffCount"
|
253 |
,"Transfer to RM : $diffCount"
|
| 249 |
,"Missing PackageVersions : $missingPVID" . highlight($missingPVID)
|
254 |
,"Missing PackageVersions : $missingPVID" . highlight($missingPVID)
|
| 250 |
,"Ripple Processed Early : $rippleProcessed" . highlight($rippleProcessed)
|
255 |
,"Ripple Processed Early : $rippleProcessed" . highlight($rippleProcessed)
|