paste.perl

sub createTag {
        print "Creating a release tag for ".$version." in git.\n";
        my $tag_name = $version;
        $tag_name =~ s/-\w+$//;
        system <<"EOCMD";
cd /data/git/webgui
git checkout $branch
git pull
git tag -a v$tag_name -m ''
git push origin
EOCMD
}