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 
        {