casa6

#!/usr/bin/env perl

​

# Note:

#branch="release/5.1.0"

#branch="release/vla/1.0.0"

#println branch

​

#if (branch =~ ".*release/[A-Za-z].*") {

#    println "A: " + branch

#}

​

#if (branch =~ /.*release\/\d+\.\d+\.\d+/) {

#    println "B: " + branch

#}

​

$casaBranchHint = $ENV{'CASABRANCHHINT'};

$tagMatcher="-mas-";

$casaVariant="";

#$tagid="mas";

​

$debug=$ARGV[0];

print "tagMatcher: $tagMatcher\n" if $debug;

#print "tagId: $tagid\n" if $debug;

​

# Get the hint from an environment variable. This is used for detached head builds

# Default grep is master

​

# The "default" Casa release that is not tied to any instrument

$defaultReleaseMatch = '.*release/\d+\.\d+\.\d';

$instrumentReleaseMatch = 'release/.*/\d+\.\d+\.\d';

​

if ($casaBranchHint)  {

    print "Branch hint provided: $casaBranchHint\n" if $debug;

    if ($casaBranchHint =~ "^(feature|bugfix).*CAS.*") {

        @splat = split '/', $casaBranchHint;

        print "Splat: @splat\n" if $debug;

        $tagMatcher = "@splat[0]-@splat[1]";

    } elsif ($casaBranchHint =~ "^CAS-.*" ) {

        $tagMatcher = $casaBranchHint;

    } elsif ($casaBranchHint =~ m/$defaultReleaseMatch/) {

        @splat = split '/', $casaBranchHint;

        $tagMatcher = "@splat[1]-rel-";

    } elsif ($casaBranchHint =~ m/$instrumentReleaseMatch/) {

        $tagMatcher = $casaBranchHint;

        $tagMatcher =~s/\//-/g;

        #$tagid="rel";

    } elsif ($casaBranchHint =~ "^bambooprtest.*" ) {

        $tagMatcher = "bambooprtest";

    }

} else {

    print "No branch hint available $casaBranchHint\n" if $debug;

}

print "tagMatcher: $tagMatcher\n" if $debug;

​

# Check where the current "HEAD" points to.

$branch = `git rev-parse --abbrev-ref HEAD`;

chomp($branch);

print "Current branch: $branch\n" if $debug;

​

$branchTag = "";

# Figure version for detached HEAD

if ( $branch eq "HEAD") {

  print "Detached head.\n" if $debug;