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