Subversion Repositories DevTools

Rev

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

Rev 2476 Rev 2548
Line 115... Line 115...
115 
 
 115 
 
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 
    next if ( $packageName eq 'Dataman' );
- 
 
 121 
 
120 
    $packageName =~ s~\.data$~~;
 122 
    $packageName =~ s~\.data$~~;
121 
    $packageName =~ s~\.svg$~~;
 123 
    $packageName =~ s~\.svg$~~;
122 
    getVcsData($packageName) if ( $opt_report <= 1 );
 124 
    getVcsData($packageName) if ( $opt_report <= 1 || $opt_report == 6 );
123 
    readPackageData($packageName);
 125 
    readPackageData($packageName);
124 
}
 126 
}
125 
exit 0;
 127 
exit 0;
126 
 
 128 
 
127 
#-------------------------------------------------------------------------------
 129 
#-------------------------------------------------------------------------------
Line 191... Line 193...
191 
        $totalCount ++;
 193 
        $totalCount ++;
192 
        $notProcessed++ unless $ScmVersions{$entry}{Scanned};
 194 
        $notProcessed++ unless $ScmVersions{$entry}{Scanned};
193 
        $essentialCount++ if ( $ScmVersions{$entry}{Essential}  );
 195 
        $essentialCount++ if ( $ScmVersions{$entry}{Essential}  );
194 
        $rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
 196 
        $rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
195 
 
 197 
 
196 
        $globalErrors++ if ( $ScmVersions{$entry}{data}{errFlags} eq 'e' );
 198 
        $globalErrors++ if ( ($ScmVersions{$entry}{data}{errFlags} || '') eq 'e' );
197 
        $pkgBase++ if ( $ScmVersions{$entry}{data}{BadProjectBase} );
 199 
        $pkgBase++ if ( $ScmVersions{$entry}{data}{BadProjectBase} );
198 
        $pkgProject++ if ( $ScmVersions{$entry}{data}{BadMakeProject} );
 200 
        $pkgProject++ if ( $ScmVersions{$entry}{data}{BadMakeProject} );
199 
        $badPaths++ if ( $ScmVersions{$entry}{data}{BadPath} );
 201 
        $badPaths++ if ( $ScmVersions{$entry}{data}{BadPath} );
200 
        $adjustedPath++ if ( $ScmVersions{$entry}{data}{adjustedPath} );
 202 
        $adjustedPath++ if ( $ScmVersions{$entry}{data}{adjustedPath} );
201 
        unless ( $ScmVersions{$entry}{TagCreated} )
 203 
        unless ( $ScmVersions{$entry}{TagCreated} )
Line 225... Line 227...
225 
            my $rmRef = $ScmVersions{$entry}{rmRef} ;
 227 
            my $rmRef = $ScmVersions{$entry}{rmRef} ;
226 
 
 228 
 
227 
            my $include = 1;
 229 
            my $include = 1;
228 
            if ( exists $packageVcs{$entry} )
 230 
            if ( exists $packageVcs{$entry} )
229 
            {
 231 
            {
- 
 
 232 
                if ( $opt_report == 6 )
- 
 
 233 
                {
- 
 
 234 
                    $include = 0 if ( $packageVcs{$entry} =~ m~^SVN::~ );
- 
 
 235 
                }
- 
 
 236 
                else
- 
 
 237 
                {
230 
                $include = 0 if ( ($packageVcs{$entry} eq $rmRef) );
 238 
                    $include = 0 if ( ($packageVcs{$entry} eq $rmRef) );
- 
 
 239 
                }
231 
            }
 240 
            }
232 
            else
 241 
            else
233 
            {
 242 
            {
234 
                $missingPVID++;
 243 
                $missingPVID++;
235 
                $done = ' < Missing' unless $done;
 244 
                $done = ' < Missing' unless $done;
Line 246... Line 255...
246 
            Verbose ("Processed: " . $ScmVersions{$entry}{vname} . ' :: ' . ($rmRef || '???') . $done );
 255 
            Verbose ("Processed: " . $ScmVersions{$entry}{vname} . ' :: ' . ($rmRef || '???') . $done );
247
256
248 
        }
 257 
        }
249 
    }
 258 
    }
250 
 
 259 
 
- 
 
 260 
    if ( $opt_report == 6 )
- 
 
 261 
    {
- 
 
 262 
        # Display missing updates
- 
 
 263 
        foreach my $entry ( @updateList )
- 
 
 264 
        {
- 
 
 265 
            print "$pname : $ScmVersions{$entry}{vname}\n";
- 
 
 266 
        }
- 
 
 267 
        return;
- 
 
 268 
    }
- 
 
 269 
 
251 
    if ( $opt_report == 5 )
 270 
    if ( $opt_report == 5 )
252 
    {
 271 
    {
253 
        #
 272 
        #
254 
        #   Packages that use MakeProject
 273 
        #   Packages that use MakeProject
255 
        #
 274 
        #
Line 362... Line 381...
362 
    my @row;
 381 
    my @row;
363 
    my $user = 3768;            # buildadm
 382 
    my $user = 3768;            # buildadm
364 
 
 383 
 
365 
    connectRM(\$RM_DB, $opt_verbose) unless $RM_DB;
 384 
    connectRM(\$RM_DB, $opt_verbose) unless $RM_DB;
366 
 
 385 
 
- 
 
 386 
    Verbose ("ToRm: $ScmVersions{$pvid}{vname}  - $new_tag");
367 
    my $m_sqlstr =  "begin release_manager.PK_RMAPI.update_vcs_details($pvid, '$new_tag', $user); end;";
 387 
    my $m_sqlstr =  "begin release_manager.PK_RMAPI.update_vcs_details($pvid, '$new_tag', $user); end;";
368 
    my $sth = $RM_DB->prepare($m_sqlstr);
 388 
    my $sth = $RM_DB->prepare($m_sqlstr);
369 
    if ( defined($sth) )
 389 
    if ( defined($sth) )
370 
    {
 390 
    {
371 
        if ( $sth->execute( ) )
 391 
        if ( $sth->execute( ) )
Line 532... Line 552...
532 
    -package=name      - Specify single package to be processed
 552 
    -package=name      - Specify single package to be processed
533 
    -database=name     - Default: RELMANU1 (test db) Live: RELEASEM
 553 
    -database=name     - Default: RELMANU1 (test db) Live: RELEASEM
534 
    -[no]force         - Force update of all entries
 554 
    -[no]force         - Force update of all entries
535 
    -check=string      - Check operation with string
 555 
    -check=string      - Check operation with string
536 
    -report            - Report on errors
 556 
    -report            - Report on errors
- 
 
 557 
    -report=1          - Report on errors
537 
    -report=2          - Report on errors, don't access RM
 558 
    -report=2          - Report on errors, don't access RM
- 
 
 559 
    -report=3          - Packages that have no problems
- 
 
 560 
    -report=4          - Packages that have global errors
- 
 
 561 
    -report=5          - Packages that use MakeProject
- 
 
 562 
    -report=6          - Display missing updates
538 
 
 563 
 
539 
=head1 OPTIONS
 564 
=head1 OPTIONS
540 
 
 565 
 
541 
=over 8
 566 
=over 8
542 
 
 567