Subversion Repositories DevTools

# Function        : getUnifiedName 

#

# Description     : Return a Package Name based on PackageName and project suffix

#                   Package Name is cleaned up a bit

#                       Replace non-alphanumenrics with a '_'

#                       Converted to upper case 

#

# Inputs          : $self

#                   $prefix         - Optional Prefix 

#                   $suffix         - Optional Suffix 

#

# Returns         : String

#

sub getUnifiedName

{

    my ($self,$prefix,$suffix) = @_;

    my $name = $prefix || '';

    $name .= $self->{'DNAME'};

    $name .= '_' . $self->{'DPROJ'} if $self->{'DPROJ'};

    $name .= $suffix || '';

    $name =~ s~\W~_~g; 

    $name =~ s~-~_~g; 

    $name =~ tr~_~_~s;

    $name = uc $name;

    return $name;

}

#-------------------------------------------------------------------------------