Subversion Repositories DevTools

Rev

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

Rev 353 Rev 357
Line 20... Line 20...
20
#                   -infile     auto.xml/auto.pl
20
#                   -infile     auto.xml/auto.pl
21
#                   -outfile    xxxdepends.xml/build.pl
21
#                   -outfile    xxxdepends.xml/build.pl
22
#                   -pname      package_name
22
#                   -pname      package_name
23
#                   -pversion   package_version
23
#                   -pversion   package_version
24
#                   -infofile   path_to_info_file
24
#                   -infofile   path_to_info_file
25
#                   -wiplabel   Existing WIP label (deprecate)
-
 
26
#                   -baselabel  View label
25
#                   -baselabel  View label
27
#                   -isawip     Is A WIP (optional)
26
#                   -isawip     Is A WIP (optional)
28
#
27
#
29
#......................................................................#
28
#......................................................................#
30
 
29
 
Line 52... Line 51...
52
my $opt_branch;
51
my $opt_branch;
53
my $opt_newbranch;
52
my $opt_newbranch;
54
my $opt_infofile;
53
my $opt_infofile;
55
my $opt_pname;
54
my $opt_pname;
56
my $opt_pversion;
55
my $opt_pversion;
57
my $opt_wiptag;
-
 
58
my $opt_basetag;
56
my $opt_basetag;
59
my $opt_isa_wip;
57
my $opt_isa_wip;
60
 
58
 
61
#
59
#
62
#   Globals
60
#   Globals
Line 85... Line 83...
85
                "newbranch"     => \$opt_newbranch,         # string
83
                "newbranch"     => \$opt_newbranch,         # string
86
 
84
 
87
                "infofile=s"    => \$opt_infofile,          # string
85
                "infofile=s"    => \$opt_infofile,          # string
88
                "pname=s"       => \$opt_pname,             # string
86
                "pname=s"       => \$opt_pname,             # string
89
                "pversion=s"    => \$opt_pversion,          # string
87
                "pversion=s"    => \$opt_pversion,          # string
90
                "wiplabel=s"    => \$opt_wiptag,            # string
-
 
91
                "baselabel=s"   => \$opt_basetag,           # string
88
                "baselabel=s"   => \$opt_basetag,           # string
92
                "isawip:+"      => \$opt_isa_wip,           # Flag
89
                "isawip:+"      => \$opt_isa_wip,           # Flag
93
 
90
 
94
                #
91
                #
95
                #   Update documentation at the end of the file
92
                #   Update documentation at the end of the file
Line 150... Line 147...
150
#   Need to extract and save the path
147
#   Need to extract and save the path
151
#
148
#
152
$opt_basetag =~ tr~\\/~/~s;
149
$opt_basetag =~ tr~\\/~/~s;
153
$opt_basetag =~ m~^CC::/(.+)::(.+)~ || Error("Invalid baselabel format: $opt_basetag");
150
$opt_basetag =~ m~^CC::/(.+)::(.+)~ || Error("Invalid baselabel format: $opt_basetag");
154
$ccpath = $1;
151
$ccpath = $1;
155
$wip_label = $2 if ( $opt_isa_wip || $opt_wiptag );
152
$wip_label = $2 if ( $opt_isa_wip );
156
 
153
 
157
#
154
#
158
#   Determine the name of the Branch to be used
155
#   Determine the name of the Branch to be used
159
#   This is based on the branch that the file is already on as ClearCase does
156
#   This is based on the branch that the file is already on as ClearCase does
160
#   not allow multiple instances of a branch on different sub-branches
157
#   not allow multiple instances of a branch on different sub-branches
Line 549... Line 546...
549
    {
546
    {
550
 
547
 
551
        my $data = JatsProperties::New();
548
        my $data = JatsProperties::New();
552
 
549
 
553
        $data->setProperty('Label', $tag_label);
550
        $data->setProperty('Label', $tag_label);
554
        $data->setProperty('WipLabel', $wip_label ) if $wip_label;
551
        $data->setProperty('WipLabel', $opt_basetag ) if $opt_isa_wip;
555
        $data->setProperty('PackageName', $opt_pname);
552
        $data->setProperty('PackageName', $opt_pname);
556
        $data->setProperty('PackageVersion', $opt_pversion);
553
        $data->setProperty('PackageVersion', $opt_pversion);
557
        $data->setProperty('clearcase.branch', $opt_branch);
554
        $data->setProperty('clearcase.branch', $opt_branch);
558
        $data->setProperty('VCS.tag', 'CC::/' . $ccpath . '::' . $tag_label);
555
        $data->setProperty('VCS.tag', 'CC::/' . $ccpath . '::' . $tag_label);
559
 
556
 
Line 651... Line 648...
651
    -branch=xxx         - Branch to create (AutoBuilder)
648
    -branch=xxx         - Branch to create (AutoBuilder)
652
    -newbranch          - Force file to be on a new (project) branch
649
    -newbranch          - Force file to be on a new (project) branch
653
    -infofile=path      - Save label information in 'path'
650
    -infofile=path      - Save label information in 'path'
654
    -pname=name         - Name of the package
651
    -pname=name         - Name of the package
655
    -pversion=text      - Package version
652
    -pversion=text      - Package version
656
    -wiplabel=text      - Current package WIP VcsTag
-
 
657
    -baselabel=text     - Base VcsTag for sandbox
653
    -baselabel=text     - Base VcsTag for sandbox
658
    -isawip             - Current package is a WIP
654
    -isawip             - Current package is a WIP
659
 
655
 
660
=head1 OPTIONS
656
=head1 OPTIONS
661
 
657
 
Line 729... Line 725...
729
=item B<-pversion=xxx>
725
=item B<-pversion=xxx>
730
 
726
 
731
This option specifies the package version. It will be used to construct a new
727
This option specifies the package version. It will be used to construct a new
732
label for the package.
728
label for the package.
733
 
729
 
734
=item B<-wiplabel=text>
-
 
735
 
-
 
736
Deprecated option. Do not use. Use -isawip instead.
-
 
737
 
-
 
738
=item B<-baselabel=text>
730
=item B<-baselabel=text>
739
 
731
 
740
This option specifies the Version Control Label that the current workspace
732
This option specifies the Version Control Label that the current workspace
741
is based on. This may be used to determine the new label for the package.
733
is based on. This may be used to determine the new label for the package.
742
 
734
 
Line 808... Line 800...
808
 
800
 
809
=over 8
801
=over 8
810
 
802
 
811
=item   1) Label - The label used to tag the file
803
=item   1) Label - The label used to tag the file
812
 
804
 
813
=item   3) WipLabel - The WIP label provided (optional)
-
 
814
 
-
 
815
=item   4) PackageName - The package name
805
=item   2) PackageName - The package name
816
 
806
 
817
=item   5) PackageVersion - The package version
807
=item   3) PackageVersion - The package version
818
 
808
 
819
=back
809
=back
820
 
810
 
821
=back
811
=back
822
 
812