Subversion Repositories DevTools

#! perl
########################################################################
# Copyright (C) 2004 ERG Limited, All rights reserved
#
# Module name   : jats.sh
# Module type   : Makefile system
# Compiler(s)   : n/a
# Environment(s): jats
#
# Description:
#
# Usage:
#
# Version   Who      Date        Description
#     1.0   DDP      08-Sep-04   Created
#......................................................................#

require 5.6.1;
use strict;
use warnings;
use Cwd;
use Getopt::Long;

my $opt_help;
my $version;

#
#   Parse the user options
#
my $result = GetOptions (
                "help+"         => \$opt_help,
                );
help() if ( !$result || $opt_help );
help ("Expecting one command line argument" )
    if ( $#ARGV != 0);

$version = $ARGV[0];
$version =~ s~^JATS_~~;
help ("Bad format for package version. Need nn.nn.nn" )
    unless ( $version =~ m~^(\d+\.\d+\.\d+)$~ );

#
#   Ensure that the jats.pl file has the correct version information
#   The version number in this file is important as it is published as
#   the JATS version number
#
my $line = qx(grep \"my.*\$GBE_VERSION\" ../TOOLS/jats.pl);
Error ('Cannot locate GBE_VERSION in jats.pl' ) unless ( $line );

$line =~ s~['"](.*).cr['"]~~;
$line = $1;
Error ("GBE_VERSION definition in jats.pl Does not match released version.",
        "Expecting: $version",
        "Got      : $line") unless( $line eq $version );

#
#   Remove any existing package directory
#
if ( -d "./pkg" )
{
    print "Removing existing package image\n";
    system ("rm -rf ./pkg");
}

print "Create package image\n";
mkdir  ("./pkg");
mkdir  ("./pkg/core_devl");

#
#   Create a new format descpkg file
#
my $pkgfile = "./pkg/core_devl/descpkg";
my $BUILDNAME_PACKAGE = "core_devl";
my $BUILDNAME_VERSION = $version;
my $BUILDNAME_PROJECT= "cr",
my $CurrentTime = localtime;
my $USER = $ENV{'USER'};
my $Cwd = getcwd();


open( DESCPKG, ">$pkgfile" ) ||
    Error( "cannot create $pkgfile" );

print DESCPKG "Package Name: $BUILDNAME_PACKAGE\n";
print DESCPKG "Version:      $BUILDNAME_VERSION.$BUILDNAME_PROJECT\n";
print DESCPKG "Released By:  $USER\n";
print DESCPKG "Released On:  $CurrentTime\n";
print DESCPKG "Path:         $Cwd\n";
print DESCPKG "\n";
print DESCPKG "Build Dependencies:\n";
print DESCPKG "\n";
close DESCPKG;

for my $dir (glob ('../BIN.*' ))
{
    print "Copy in: $dir\n";
    system ("cp -r $dir ./pkg/core_devl")
}

for my $dir qw(CFG TEMPLATES TOOLS)
{
    print "Copy in: $dir\n";
    system ("cp -r ../$dir ./pkg/core_devl")
}

for my $dir qw(TOOLS/LOCAL)
{
    print "Remove in: $dir\n";
    system ("rm -rf ./pkg/core_devl/$dir")
}

for my $file qw(Readme.txt PostInstall.sh ChangeLog.txt)
{
    print "Copy in: $file\n";
    system ("cp -r ../$file ./pkg/core_devl")
}

#
#   Update version info in some files
#
foreach my $file qw( TOOLS/jats.sh TOOLS/jats.bat )
{
    print "Insert version into: $file\n";
    system "sed -i -e 's~VERSION_TAG~${version}.cr~' ./pkg/core_devl/$file";
    if ( $? )
    {
        Error("Failure in SED command. Result: $?");
    }
}

system ( "jats.bat -here create_dpkg" );

print "Removing existing package image\n";
system ("rm -rf ./pkg");
exit 0;

########################################################################
#
#   Give the user a clue
#
sub help
{
    if ( $#_ >= 0 )
    {
        print STDERR    '-' x 80 . "\n";
        print STDERR    "ERROR: @_\n";
        print STDERR    '-' x 80 . "\n\n";
    }

    print STDERR    "Package JATS ready for release\n";
    print STDERR    "\n";
    print STDERR    "Usage: perl MakePackage nn.nn.nn\n";
    print STDERR    "\n";
    print STDERR    "Where opts:\n";
    print STDERR    "   -h              - Help message\n";
    print STDERR    "\n";
    print STDERR    "Where arguments:\n";
    print STDERR    "   nn.nn.nn        - The version of the release\n";
    print STDERR    "                     This should be based on the \n";
    print STDERR    "                     label applied to the package\n";
    print STDERR    "\n";
    exit 1;
}

#-------------------------------------------------------------------------------
# Function        : Message
#                   Warning
#                   Error
#                   _Message ( Internal use only )
#
# Description     : Error, Warning and Message routines
#                   These routines will display a message to the user
#                   with the module name.
#
#                   Multiple arguments are displayed on their own line
#                   with suitable spacing.
#
# Inputs          : Lines of text to display
#
# Returns         : Error() does not return
#
sub _Message
{
    my $tag = shift;                # First argument is a tag

    my $prefix = "";
    my $count = 0;

    #
    #   Generate the message prefix
    #   This will only be used on the first line
    #   All other lines will have a space filled prefix
    #
    $prefix .= $tag;

    foreach my $nextline ( @_ )
    {
        chomp( my $line = $nextline );
        $prefix = ' ' x length($prefix)
            if ( $count eq 1 );

        print "$prefix $line\n";
        $count++;
    }
}

sub Error
{
    _Message '(E)', @_;
    exit 1;
}