Subversion Repositories DevTools

########################################################################
# Copyright (C) 2008 ERG Limited, All rights reserved
#
# Module name   : buildtool
# Module type   : build system
# Compiler(s)   : n/a
# Environment(s): jats
#
# Description   : A simple program to invoke the escrow tool
#
# Usage         : jats eprog gen_escrow <bom_id>
#
#
#......................................................................#

require 5.006_001;
use strict;
use warnings;

use JatsError;                                  # Common error reporting
use JatsEnv;
use JatsSystem;

#
#   Globals
#
our $GBE_DM_LOCATION;
our $GBE_DM_USERNAME;
our $GBE_DM_PASSWORD;

my $prog = 'escrowD.jar';


#
#   Expecting one user argument so lets parse it
#
help() unless ( $ARGV[0] );

#
#   Ensure that essential environment variables are set
#
EnvImport('GBE_DM_LOCATION');
EnvImport('GBE_DM_USERNAME');
EnvImport('GBE_DM_PASSWORD');

#
#   Ensure that the required jar is in the same directory
#   It cannot be run from another directory
#
unless ( -f $prog )
{
    Error ("The program $prog is not in the current directory");
}

#
#   Run the program
#
my $rv = JatsCmd( '-java=1.6',
                    'eprog', $prog,
                    '-c', $GBE_DM_LOCATION,
                    '-u', $GBE_DM_USERNAME,
                    '-p', $GBE_DM_PASSWORD,
                    '-b', @ARGV );

exit $rv;

#-------------------------------------------------------------------------------
# Function        : help
#
# Description     : Simple help
#
# Inputs          : 
#
# Returns         : 
#
sub help
{
    print   "Usage: jats eprog gen_escrow <bom_id>\n".
            "Where:\n".
            "    bom_id        - An SBOM Identifier(number)\n"
            ;

    exit 1;
}