| Line 119... |
Line 119... |
| 119 |
next unless ( defined $packageName );
|
119 |
next unless ( defined $packageName );
|
| 120 |
next if ( $packageName eq 'Dataman' );
|
120 |
next if ( $packageName eq 'Dataman' );
|
| 121 |
|
121 |
|
| 122 |
$packageName =~ s~\.data$~~;
|
122 |
$packageName =~ s~\.data$~~;
|
| 123 |
$packageName =~ s~\.svg$~~;
|
123 |
$packageName =~ s~\.svg$~~;
|
| - |
|
124 |
$packageName =~ s~\.importlog$~~;
|
| 124 |
getVcsData($packageName) if ( $opt_report <= 1 || $opt_report == 6 );
|
125 |
getVcsData($packageName) if ( $opt_report <= 1 || $opt_report == 6 );
|
| 125 |
readPackageData($packageName);
|
126 |
readPackageData($packageName);
|
| 126 |
}
|
127 |
}
|
| 127 |
exit 0;
|
128 |
exit 0;
|
| 128 |
|
129 |
|
| Line 178... |
Line 179... |
| 178 |
my $diffCount = 0;
|
179 |
my $diffCount = 0;
|
| 179 |
my $missingPVID = 0;
|
180 |
my $missingPVID = 0;
|
| 180 |
my $rippleProcessed = 0;
|
181 |
my $rippleProcessed = 0;
|
| 181 |
my $globalErrors = 0;
|
182 |
my $globalErrors = 0;
|
| 182 |
my $notProcessed = 0;
|
183 |
my $notProcessed = 0;
|
| 183 |
my $pkgBase = 0;
|
184 |
my $prjBase = 0;
|
| 184 |
my $pkgProject = 0;
|
185 |
my $pkgProject = 0;
|
| 185 |
my $badPaths = 0;
|
186 |
my $badPaths = 0;
|
| 186 |
my $adjustedPath = 0;
|
187 |
my $adjustedPath = 0;
|
| 187 |
# my $rtCount = 0;
|
188 |
# my $rtCount = 0;
|
| 188 |
my $rtErrorCount = 0;
|
189 |
my $rtErrorCount = 0;
|
| Line 194... |
Line 195... |
| 194 |
$notProcessed++ unless $ScmVersions{$entry}{Scanned};
|
195 |
$notProcessed++ unless $ScmVersions{$entry}{Scanned};
|
| 195 |
$essentialCount++ if ( $ScmVersions{$entry}{Essential} );
|
196 |
$essentialCount++ if ( $ScmVersions{$entry}{Essential} );
|
| 196 |
$rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
|
197 |
$rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
|
| 197 |
|
198 |
|
| 198 |
$globalErrors++ if ( ($ScmVersions{$entry}{data}{errFlags} || '') eq 'e' );
|
199 |
$globalErrors++ if ( ($ScmVersions{$entry}{data}{errFlags} || '') eq 'e' );
|
| 199 |
$pkgBase++ if ( $ScmVersions{$entry}{data}{BadProjectBase} );
|
200 |
$prjBase++ if ( $ScmVersions{$entry}{data}{BadProjectBase} );
|
| 200 |
$pkgProject++ if ( $ScmVersions{$entry}{data}{BadMakeProject} );
|
201 |
$pkgProject++ if ( $ScmVersions{$entry}{data}{BadMakeProject} );
|
| 201 |
$badPaths++ if ( $ScmVersions{$entry}{data}{BadPath} );
|
202 |
$badPaths++ if ( $ScmVersions{$entry}{data}{BadPath} );
|
| 202 |
$adjustedPath++ if ( $ScmVersions{$entry}{data}{adjustedPath} );
|
203 |
$adjustedPath++ if ( $ScmVersions{$entry}{data}{adjustedPath} );
|
| 203 |
unless ( $ScmVersions{$entry}{TagCreated} )
|
204 |
unless ( $ScmVersions{$entry}{TagCreated} )
|
| 204 |
{
|
205 |
{
|
| Line 281... |
Line 282... |
| 281 |
{
|
282 |
{
|
| 282 |
#
|
283 |
#
|
| 283 |
# Just the packages that have no problems
|
284 |
# Just the packages that have no problems
|
| 284 |
# Short form
|
285 |
# Short form
|
| 285 |
#
|
286 |
#
|
| 286 |
#Debug0("$pname", $notOk ,$globalErrors ,$pkgBase ,$pkgProject ,$errorCount ,$notProcessed ,$rtErrorCount);
|
287 |
#Debug0("$pname", $notOk ,$globalErrors ,$prjBase ,$pkgProject ,$errorCount ,$notProcessed ,$rtErrorCount);
|
| 287 |
return if ( $notOk ||$globalErrors || $pkgBase || $pkgProject || $errorCount || $notProcessed || $rtErrorCount || $badPaths);
|
288 |
return if ( $notOk ||$globalErrors || $prjBase || $pkgProject || $errorCount || $notProcessed || $rtErrorCount || $badPaths);
|
| 288 |
print ("$pname\n");
|
289 |
print ("$pname\n");
|
| 289 |
return;
|
290 |
return;
|
| 290 |
}
|
291 |
}
|
| 291 |
|
292 |
|
| 292 |
if ( $opt_report == 4 )
|
293 |
if ( $opt_report == 4 )
|
| Line 301... |
Line 302... |
| 301 |
}
|
302 |
}
|
| 302 |
|
303 |
|
| 303 |
|
304 |
|
| 304 |
if ( $opt_report )
|
305 |
if ( $opt_report )
|
| 305 |
{
|
306 |
{
|
| 306 |
return unless ($globalErrors || $pkgBase || $pkgProject || $errorCount || $notProcessed || $rtErrorCount || $badPaths);
|
307 |
return unless ($globalErrors || $prjBase || $pkgProject || $errorCount || $notProcessed || $rtErrorCount || $badPaths);
|
| 307 |
}
|
308 |
}
|
| 308 |
|
309 |
|
| 309 |
sub highlight
|
310 |
sub highlight
|
| 310 |
{
|
311 |
{
|
| 311 |
my ($value) = @_;
|
312 |
my ($value) = @_;
|
| Line 323... |
Line 324... |
| 323 |
,"${tpref}Essential Packages : $essentialCount"
|
324 |
,"${tpref}Essential Packages : $essentialCount"
|
| 324 |
,"${tpref}Essential Packages Errors : $errorCount" . highlight($errorCount)
|
325 |
,"${tpref}Essential Packages Errors : $errorCount" . highlight($errorCount)
|
| 325 |
,"${tpref}Global Import Errors : $globalErrors" . highlight($globalErrors)
|
326 |
,"${tpref}Global Import Errors : $globalErrors" . highlight($globalErrors)
|
| 326 |
|
327 |
|
| 327 |
,"${tpref}Bad Source Paths : $badPaths" . highlight($badPaths)
|
328 |
,"${tpref}Bad Source Paths : $badPaths" . highlight($badPaths)
|
| 328 |
,"${tpref}PackageBase Error : $pkgBase" . highlight($pkgBase)
|
329 |
,"${tpref}ProjectBase Error : $prjBase" . highlight($prjBase)
|
| 329 |
,"${tpref}MakeProject Error : $pkgProject" . highlight($pkgProject)
|
330 |
,"${tpref}MakeProject Error : $pkgProject" . highlight($pkgProject)
|
| 330 |
,"${tpref}Adjusted Paths : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
|
331 |
,"${tpref}Adjusted Paths : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
|
| 331 |
,"${tpref}Not Transferred Packages : $ecount"
|
332 |
,"${tpref}Not Transferred Packages : $ecount"
|
| 332 |
,"${tpref}Transferred Packages : $transferred" . highlight(!$transferred)
|
333 |
,"${tpref}Transferred Packages : $transferred" . highlight(!$transferred)
|
| 333 |
# ,"${tpref}Release Tags applied : $rtCount"
|
334 |
# ,"${tpref}Release Tags applied : $rtCount"
|