Subversion Repositories DevTools

Rev

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

Rev 1342 Rev 1380
Line 173... Line 173...
173
    my $rippleProcessed = 0;
173
    my $rippleProcessed = 0;
174
    my $globalErrors = 0;
174
    my $globalErrors = 0;
175
    my $notProcessed = 0;
175
    my $notProcessed = 0;
176
    my $pkgBase = 0;
176
    my $pkgBase = 0;
177
    my $adjustedPath = 0;
177
    my $adjustedPath = 0;
178
    my $rtCount = 0;
178
#    my $rtCount = 0;
179
    my $rtErrorCount = 0;
179
    my $rtErrorCount = 0;
180
    
180
    
181
 
181
 
182
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
182
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
183
    {
183
    {
Line 194... Line 194...
194
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
194
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
195
            $ecount++;
195
            $ecount++;
196
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error')  );
196
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{data}{errStr} || 'Unspecified Error')  );
197
        }
197
        }
198
 
198
 
199
        $rtCount += $ScmVersions{$entry}{data}{ReleaseTag}{tCount} || 0;
199
#        $rtCount += $ScmVersions{$entry}{data}{ReleaseTag}{tCount} || 0;
200
        $rtErrorCount += $ScmVersions{$entry}{data}{ReleaseTag}{eCount} || 0;
200
#        $rtErrorCount += $ScmVersions{$entry}{data}{ReleaseTag}{eCount} || 0;
201
    }
201
    }
202
 
202
 
203
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
203
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
204
    {
204
    {
205
        if ( $ScmVersions{$entry}{TagCreated} )
205
        if ( $ScmVersions{$entry}{TagCreated} )
Line 255... Line 255...
255
            ,"Global Import Errors      : $globalErrors" . highlight($globalErrors)
255
            ,"Global Import Errors      : $globalErrors" . highlight($globalErrors)
256
            ,"PackageBase Error         : $pkgBase" . highlight($pkgBase)
256
            ,"PackageBase Error         : $pkgBase" . highlight($pkgBase)
257
            ,"Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
257
            ,"Adjusted Paths            : $adjustedPath" . highlight($adjustedPath && ($transferred - $adjustedPath))
258
            ,"Not Transferred Packages  : $ecount"
258
            ,"Not Transferred Packages  : $ecount"
259
            ,"Transferred Packages      : $transferred"
259
            ,"Transferred Packages      : $transferred"
260
            ,"Release Tags applied      : $rtCount"
260
#            ,"Release Tags applied      : $rtCount"
261
            ,"Release Tag errors        : $rtErrorCount" . highlight($rtErrorCount)
261
#            ,"Release Tag errors        : $rtErrorCount" . highlight($rtErrorCount)
262
            ,"Transfer to RM            : $diffCount"
262
            ,"Transfer to RM            : $diffCount"
263
            ,"Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
263
            ,"Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
264
            ,"Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
264
            ,"Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
265
            );
265
            );
266
 
266
 
Line 308... Line 308...
308
    my @row;
308
    my @row;
309
    my $user = 3768;            # buildadm
309
    my $user = 3768;            # buildadm
310
 
310
 
311
    connectRM(\$RM_DB, $opt_verbose) unless $RM_DB;
311
    connectRM(\$RM_DB, $opt_verbose) unless $RM_DB;
312
 
312
 
313
    my $m_sqlstr =  "begin release_manager.update_vcs_details($pvid, '$new_tag', $user); end;";
313
    my $m_sqlstr =  "begin release_manager.PK_RMAPI.update_vcs_details($pvid, '$new_tag', $user); end;";
314
    my $sth = $RM_DB->prepare($m_sqlstr);
314
    my $sth = $RM_DB->prepare($m_sqlstr);
315
    if ( defined($sth) )
315
    if ( defined($sth) )
316
    {
316
    {
317
        if ( $sth->execute( ) )
317
        if ( $sth->execute( ) )
318
        {
318
        {