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 )