Subversion Repositories DevTools

Rev

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

Rev 2312 Rev 2354
Line 116... Line 116...
116
 
116
 
117
foreach my $packageName ( $opt_package, @ARGV )
117
foreach my $packageName ( $opt_package, @ARGV )
118
{
118
{
119
    next unless ( defined $packageName );
119
    next unless ( defined $packageName );
120
    $packageName =~ s~\.data$~~;
120
    $packageName =~ s~\.data$~~;
-
 
121
    $packageName =~ s~\.svg$~~;
121
    getVcsData($packageName) if ( $opt_report <= 1 );
122
    getVcsData($packageName) if ( $opt_report <= 1 );
122
    readPackageData($packageName);
123
    readPackageData($packageName);
123
}
124
}
124
exit 0;
125
exit 0;
125
 
126
 
Line 155... Line 156...
155
{
156
{
156
    my ($pname) = @_;
157
    my ($pname) = @_;
157
    my $fname = $pname . '.data';
158
    my $fname = $pname . '.data';
158
    my @updateList;
159
    my @updateList;
159
    Verbose2 ('Reading Package Data: ' . $fname);
160
    Verbose2 ('Reading Package Data: ' . $fname);
-
 
161
return unless ( -f $fname );
160
    Error "Cannot locate $fname" unless ( -f $fname );
162
    Error "Cannot locate $fname" unless ( -f $fname );
161
    %ScmVersions = ();
163
    %ScmVersions = ();
162
    require $fname;
164
    require $fname;
163
 
165
 
164
    Error "Data in $fname is not valid\n"
166
    Error "Data in $fname is not valid\n"
Line 166... Line 168...
166
 
168
 
167
 
169
 
168
    my $essentialCount = 0;
170
    my $essentialCount = 0;
169
    my $errorCount = 0;
171
    my $errorCount = 0;
170
    my $ecount = 0;
172
    my $ecount = 0;
-
 
173
    my $notOk = 0;
171
    my $transferred = 0;
174
    my $transferred = 0;
172
    my $totalCount = 0;
175
    my $totalCount = 0;
173
    my $diffCount = 0;
176
    my $diffCount = 0;
174
    my $missingPVID = 0;
177
    my $missingPVID = 0;
175
    my $rippleProcessed = 0;
178
    my $rippleProcessed = 0;
Line 194... Line 197...
194
        unless ( $ScmVersions{$entry}{TagCreated} )
197
        unless ( $ScmVersions{$entry}{TagCreated} )
195
        {
198
        {
196
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
199
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
197
            $ecount++;
200
            $ecount++;
198
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error')  );
201
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error')  );
-
 
202
 
-
 
203
            unless ( $ScmVersions{$entry}{DeadWood} ||  $ScmVersions{$entry}{locked} eq 'N' )
-
 
204
            {
-
 
205
                $notOk++;
-
 
206
#Warning ("Package Not OK: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error')  );
-
 
207
            }
-
 
208
 
199
        }
209
        }
200
 
210
 
201
#        $rtCount += $ScmVersions{$entry}{data}{ReleaseTag}{tCount} || 0;
211
#        $rtCount += $ScmVersions{$entry}{data}{ReleaseTag}{tCount} || 0;
202
#        $rtErrorCount += $ScmVersions{$entry}{data}{ReleaseTag}{eCount} || 0;
212
#        $rtErrorCount += $ScmVersions{$entry}{data}{ReleaseTag}{eCount} || 0;
203
    }
213
    }
Line 238... Line 248...
238
    {
248
    {
239
        #
249
        #
240
        #   Just the packages that have no problems
250
        #   Just the packages that have no problems
241
        #   Short form
251
        #   Short form
242
        #
252
        #
-
 
253
#Debug0("$pname", $notOk ,$globalErrors ,$pkgBase ,$errorCount ,$notProcessed ,$rtErrorCount);
243
        return if ( $ecount ||$globalErrors || $pkgBase ||  $errorCount || $notProcessed || $rtErrorCount );
254
        return if ( $notOk ||$globalErrors || $pkgBase ||  $errorCount || $notProcessed || $rtErrorCount );
244
        print ("$pname\n");
255
        print ("$pname\n");
245
        return;
256
        return;
246
    }
257
    }
247
    
258
    
248
    if ( $opt_report )
259
    if ( $opt_report )