Subversion Repositories DevTools

Rev

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

Rev 392 Rev 1197
Line 39... Line 39...
39 
my $opt_package;
 39 
my $opt_package;
40 
my $opt_rm = 'RELMANU1';
 40 
my $opt_rm = 'RELMANU1';
41 
my $opt_test = 1;
 41 
my $opt_test = 1;
42 
my $opt_force;
 42 
my $opt_force;
43 
my $opt_checkOperation;
 43 
my $opt_checkOperation;
- 
 
 44 
my $opt_report = 0;
- 
 
 45 
my $opt_live;
44 
 
 46 
 
45 
#-------------------------------------------------------------------------------
 47 
#-------------------------------------------------------------------------------
46 
# Function        : Main Entry
 48 
# Function        : Main Entry
47 
#
 49 
#
48 
# Description     :
 50 
# Description     :
Line 58... Line 60...
58 
                'package:s'     => \$opt_package,
 60 
                'package:s'     => \$opt_package,
59 
                'database:s'    => \$opt_rm,
 61 
                'database:s'    => \$opt_rm,
60 
                'test!'         => \$opt_test,
 62 
                'test!'         => \$opt_test,
61 
                'force!'        => \$opt_force,
 63 
                'force!'        => \$opt_force,
62 
                'check:s'       => \$opt_checkOperation,
 64 
                'check:s'       => \$opt_checkOperation,
- 
 
 65 
                'report:+'      => \$opt_report,
- 
 
 66 
                'live'          => \$opt_live,
63 
                );
 67 
                );
64 
 
 68 
 
65 
#
 69 
#
66 
#   Process help and manual options
 70 
#   Process help and manual options
67 
#
 71 
#
Line 73... Line 77...
73 
             'verbose' => $opt_verbose,
 77 
             'verbose' => $opt_verbose,
74 
              );
 78 
              );
75 
 
 79 
 
76 
Error ("Must specify a package name") unless ( defined $opt_package || $#ARGV >= 0 );
 80 
Error ("Must specify a package name") unless ( defined $opt_package || $#ARGV >= 0 );
77 
 
 81 
 
- 
 
 82 
if ( $opt_live )
- 
 
 83 
{
- 
 
 84 
    $opt_rm = 'RELEASEM';
- 
 
 85 
}
- 
 
 86 
 
- 
 
 87 
 
78 
$ENV{GBE_RM_LOCATION} = 'jdbc:oracle:thin:@auperaprm01:1521:' . $opt_rm;
 88 
$ENV{GBE_RM_LOCATION} = 'jdbc:oracle:thin:@auperaprm01:1521:' . $opt_rm;
79 
unless ( $opt_rm eq 'RELEASEM' )
 89 
unless ( $opt_rm eq 'RELEASEM' )
80 
{
 90 
{
81 
    Warning ("Using internal user/passowrd");
 91 
    Warning ("Using internal user/passowrd");
82 
    $ENV{GBE_RM_USERNAME} = 'RELEASE_MANAGER';
 92 
    $ENV{GBE_RM_USERNAME} = 'RELEASE_MANAGER';
Line 103... Line 113...
103 
 
 113 
 
104 
foreach my $packageName ( $opt_package, @ARGV )
 114 
foreach my $packageName ( $opt_package, @ARGV )
105 
{
 115 
{
106 
    next unless ( defined $packageName );
 116 
    next unless ( defined $packageName );
107 
    $packageName =~ s~\.data$~~;
 117 
    $packageName =~ s~\.data$~~;
108 
    getVcsData($packageName);
 118 
    getVcsData($packageName) if ( $opt_report <= 1 );
109 
    readPackageData($packageName);
 119 
    readPackageData($packageName);
110 
}
 120 
}
111 
exit 0;
 121 
exit 0;
112 
 
 122 
 
113 
#-------------------------------------------------------------------------------
 123 
#-------------------------------------------------------------------------------
Line 160... Line 170...
160 
    my $diffCount = 0;
 170 
    my $diffCount = 0;
161 
    my $missingPVID = 0;
 171 
    my $missingPVID = 0;
162 
    my $rippleProcessed = 0;
 172 
    my $rippleProcessed = 0;
163 
    my $globalErrors = 0;
 173 
    my $globalErrors = 0;
164 
    my $notProcessed = 0;
 174 
    my $notProcessed = 0;
- 
 
 175 
    my $pkgBase = 0;
165 
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
 176 
    foreach my $entry (sort {$a <=> $b}  keys(%ScmVersions) )
166 
    {
 177 
    {
167 
        $totalCount ++;
 178 
        $totalCount ++;
168 
        $notProcessed++ unless $ScmVersions{$entry}{Scanned};
 179 
        $notProcessed++ unless $ScmVersions{$entry}{Scanned};
169 
        $essentialCount++ if ( $ScmVersions{$entry}{Essential}  );
 180 
        $essentialCount++ if ( $ScmVersions{$entry}{Essential}  );
170 
        $rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
 181 
        $rippleProcessed++ if ( $ScmVersions{$entry}{rippleProcessed} );
171 
        $globalErrors++ if ( $ScmVersions{$entry}{errFlags} eq 'e' );
 182 
        $globalErrors++ if ( $ScmVersions{$entry}{errFlags} eq 'e' );
- 
 
 183 
        $pkgBase++ if ( $ScmVersions{$entry}{BadProjectBase} );
172 
        unless ( $ScmVersions{$entry}{TagCreated} )
 184 
        unless ( $ScmVersions{$entry}{TagCreated} )
173 
        {
 185 
        {
174 
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
 186 
            $errorCount++ if ( $ScmVersions{$entry}{Essential}  );
175 
            $ecount++;
 187 
            $ecount++;
176 
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{errStr} || 'Unspecified Error')  );
 188 
            Verbose ("Package Not Processed: " . $ScmVersions{$entry}{vname} . ' - ' . ($ScmVersions{$entry}{errStr} || 'Unspecified Error')  );
Line 207... Line 219...
207 
            Verbose ("Processed: " . $ScmVersions{$entry}{vname} . ' :: ' . ($rmRef || '???') . $done );
 219 
            Verbose ("Processed: " . $ScmVersions{$entry}{vname} . ' :: ' . ($rmRef || '???') . $done );
208
220
209 
        }
 221 
        }
210 
    }
 222 
    }
211 
 
 223 
 
- 
 
 224 
    if ( $opt_report )
- 
 
 225 
    {
- 
 
 226 
        return unless ($globalErrors || $pkgBase ||  $errorCount || $notProcessed);
- 
 
 227 
    }
- 
 
 228 
 
212 
    sub highlight
 229 
    sub highlight
213 
    {
 230 
    {
214 
        my ($value) = @_;
 231 
        my ($value) = @_;
215 
        return $value ? ' <------' : '';
 232 
        return $value ? ' <------' : '';
216 
    }
 233 
    }
Line 223... Line 240...
223 
            ,"Packages NOT Processed    : $notProcessed" . highlight($notProcessed)
 240 
            ,"Packages NOT Processed    : $notProcessed" . highlight($notProcessed)
224 
            ,"Packages pruned           : " . ($rmTotal - $totalCount)
 241 
            ,"Packages pruned           : " . ($rmTotal - $totalCount)
225 
            ,"Essential Packages        : $essentialCount"
 242 
            ,"Essential Packages        : $essentialCount"
226 
            ,"Essential Packages Errors : $errorCount" . highlight($errorCount)
 243 
            ,"Essential Packages Errors : $errorCount" . highlight($errorCount)
227 
            ,"Global Import Errors      : $globalErrors" . highlight($globalErrors)
 244 
            ,"Global Import Errors      : $globalErrors" . highlight($globalErrors)
- 
 
 245 
            ,"PackageBase Error         : $pkgBase" . highlight($pkgBase)
228 
            ,"Not Transferred Packages  : $ecount"
 246 
            ,"Not Transferred Packages  : $ecount"
229 
            ,"Transferred Packages      : $transferred"
 247 
            ,"Transferred Packages      : $transferred"
230 
            ,"Transfer to RM            : $diffCount"
 248 
            ,"Transfer to RM            : $diffCount"
231 
            ,"Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
 249 
            ,"Missing PackageVersions   : $missingPVID" . highlight($missingPVID)
232 
            ,"Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
 250 
            ,"Ripple Processed Early    : $rippleProcessed" . highlight($rippleProcessed)
233 
            );
 251 
            );
234 
 
 252 
 
- 
 
 253 
    if ( $opt_report )
- 
 
 254 
    {
- 
 
 255 
        return;
- 
 
 256 
    }
- 
 
 257
- 
 
 258 
 
235 
    if ( $opt_test )
 259 
    if ( $opt_test )
236 
    {
 260 
    {
237 
        Message('Test Mode : No changes made to RM');
 261 
        Message('Test Mode : No changes made to RM');
238 
        return;
 262 
        return;
239 
    }
 263 
    }
Line 435... Line 459...
435 
    -help -help        - Detailed help message
 459 
    -help -help        - Detailed help message
436 
    -man               - Full documentation
 460 
    -man               - Full documentation
437 
    -verbose           - Enable verbosity
 461 
    -verbose           - Enable verbosity
438 
    -[no]test          - Test update. Default: -notest
 462 
    -[no]test          - Test update. Default: -notest
439 
    -package=name      - Specify single package to be processed
 463 
    -package=name      - Specify single package to be processed
440 
    -database=name     - Default: RELMANU1 (test db)
 464 
    -database=name     - Default: RELMANU1 (test db) Live: RELEASEM
441 
    -[no]force         - Force update of all entries
 465 
    -[no]force         - Force update of all entries
442 
    -check=string      - Check operation with string
 466 
    -check=string      - Check operation with string
443 
 
 - 
 
444 
 
 - 
 
- 
 
 467 
    -report            - Report on errors
- 
 
 468 
    -report=2          - Report on errors, don't access RM
445 
 
 469 
 
446 
=head1 OPTIONS
 470 
=head1 OPTIONS
447 
 
 471 
 
448 
=over 8
 472 
=over 8
449 
 
 473