Subversion Repositories DevTools

Rev

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

Rev 1534 Rev 1538
Line 62... Line 62...
62 
my $opt_version;
 62 
my $opt_version;
63 
my $opt_suffix;
 63 
my $opt_suffix;
64 
my $opt_outpath;
 64 
my $opt_outpath;
65 
my @opt_mergemodule;
 65 
my @opt_mergemodule;
66 
my $opt_workdir;
 66 
my $opt_workdir;
- 
 
 67 
my $opt_name_version = 1;
67 
 
 68 
 
68 
#
 69 
#
69 
#   Kludgy values
 70 
#   Kludgy values
70 
#       May need to be configured
 71 
#       May need to be configured
71 
#       These are current IS 11.5 install locations
 72 
#       These are current IS 11.5 install locations
Line 91... Line 92...
91 
                "codes!"        => \$opt_new_codes,         # [no]flag
 92 
                "codes!"        => \$opt_new_codes,         # [no]flag
92 
                "version=s"     => \$opt_version,           # string
 93 
                "version=s"     => \$opt_version,           # string
93 
                "out=s"         => \$opt_outpath,           # string
 94 
                "out=s"         => \$opt_outpath,           # string
94 
                "mergemodule=s" => \@opt_mergemodule,       # string
 95 
                "mergemodule=s" => \@opt_mergemodule,       # string
95 
                "workdir=s"     => \$opt_workdir,           # string
 96 
                "workdir=s"     => \$opt_workdir,           # string
- 
 
 97 
                "nameversion!"  => \$opt_name_version,      # [no]flag
96 
                );
 98 
                );
97 
 
 99 
 
98 
                #
 100 
                #
99 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
 101 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
100 
                #
 102 
                #
Line 229... Line 231...
229 
Verbose ("Project Open");
 231 
Verbose ("Project Open");
230 
 
 232 
 
231 
#DebugDumpData("Dev", $dev );
 233 
#DebugDumpData("Dev", $dev );
232 
 
 234 
 
233 
#
 235 
#
234 
#   Massage the ProductName
 236 
#   Massage the ProductName [ if required ]
235 
#   Should contain a comma<space><version>
 237 
#   Should contain a comma<space><version>
236 
#
 238 
#
237 
Verbose( "Update ProductName" );
 - 
 
238 
Verbose( "Originial ProductName   :" . $dev->ProductName);
 - 
 
239 
my $product_name = $dev->ProductName;
 - 
 
240 
if ( $product_name =~ m/^(.*),/ )
 239 
if ( $opt_name_version )
241 
{
 240 
{
- 
 
 241 
    Verbose( "Update ProductName" );
- 
 
 242 
    Verbose( "Originial ProductName   :" . $dev->ProductName);
- 
 
 243 
    my $product_name = $dev->ProductName;
- 
 
 244 
    if ( $product_name =~ m/^(.*),/ )
- 
 
 245 
    {
242 
    $product_name = $1;
 246 
        $product_name = $1;
- 
 
 247 
    }
- 
 
 248 
    $product_name .= ', ' . $opt_version . '.' . $opt_suffix;
- 
 
 249 
    $dev->SetProperty('ProductName', $product_name );
243 
}
 250 
}
244 
$product_name .= ', ' . $opt_version . '.' . $opt_suffix;
 - 
 
245 
$dev->SetProperty('ProductName', $product_name );
 - 
 
246 
Message( "ProductName   :" . $dev->ProductName);
 251 
Message( "ProductName   :" . $dev->ProductName);
247 
 
 252 
 
248 
#
 253 
#
249 
#   Massage the ProjectVersion
 254 
#   Massage the ProjectVersion
250 
#   This will not have the project suffix on it
 255 
#   This will not have the project suffix on it
Line 523... Line 528...
523 
    -workdir=path      - Path to working directory base
 528 
    -workdir=path      - Path to working directory base
524 
    -[no]readonly      - Open project in readonly mode
 529 
    -[no]readonly      - Open project in readonly mode
525 
    -[no]standalone    - Use SA or IS automation interface
 530 
    -[no]standalone    - Use SA or IS automation interface
526 
    -[no]build         - Build project
 531 
    -[no]build         - Build project
527 
    -[no]codes         - Modify GUID codes in release
 532 
    -[no]codes         - Modify GUID codes in release
- 
 
 533 
    -[no]nameversion   - Add Version info to ProductName (default)
528 
 
 534 
 
529 
=head1 OPTIONS
 535 
=head1 OPTIONS
530 
 
 536 
 
531 
=over 8
 537 
=over 8
532 
 
 538 
 
Line 607... Line 613...
607 
 
 613 
 
608 
=back
 614 
=back
609 
 
 615 
 
610 
The default operation is to NOT roll the specified GUID elements.
 616 
The default operation is to NOT roll the specified GUID elements.
611 
 
 617 
 
- 
 
 618 
=item B<-nameversion>
- 
 
 619 
 
- 
 
 620 
This option Add Version information to the Product Name.
- 
 
 621 
 
- 
 
 622 
The default operation will add Version Information. Use -nonameversion to disable
- 
 
 623 
this operation.
- 
 
 624 
 
612 
=back
 625 
=back
613 
 
 626 
 
614 
=head1 DESCRIPTION
 627 
=head1 DESCRIPTION
615 
 
 628 
 
616 
This program is used within the ERG deployment process to build up an Install
 629 
This program is used within the ERG deployment process to build up an Install