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