Subversion Repositories DevTools

#                       PackageVersion          - Return the version of a named package

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

# Function        : PackageVersion 

#

# Description     : Return the version of the named package 

#

# Inputs          : pkgName - Name of the package 

#                   Options

#                       --format=SomeString. The text replacements

#                           {VERSION}

#                           {VERSIONNUMVER}

#                           {PROJECT}

#                           {NAME}

#                           {TYPE}

#                           {ARCH}

#

# Returns         : A string 

#

sub PackageVersion

{

    my ($pkgName, @args) = @_;

    my ($version, $versionNumber, $project, $format);

    foreach ( @args)

    {

        if (m~^--format=(.+)~i) {

            $format = $1

        } else {

            Error ("PackageVersion: Unknown option: $_")

        }

    }

    foreach my $entry ( getPackageList() )

    {

        if ($entry->getName() eq $pkgName ) {

            $version = $entry->getVersion();

            ($versionNumber = $version ) =~ s~\.[^.]+$~~;

            ($project = $version ) =~ s~.*\.~~;

            last;

        }

    }

    Error ("PackageVersion: $pkgName is not a dependent package") unless defined $version;

    #

    #   Format the string

    #

    if ($format) {

        $format =~ s~{NAME}~$pkgName~g;

        $format =~ s~{VERSION}~$version~g;

        $format =~ s~{VERSIONNUMBER}~$versionNumber~g;

        $format =~ s~{PROJECT}~$project~g;

        $format =~ s~{TYPE}~$opt_type~g;

        $format =~ s~{ARCH}~$opt_pkgarch~g;

        $version = $format;

    }

    return $version;

}