Subversion Repositories DevTools

Rev

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

Rev 7301 Rev 7306
Line 76... Line 76...
76 
    my( @arguments ) = @_;
 76 
    my( @arguments ) = @_;
77 
    my @args;
 77 
    my @args;
78 
    my %result;
 78 
    my %result;
79 
    my $unknownForm;
 79 
    my $unknownForm;
80 
    my @errors;
 80 
    my @errors;
- 
 
 81 
    my $veritasKludge;
81 
 
 82 
 
82 
    Debug( "BuildName(@arguments)" );
 83 
    Debug( "BuildName(@arguments)" );
83 
 
 84 
 
84 
#.. Parse arguments
 85 
#.. Parse arguments
85 
#.
 86 
#.
Line 128... Line 129...
128 
        $args[1] = $1;
 129 
        $args[1] = $1;
129 
        $args[2] = $2;
 130 
        $args[2] = $2;
130 
    }
 131 
    }
131 
 
 132 
 
132 
    #
 133 
    #
- 
 
 134 
    #   Special kludge for the veritas package - the one package that does not
- 
 
 135 
    #   have a project extension. MUST be fixed and theis code removed
- 
 
 136 
    #
- 
 
 137 
    if ( $#args == 1 && $args[0] eq 'veritas' )
- 
 
 138 
    {
- 
 
 139 
        $result{RELAXED_VERSION} = 1;           # Legacy (COTS) packages with no project suffix
- 
 
 140 
        $veritasKludge = 1;
- 
 
 141 
        $args[2] = '';
- 
 
 142 
    }
- 
 
 143 
 
- 
 
 144 
    #
133 
    #   Process non-flagged options
 145 
    #   Process non-flagged options
134 
    #
 146 
    #
135 
    Error ("BuildName. No name provided") unless ( defined($args[0]) );
 147 
    Error ("BuildName. No name provided") unless ( defined($args[0]) );
136 
    my $BUILDNAME = $args[0];
 148 
    my $BUILDNAME = $args[0];
137 
    my $BUILDVERSION = $args[1] if ( defined($args[1]) );
 149 
    my $BUILDVERSION = $args[1] if ( defined($args[1]) );
Line 162... Line 174...
162 
 
 174 
 
163 
        push (@errors , "Package Version not specified" )
175 
        push (@errors , "Package Version not specified" )
164 
            unless ( $args[1] );
 176 
            unless ( $args[1] );
165 
 
 177 
 
166 
        push (@errors , "Package Project not specified" )
178 
        push (@errors , "Package Project not specified" )
167 
            unless ( $args[2] );
 179 
            unless ( $args[2] || $veritasKludge );
168 
 
 180 
 
169 
        push (@errors , "Package Version should not contain spaces",
 181 
        push (@errors , "Package Version should not contain spaces",
170 
               "Version: \'$args[1]\'" ) if ( $args[1] && $args[1] =~ m~\s~ );
 182 
               "Version: \'$args[1]\'" ) if ( $args[1] && $args[1] =~ m~\s~ );
171 
 
 183 
 
172 
        push (@errors , "Package Project should not contain spaces",
 184 
        push (@errors , "Package Project should not contain spaces",