#!/usr/bin/perl
#
# $Revision: 1.4 $
# Copyright 2020 Teleflora.
#
# Update BBj to our accepted Revision
#
#DESC Install and/or upgrade BBJ and Java.

use strict;
use warnings;
use English;
use Getopt::Long;
use POSIX;

my $HELP = 0;
my $VERSION = 0;
my $BBJ15 = 0;
my $BBJ16 = 0;
my $BBJ17 = 0;
my $BBJ18 = 0;
my $BBJ19 = 1;
my $BBJDV = 0;
my $BBJRV = 0;
my $SKIPBACKUP = 0;

my $OS = "";
my $ARCH = "";
my $POSDIR = "";
my $MEM = 0;
my $pid = 0;
my $foundulimit = "";
my $console_rmi = "";
my $basis_ide = "";

my $authnumtest = "";
my $serialnumtest = "";
my $hostnametest = "";
my $hostidtest = "";
my $Auth_Number = "";
my $Serial_Number = "";
my $Host_Name = "";
my $Host_ID = "";
my $Host_IP = "";
my $bbjinstallsettingsRV = "";
my $config_ini = "";
my $returnval = 0;
my $BBJ = "";
my $JDK_X64 = "";
my $JDK_X86 = "";
my $java_ver_latest_15 = "1.8.0_65";
my $java_rel_latest_15 = "8u65";
my $java_ver_latest_16_17 = "1.8.0_162";
my $java_rel_latest_16_17 = "8u162";
my $java_ver_latest_18_19 = "1.8.0_202";
my $java_rel_latest_18_19 = "8u202";
my $java_ver_latest_19 = "11.0.7_10"; #Moving to OpenJDK
my $java_rel_latest_19 = "11u10";
my $bbj15_tar = "bbj15update.tar";
my $bbj15_jar = "BBj1511_09-28-2015_1801.jar";
my $bbj16_tar = "bbj16update.tar";
my $bbj16_jar = "BBj1624_03-24-2017_0426.jar";
my $bbj17_tar = "bbj17update.tar";
my $bbj17_jar = "BBj1713_03-15-2018_1548.jar";
my $bbj18_tar = "bbj18update.tar";
my $bbj18_jar = "BBj1821_03-19-2019_1712.jar";
my $bbj19_tar = "bbj19update.tar";
my $bbj19_jar = "BBj1923_04-10-2020_0711.jar";
my $bbjdv_tar = "bbjdvupdate.tar";
my $bbjdv_jar = "BBjDev_RTI_Latest_DevBld.jar";
my $java_ver = "";
my $java_rel = "";
my $jdir_link = "";
my $BBJ_INSTALL_FILE = "";
my $tmp_MBs_needed = "1350";
my $tmpDir = "~/";
my $created_tmpDir = "false";
my $df_java = "";
my $du_java = "";
my $df = "";
my $availfs = "";
my $DemoTrueFalse = "false";
my $License_Type = "register";
my $BLM_Address = "";
my $BLM_Remote = "false";
my $BLM_Start_Type = "init";
# Create a timestamp   
my $timestamp = POSIX::strftime("%Y%m%d%H%M%S", localtime(time));

#
# "0" means "do not install"
# "1" means "do install"
# "-1" means "default", which is dictated later on by other factors
# Barring any other factors, "-1" means "do".
#

my %installflags = (
        java => -1,
);

GetOptions(
	"help" => \$HELP,
	"version" => \$VERSION,
	"bbj15" => \$BBJ15,
	"bbj16" => \$BBJ16,
	"bbj17" => \$BBJ17,
	"bbj18" => \$BBJ18,
	"bbj19" => \$BBJ19,
	"bbjdv" => \$BBJDV,
   "skipbackup" => \$SKIPBACKUP,
        "java!" => \$installflags{'java'},
);



# --version
if($VERSION != 0) {
	print("$0 " . '$Revision: 1.4 $' . "\n");
	exit(0);
}

# --help
if($HELP != 0) {
	usage();
	exit(0);
}

if($BBJ15 == 0 and $BBJ16 == 0 and $BBJ17 == 0 and $BBJ18 == 0 and $BBJ19 == 0 and $BBJDV == 0) {
        print("$0 " . "No BBj Version Selected, Exiting \n");
        exit(0);
}
#

# Which Processor are we using?
open(PIPE, "uname -i |");
while(<PIPE>) {
	if(/i.86/) {
		$ARCH = "x86";
	}
	if(/x86_64/) {
		$ARCH = "x64";
	}
}
close(PIPE);

# What IP to check blm
open(PIPE, "hostname -i |");
while(<PIPE>) {
	$Host_IP = $_;
}
close(PIPE);

# How much RAM for setting -Xmx and -Xms
open(PIPE, "free -h |");
while(<PIPE>){
  if ($_ =~ /^Mem:/)
  {
    $MEM = index ($_, 'G');
    $MEM = substr $_, 6, $MEM-6;
    $MEM = $MEM + 0;
  }
}
close(PIPE);

$POSDIR = "/usr2/bbx";

loginfo("Begin $0 ");
loginfo("System has $MEM GB of memory, Architecture: $ARCH ");
loginfo("Checking for available disk space");

open(PIPE, "df -Pm /|");
while(<PIPE>){
    if ($_ !~ /^Filesystem/)
    {
        my @df = split(' ', $_ );
        $availfs = $df[3];
    }
}
close(PIPE);
loginfo("Need $tmp_MBs_needed and have $availfs ");
if ( $availfs >= $tmp_MBs_needed )
{
   $tmpDir = "/tmp/";
   loginfo("Ok to load on root partition in $tmpDir ");
} else {
   loginfo("Not enough space on root partition, checking /usr2 \n");
   $availfs = "";

   open(PIPE, "df -Pm /usr2|");
   while(<PIPE>){
     if ($_ !~ /^Filesystem/)
     {
        my @df = split(' ', $_ );
        $availfs = $df[3];
     }
   }
   close(PIPE);

   loginfo("Need $tmp_MBs_needed and have $availfs ");
   
   if ( $availfs >= $tmp_MBs_needed )
   {
     $tmpDir = "/usr2/tmp/";
     loginfo("Ok to load on /usr2 partition in $tmpDir ");
     if ( -d "/usr2/tmp/")
     {
       loginfo("$tmpDir exists, continuing ");
     } else {
       loginfo("$tmpDir does not exists, creating ");
       mysystem ("mkdir /usr2/tmp");
       $created_tmpDir = "true";
     }
   } else {
     loginfo("Not enough space on /usr2 partition, exiting ");
     exit 22
   }
}


# We must be root to do these things.
if($EUID == 0) {

	if($BBJ15 != 0) {
                $BBJ = $bbj15_tar;
                $BBJ_INSTALL_FILE = $bbj15_jar;

                $java_rel = $java_rel_latest_15;
                $java_ver = $java_ver_latest_15;
	}

	if($BBJ16 != 0) {
                $BBJ = $bbj16_tar;
                $BBJ_INSTALL_FILE = $bbj16_jar;

                $java_rel = $java_rel_latest_16_17;
                $java_ver = $java_ver_latest_16_17;
	}

	if($BBJ17 != 0) {
                $BBJ = $bbj17_tar;
                $BBJ_INSTALL_FILE = $bbj17_jar;

                $java_rel = $java_rel_latest_16_17;
                $java_ver = $java_ver_latest_16_17;
	}

	if($BBJ18 != 0) {
                $BBJ = $bbj18_tar;
                $BBJ_INSTALL_FILE = $bbj18_jar;

                $java_rel = $java_rel_latest_18_19;
                $java_ver = $java_ver_latest_18_19;
	}

	if($BBJ19 != 0) {
                $BBJ = $bbj19_tar;
                $BBJ_INSTALL_FILE = $bbj19_jar;

                $java_rel = $java_rel_latest_19;
                $java_ver = $java_ver_latest_19;
	}

	if($BBJDV != 0) {
                $BBJ = $bbjdv_tar;
                $BBJ_INSTALL_FILE = $bbjdv_jar;

                $java_rel = $java_rel_latest_18_19;
                $java_ver = $java_ver_latest_18_19;
	}

	$BBJRV = substr $BBJ_INSTALL_FILE, 3, 2;
	$BBJRV .= "." . substr $BBJ_INSTALL_FILE, 5, 2;
	loginfo("Installing BBj Rev $BBJRV Software Dependencies...");

	loginfo("Starting update_bbj_ver.pl " . '$Revision: 1.4 $' . "\n");
	# --bbj15, --bbj16, --bbj17, --bbj18, --bbj19, or --bbjdv (daily dev)
	if($BBJ19 != 0)
		{
			$jdir_link="jdk-11.0.7+10";
			$JDK_X64 = "OpenJDK11U-jdk_x64_linux_hotspot_11.0.7_10.tar.gz";
			$JDK_X86 = "OpenJDK11U-jdk_x64_linux_hotspot_11.0.7_10.tar.gz";
			install_java();
			install_bbj_packages();
		}
			
	if($BBJ15 != 0 or $BBJ16 != 0 or $BBJ17 != 0 or $BBJ18 != 0 or $BBJDV != 0) {
		$jdir_link = "jdk" . $java_ver;

		$JDK_X64 = "jdk-" . $java_rel . "-linux-x64.tar.gz";
		$JDK_X86 = "jdk-" . $java_rel . "-linux-i586.tar.gz";

        	# Install Java
        	if ($installflags{'java'} != 0) {

			if (is_java_already_installed($java_ver)) {
				loginfo("Java $java_ver is installed, skipping Java update");
			}
			else {
				loginfo("Removing old Java rpm packages...");
				mysystem("rm $tmpDir/jre-$java_rel-linux*.rpm");
				mysystem("rpm -e jre-$java_ver");
				mysystem("rpm -e jdk-$java_ver");

				loginfo("Java $java_ver is NOT installed, beginning Java update");
				install_java();
			}
        	}

		else {
                	loginfo("--nojava specified. Skipping Java Update.");
        	}

		install_bbj_packages();
	}
}



exit(0);
###################################################
###################################################
###################################################


sub usage
{
	print(<< "EOF");
$0 Usage:

$0 --version
$0 --help
$0 --bbj15            Installs BBj 15
$0 --bbj16            Installs BBj 16
$0 --bbj17            Installs BBj 17
$0 --bbj18            Installs BBj 18
$0 --bbj19            Installs BBj 19 (Latest 18 RC until 19 released)
$0 --bbjdv            Installs BBj, Latest Development build we have 
$0 --skipbackup       Skip removing basis.old and coping current to basis.old (for restart to save time)
$0 --java / --nojava  Do / Do not install Java (latest for BBj). Defaults to --java.

EOF

}


#
# Install BBj version
#
sub install_bbj_packages
{
	my $line = "";

	# Install BBj
	if(-d "/usr2/basis") {
		if($SKIPBACKUP == 0) {
			loginfo("Removing current /usr2/basis-old ");
			mysystem("rm -rf /usr2/basis-old");
			loginfo("Copying current /usr2/basis/ to /usr2/basis-old/...");
			mysystem("cp -pr /usr2/basis /usr2/basis-old");
			if($returnval != 0) {
				logerror("Terminating update_bbj with return code $returnval.");
				exit($returnval);
			}
		} else {
			loginfo("Skip remove of and backup to /usr2/basis-old ")
		}
	} else {
		loginfo("/usr2/basis/ did not previously exist...");
	}


	
	loginfo("Installing BBj v" . $BBJRV . "...");
	if(! -f "$tmpDir/$BBJ.gz" && ! -f "$tmpDir/$BBJ") {
		loginfo("Retrieving $BBJ.gz to $tmpDir/$BBJ.gz ");
		mysystem("wget --proxy=off --cache=off --progress=dot:mega -O $tmpDir/$BBJ.gz http://tposlinux.blob.core.windows.net/rtibbjupdate/$BBJ.gz");
		if(! -f "$tmpDir/$BBJ.gz") {
			logerror("Could not download file http://tposlinux.blob.core.windows.net/rtibbjupdate/$BBJ.gz");
			exit(1);
		}
	}
#####
#Basis license Info
####
	loginfo("Checking for License Manager Local or Remote.....");
	if (-f "/usr2/basis/basis.lic") {
		loginfo("Checking basis.lic file");
		open BBJLIC, "</usr2/basis/basis.lic";
		while (<BBJLIC>) {
			if ($BLM_Address eq "") {
				loginfo("line being checked: $_ ");
				if ($_ =~ /^server[ ]{1,}.{1,}/i ) {
					loginfo("found server line: $_ ");
					my @blm_lic = split(' ', $_);
					$BLM_Address = $blm_lic[1];
					if ($BLM_Address =~ /localhost/i || $BLM_Address =~ /127.0.0.1/i || $BLM_Address =~ /$Host_IP/i || $BLM_Address =~ /$Host_ID/i ) {
						$BLM_Address = "";
					}
				}	
			}
		}
		close BBJLIC;
		if ("$BLM_Address" ne "") {
			$BLM_Remote = "true";
			$License_Type = "blm";
			$BLM_Start_Type = "manual";
       			loginfo("Remote blm server at $BLM_Address ");
		}
	}

	loginfo("Getting AuthNumber for Basis License......");
 	if (! -f "//usr2/basis/blm/Register.properties")
	{
                loginfo("No Register.properties file exists...");
        }
         else {
		$authnumtest = `grep AuthNum\= /usr2/basis/blm/Register.properties 2>/dev/null`;
		chomp $authnumtest;
		if ($authnumtest ne "")
		{
			my @authnum=split(/\=/, $authnumtest);
			$Auth_Number=$authnum[$#authnum];
		}
        	if ( "$Auth_Number" eq "" )
        	{ 
           		loginfo("Auth_Number is blank, set DEMOLIC to true ");
           		$DemoTrueFalse = "true";
        	}
		loginfo("Auth_Number = $Auth_Number");

		loginfo("Getting Serial Number..... ");	
		$serialnumtest = `grep SerialNum\= /usr2/basis/blm/Register.properties 2>/dev/null`;
		chomp $serialnumtest;
		if ($serialnumtest ne "")
		{
			my @serialnum=split(/\=/, $serialnumtest);
			$Serial_Number=$serialnum[$#serialnum];
		}
		loginfo("Serial Number = $Serial_Number");
		
		loginfo("Getting HostName .....");
		$hostnametest = `grep HostName /usr2/basis/blm/Register.properties 2>/dev/null`;
		chomp $hostnametest;
		my @hostname=split(/\=/, $hostnametest);
		$Host_Name=$hostname[$#hostname];
		loginfo("Host Name = $Host_Name");
		
		loginfo("Getting Composite.....");
		$hostidtest = `grep HostID /usr2/basis/blm/Register.properties 2>/dev/null`;
		chomp $hostidtest;
		my @hostid=split(/ID\=/, $hostidtest);
		$Host_ID=$hostid[$#hostid];
		loginfo("Host ID = $Host_ID");
	}
	
		my $bbjinstallsettings = "
################################################################################
# BASIS Installation and Configuration Wizard options
# 
# 
# A forward slash or two back slashes should be used when specifying directories or files
# Passwords will be encrypted when recorded.
# 
# 
################################################################################
# Wizard Settings
# 
# The following variables set whether or not to run various BASIS
# installation and configuration wizards after the installation of the software.
# Setting a value to [interactive] will cause the specified wizard to be run
# interactively. Setting a value to [silent] will cause the specified wizard to
# be run silently. Setting a value to [progress] will cause the specified wizard to
# be run with a progress bar. Setting a value to [off] will prevent that wizard from being run.
# The UAC wizard will only be run on Windows machines in which UAC is enabled. The
# license selection and finish wizards can not be run silently.
# 
# The following value can be [interactive] [silent] [progress]. The default is [interactive].
INSTALL_WIZARD=silent
# The following values can be [off] [interactive] [silent] [progress]. The default is [off].

UAC_WIZARD=off
LICENSE_SELECTION_WIZARD=silent
LICENSE_REGISTER_WIZARD=silent
LICENSE_INSTALL_WIZARD=silent
BBJ_BRAND_WIZARD=silent
BLM_CFG_STARTUP_WIZARD=silent
BLM_START_STOP_WIZARD=silent
BBJ_CFG_STARTUP_WIZARD=silent
BBJ_START_STOP_WIZARD=silent
EM_WIZARD=off
FINISH_WIZARD=silent
# 
################################################################################
# Global Wizard Detail Settings
# 
# The following value can be [en] [nl] [fr] [de] [it] [es] [sv].
# The default is the current locale language.
LANGUAGE=en
# The splash image can be a png or jpg and can be found in the installable jar or on disk. By default the BASIS splash image will be used.
# The following value can be [none] which will skip the splash window. A GUI environment is needed to display the splash window.
SPLASH_IMAGE=
# 
################################################################################
# Install Wizard Detail Settings
# 
# The following value can be [true] [false]. Default is [false].
INSTALL_LICENSE_AGREE=true
# Specifies the installation target directory on Window OS. If not specified the default c:/Program Files/basis directory will be used.
INSTALL_TARGET_DIRECTORY_WIN=C:/bbj/
# Specifies the installation target directory on non-Window OS. If not specified the /opt/basis directory will be used on Mac, on all other OS the /usr/local/basis directory will be used.
INSTALL_TARGET_DIRECTORY_NON_WIN=/usr2/basis/
# Specifies the java directory on Windows OS. If not specified or the specified directory does not exist the java directory will be set via hints.
INSTALL_JAVA_DIRECTORY_WIN=<REPLACEMEREPLACEME>
# Specifies the java directory on non-Windows OS. If not specified or the specified directory does not exist the java directory will be set via hints.
INSTALL_JAVA_DIRECTORY_NON_WIN=/usr/java/latest/
# The following value can be [true] [false]. Default is [false].
INSTALL_CUSTOM=false
# Specifies the comma separated custom features to install. The default is to install all available features.
# Specifies the comma separated custom features to install. The default is to install all available features.
INSTALL_CUSTOM_FEATURES=
# for Windows  INSTALL_CUSTOM=true
# The following value can be [true] [false]. Default is [false].
INSTALL_WEB_START_INSTALLATION=false
# for Windows  INSTALL_CUSTOM_FEATURES=ThinClient,ODBC,JDBC
# The following properties are used to configure Web Start
# Specifies if a certificate should be generated in order to sign Web Start jars. This value can be [true] [false]. Default is [true].
INSTALL_GENERATE_CERTIFICATE=true
# Specifies the company name to use when generating a Web Start certificate
INSTALL_YOUR_COMPANY_NAME=Teleflora
# Specifies the Jetty host to use when generating a Web Start certificate. By default the web server host in BBj.properties will be used if it exists, otherwise the external IP address of the machine will be used.
INSTALL_JETTY_HOST=
# Specifies the Jetty port to use when generating a Web Start certificate. By default the web server port in BBj.properties will be used if it exists, otherwise 8888 will be used.
INSTALL_JETTY_PORT=
# Specifies if a CA certificate should be used to sign Web Start jars. This value can be [true] [false]. Default is [false].
INSTALL_USE_CA_CERTIFICATE=false
# Specifies the keystore to use when using a CA certificate to sign Web Start jars.
INSTALL_KEYSTORE=
# Specifies the keystore password to use when using a CA certificate to sign Web Start jars.
INSTALL_KEYSTORE_PASSWORD=
# Specifies the private key to use when using a CA certificate to sign Web Start jars.
INSTALL_PRIVATE_KEY=
# Specifies the private key password to use when using a CA certificate to sign Web Start jars.
INSTALL_PRIVATE_KEY_PASSWORD=
# The following properties can be specified to run a BBj program at the installation finish. The variable {dollarsign}InstallDir can be used in values that contain a path to be relative to the BBj installation directory.
INSTALL_BBEXEC_PROGRAM=
INSTALL_BBEXEC_CONFIG=
INSTALL_BBEXEC_WORKING_DIR=
INSTALL_BBEXEC_TERMINAL=
INSTALL_BBEXEC_USER=
# The following value can be [true] [false]. Default is [false].
INSTALL_BBEXEC_QUIET=
INSTALL_BBEXEC_APP_NAME=
INSTALL_BBEXEC_APP_USER_NAME=
INSTALL_BBEXEC_CLASSPATH_NAME=
# The following value can be [true] [false]. Default is [false].
INSTALL_BBEXEC_SECURE=
INSTALL_BBEXEC_LOCAL_PORT=
INSTALL_BBEXEC_REMOTE_PORT=
INSTALL_BBEXEC_ARGS=
# The following value can be [true] [false]. Default is [false].
INSTALL_BBEXEC_SYNC=
# The following value default is 6, a wait of 30 seconds will be performed between retries, for a total default retry time of 3 minutes.
INSTALL_BBEXEC_NUM_RETRIES=
# The following value can be [true] [false]. Default is [false].
INSTALL_BBEXEC_SHOW_PROGRESS=
# The following value can be [true] [false]. Default is [false].
INSTALL_BBEXEC_ALLOW_CANCEL=
INSTALL_BBEXEC_PROGRESS_TITLE=
INSTALL_BBEXEC_PROGRESS_TEXT=
INSTALL_BBEXEC_FAILURE_TITLE=
INSTALL_BBEXEC_FAILURE_TEXT=
# 
################################################################################
# UAC Wizard Detail Settings
# 
# The following value can be [true] [false]. Default is [false].
UAC_ELEVATE=
# 
################################################################################
# License Selection Wizard Detail Settings
# 
# The license regsistration, install, and brand wizards will
# be automatically added, depending on the user selection.
# The following value can be [register] [install] [blm]. Default is [register]
LICENSE_SELECTION_OPTION=$License_Type
# 
################################################################################
# License Registration Wizard Detail Settings
# 
# The following value can be [true] [false]
LICENSE_REGISTER_DEMOLIC=$DemoTrueFalse
LICENSE_REGISTER_COMPANYNAME=Teleflora
LICENSE_REGISTER_FIRSTNAME=JJ
LICENSE_REGISTER_LASTNAME=Blankenship
LICENSE_REGISTER_EMAIL=jblankenship\@teleflora.com
LICENSE_REGISTER_FAX=
LICENSE_REGISTER_PHONE=800.621.8324
# The following values can be left empty, so that they will be dynamically populated
LICENSE_REGISTER_HOSTNAME=$Host_Name
LICENSE_REGISTER_HOSTID=$Host_ID
# The following are only used when LICENSE_REGISTER_DEMOLIC=[false]
LICENSE_REGISTER_SERIALNUM=$Serial_Number 
LICENSE_REGISTER_AUTHNUM=$Auth_Number
# The following are only used when LICENSE_REGISTER_DEMOLIC=[true]
LICENSE_REGISTER_DEMOUSERCOUNT=2
LICENSE_REGISTER_DEMOSERIALNUM=BBX000001
LICENSE_REGISTER_DEMOAUTHNUM=9999999999
# The following value can be [auto] [web] [email] [phone] [other]. Default is [auto]
LICENSE_REGISTER_REGMETHOD=auto
# The following value can be [web] [email]. Default is [web]. This setting is not
# used if LICENSE_REGISTER_REGMETHOD=[auto]
LICENSE_REGISTER_DELMETHOD=web
# The following value can be [true] [false]. Default is [true].
LICENSE_REGISTER_COUNTRYUSACANADA=true
# The following value can be [true] [false]. Default is [false].
LICENSE_REGISTER_WANTINFO=false
# The following value can be [true] [false]. Default is [false].
LICENSE_REGISTER_NOTEBOOK=false
# The following value is only used when LICENSE_REGMETHOD=[phone].
# Specify path and file name, a ASCII text file will be generated by the wizard.
LICENSE_REGISTER_PHONEFILE=
# The following value is only used when LICENSE_REGMETHOD=[other].
# Specify path and file name, a ASCII text file will be generated by the wizard.
LICENSE_REGISTER_OTHERFILE=
# 
################################################################################
# License Install Wizard Detail Settings
# 
# The following value can be [true] [false]. Default is [false].
LICENSE_INSTALL_ENTERLICINFO=false
# The following is only used when LICENSE_INSTALL_ENTERLICINFO=[false].
# Specify the location of an existing license file.
LICENSE_INSTALL_LICENSEFILE=/usr2/basis/blm/
# The following are only used when LICENSE_INSTALL_ENTERLICINFO=[true].
LICENSE_INSTALL_FEATURE=
LICENSE_INSTALL_ENCRYPTCODE=
LICENSE_INSTALL_LICREV=
LICENSE_INSTALL_HOSTID=
LICENSE_INSTALL_EXPDATE=
LICENSE_INSTALL_CHECKSUM=
LICENSE_INSTALL_NUMUSERS=
LICENSE_INSTALL_SERIALNUM=
# 
################################################################################
# BBj Brand Wizard Detail Settings
# 
# The following value can be [true] [false]. Default is [false].
BBJ_BRAND_REMOTE=$BLM_Remote
BBJ_BRAND_SERVERNAME=$BLM_Address
# 
################################################################################
# BLM Configuration Startup Wizard Detail Settings
# 
# The following properties are for Windows OS
# The following value can be [service] [login] [manual]. Default is [service].
BLM_CFG_STARTUP_TYPE_WIN=
# The following value can be [auto] [manual] [disabled]
BLM_CFG_STARTUP_SERVICESTARTUPTYPE_WIN=
# The following property is for non-Windows OS
# The following value can be [init] [manual]. Default is [init].
BLM_CFG_STARTUP_TYPE_NON_WIN=$BLM_Start_Type
# 
################################################################################
# BLM Services Wizard Detail Settings
# 
# The following value can be [start] [stop] [restart]
BLM_START_STOP_STARTUP=
# 
################################################################################
# BBj Configuration Startup Wizard Detail Settings
# 
# The following properties are for Windows OS
# The following value can be [service] [login] [manual]. Default is [login].
BBJ_CFG_STARTUP_TYPE_WIN=
BBJ_CFG_STARTUP_USERACCOUNT_WIN=
BBJ_CFG_STARTUP_PASSWORD_WIN=
# The following value is only used when run as a service and can be [auto] [manual] [disabled]
BBJ_CFG_STARTUP_SERVICESTARTUPTYPE_WIN=
# The following properties are for non-Windows OS
# The following value can be [init] [manual]. Default is [init].
BBJ_CFG_STARTUP_TYPE_NON_WIN=init
BBJ_CFG_STARTUP_USERACCOUNT_NON_WIN=root
BBJ_CFG_STARTUP_PASSWORD_NON_WIN=
# 
################################################################################
# BBj Services Wizard Detail Settings
# 
# The following value can be [start] [stop] [restart]
BBJ_START_STOP_STARTUP=start
# The following values are only used if BBJ_START_STOP_STARTUP=[stop].
# The following default value is [localhost]
BBJ_START_STOP_SERVERNAME=localhost
# The following default value is [2002]
BBJ_START_STOP_ADMINPORT=2002
# The following default value is [admin]
BBJ_START_STOP_USERNAME=
# The following default value is [admin123] only in silent mode
BBJ_START_STOP_USERPASSWORD=
# The following default value is [false]
BBJ_START_STOP_WAITFORCLIENTS=false
# 
################################################################################
# EM Wizard Detail Settings
# 
EM_CURADMINPASSWORD=
EM_NEWADMINPASSWORD=
EM_SERVERNAME=
EM_ADMINPORT=
";
##EOF
		open(BBJINST, "> $tmpDir/bbjinstallsettings.txt");
        	print BBJINST $bbjinstallsettings;
		close(BBJINST);


loginfo("Removing existing /usr2/bbx/config/config.ini.....");
	mysystem("rm -r /usr2/bbx/config/config.ini");
loginfo("Creating new /usr2/bbx/config/config.ini.....");
$config_ini = "
[RTI14]
DATEFORMAT.1=
DATEFORMAT.2=
RWUSERS=
DATESUFFIX.2=
CREATETABLETYPE=6
DATESUFFIX.1=
DICTIONARY=/usr2/bbx/dict/
DATABASE=RTI14
ROUSERS=
TRUNCATEIFTOOLONG=Y
ADVISORYLOCKING=Y
ADMINUSERS=
DATECOLUMNSSORTED=false
ACCESSPOLICY=ALL
Y2KWINDOW.1=0
DATESUFFIX=
Y2KWINDOW.2=0
CHARSET=
READONLY=N
Y2KWINDOW=0
DATA=/usr2/bbx/bbxd/
DATEFORMAT=
AUTO_ANALYZE_TABLES=false

[RTI]
DATEFORMAT.1=
DATEFORMAT.2=
RWUSERS=
DATESUFFIX.2=
CREATETABLETYPE=6
DATESUFFIX.1=
DICTIONARY=/usr2/bbx/odbc_dict/
DATABASE=RTI
ROUSERS=
TRUNCATEIFTOOLONG=Y
ADVISORYLOCKING=Y
ADMINUSERS=
DATECOLUMNSSORTED=false
ACCESSPOLICY=ALL
Y2KWINDOW.1=0
DATESUFFIX=
Y2KWINDOW.2=0
CHARSET=
READONLY=N
Y2KWINDOW=0
DATA=/usr2/bbx/bbxd/
DATEFORMAT=
AUTO_ANALYZE_TABLES=false";
open(BBJCFG, "> /usr2/bbx/config/config.ini");
        print BBJCFG $config_ini;
        close(BBJCFG);
	mysystem("chmod 775 /usr2/bbx/config/config.ini"); 
	mysystem("chown tfsupport:rtiadmins /usr2/bbx/config/config.ini"); 
	if( (-f "$tmpDir/$BBJ.gz" || -f "$tmpDir/$BBJ")
	&&  (-f "$tmpDir/bbjinstallsettings.txt")
	) {
		loginfo("Stopping RTI Programs.....");
		mysystem("/sbin/service rti stop");
		loginfo("Stopping BBj Services.....");
		mysystem ("$POSDIR/bin/bbjservice.pl --stop");
		loginfo("Stopping Basis License Manager.....");
		mysystem ("/sbin/service blm stop");
		if (-d "/usr2/install_bbj"){
			loginfo("Directory /usr2/install_bbj exists.....");
		} else {
			loginfo("Creating /usr2/install_bbj directory.....");
			mysystem ("mkdir /usr2/install_bbj");
		}
		if (-f "$tmpDir/$BBJ"){
			loginfo("Moving $BBJ to /usr2/install_bbj directory.....");
			mysystem ("mv $tmpDir/$BBJ /usr2/install_bbj/");
		} else {
			loginfo("Moving $BBJ.gz to /usr2/install_bbj directory.....");
			mysystem ("mv $tmpDir/$BBJ.gz /usr2/install_bbj/");
		}
		mysystem ("mv $tmpDir/bbjinstallsettings.txt /usr2/install_bbj/"); 
		if (-f "/usr2/install_bbj/$BBJ.gz" && ! -f "/usr2/install_bbj/$BBJ")
		{
			loginfo("Gunziping and untar $BBJ......");
			mysystem("gunzip /usr2/install_bbj/$BBJ.gz");
			if($returnval != 0) {
				logerror("Terminating update_bbj with return code $returnval.");
				exit($returnval);
			}
		}
		mysystem ("tar xvf /usr2/install_bbj/$BBJ -C /usr2/install_bbj/");
		if($returnval != 0) {
			logerror("Terminating update_bbj with return code $returnval.");
			exit($returnval);
		}
#v19 Do not need to to remove lib files anymore TODO:
#		loginfo("Removing existing jar files....");
#			mysystem("rm -r /usr2/basis/lib/*");
		loginfo("Untaring $BBJ.......");
		loginfo("Installing $BBJ......");
		mysystem("/usr/java/latest/bin/java -jar /usr2/install_bbj/$BBJ_INSTALL_FILE -p /usr2/install_bbj/bbjinstallsettings.txt");
		if($returnval != 0) {
			logerror("Terminating update_bbj with return code $returnval.");
			exit($returnval);
		}
	loginfo("Completed $BBJ Installation......");
	loginfo("Removing /var/www/lib/ files.....");
	loginfo("Webstart access is no longer accepted. Removing all files in /var/www/ relating to BBj.");
		mysystem("rm -r /var/www/lib/*");
	loginfo("removing /var/www/jnlp/ files.....");
		mysystem("rm -r /var/www/jnlp/*");
	loginfo("removing /var/www/cgi-bin/ files.....");
		mysystem("rm -r /var/www/cgi-bin/*");
	#loginfo("Copy new unsigned jars to /usr2/basis/lib/ .....");
	#	mysystem("cp -pr /usr2/install_bbj/jars/unsigned/* /usr2/basis/lib/");
	# not putting new jars in place with v16 as we no longer allow webstart access
	# loginfo("Copy new signed jars to /var/www/lib/ .....");
	#	mysystem("cp -pr /usr2/install_bbj/jars/signed/* /var/www/lib/");
	 loginfo("Copy new librxtxSerial.so to /usr2/basis/lib/ .....");
		mysystem("cp -pr /usr2/install_bbj/librxtxSerial.so /usr2/basis/lib/");
	# If BBjBootstrap_RTI_latest.jar included, rename and replace the one in  /usr2/basis/lib 
	if ( -f "/usr2/install_bbj/BBjBootstrap_RTI_latest.jar" ) {
	        loginfo("Replacing BBjBootstrap ...");
                mysystem("cp -pr /usr2/basis/lib/BBjBootstrap.jar /usr2/basis/lib/BBjBootstrap_from_install.jar");
                mysystem("cp /usr2/install_bbj/BBjBootstrap_RTI_latest.jar /usr2/basis/lib/BBjBootstrap.jar"); 
	}
	# get mssql-jdbc-7.2.1.jre8.jar from cloud storage (RTI_MONITOR needs it to write to outside database
	loginfo("Downloading mssql-jdbc-7.2.1.jre8.jar from cloud storage...");
	mysystem("wget --proxy=off --cache=off --progress=dot:mega -O /usr2/basis/lib/mssql-jdbc-7.2.1.jre8.jar http://tposlinux.blob.core.windows.net/rtibbjupdate/mssql-jdbc-7.2.1.jre8.jar");	
	loginfo("Done downloading mssql-jdbc-7.2.1.jre8.jar...");
	loginfo("Downloading Windows JRE needed for App Deployment....");
	mysystem("wget --proxy=off --cache=off --progress=dot:mega -O /usr2/bbx/config/OpenJDK11U-jre_x64_windows_hotspot_11.0.7_10.zip http://tposlinux.blob.core.windows.net/rtibbjupdate/OpenJDK11U-jre_x64_windows_hotspot_11.0.7_10.zip");
	loginfo("Done downloading Windows JRE....");
	# If rtitws.jar included, rename and replace the one in /usr2/bbx/jars 
	if ( -f "/usr2/install_bbj/rtitws.jar" ) {
	        loginfo("Copying rtitws.jar to backups and replacing ...");
                mysystem("cp -pr /usr2/bbx/jars/rtitws.jar /usr2/bbx/backups/rtitws.jar." . $timestamp);
                mysystem("cp /usr2/install_bbj/rtitws.jar /usr2/bbx/jars/rtitws.jar"); 
	}
	#
	# loginfo("Copy new jnlp.pl to /var/www/cgi-bin/ .....");
#		mysystem("cp -pr /usr2/install_bbj/bin/jnlp.pl /var/www/cgi-bin/");
#		mysystem("chmod 775 /var/www/cgi-bin/jnlp.pl");
 
	loginfo("Changing settings in BBj.properties.....");
		open BBJPROP, "</usr2/basis/cfg/BBj.properties";
		open BBJPROPOUT, ">/usr2/basis/cfg/BBj.properties.tmp"; 	
			while (<BBJPROP>) {
				if ($_ =~ /^basis.java.args.BBjServices/)
				{
					my $countCheck = 0;
					$countCheck = () = $_ =~ /\-Dfile.encoding\\=ISO\-8859\-1/g;
					if ($countCheck gt 1 )
					{
						$_ =~ s/\-Dfile.encoding\\=ISO\-8859\-1 //g;
					}
					$countCheck = 0;
					if ($_ !~ m/\-Dfile.encoding\\=ISO\-8859\-1/)
					{
						$_ =~ s/\-verbose\\:gc/\-Dfile.encoding\\=ISO\-8859\-1 \-verbose\\:gc/g;
					}
# OpenJDK can not use PrintGCDateStamps
#					if ($_ !~ m/\-XX\\:\+PrintGCDateStamps/)
#                                	{
#						$_ =~ s/$/ \-XX\\:\+PrintGCDateStamps/;
#                                	}
					$_ =~ s/\ -XX\\:\+PrintGCTimeStamps//g;
					$_ =~ s/\ -XX\\:\+PrintGCDateStamps//g;
					$_ =~ s/\ -XX\\:\+PrintGCApplicationConcurrentTime//g;
					$_ =~ s/\ -XX\\:\+PrintGCApplicationStoppedTime//g;
					$_ =~ s/\-XX\\:\+UseConcMarkSweepGC \-/\-XX\\:\+UseG1GC \-/g;
					$_ =~ s/\-XX\\:\+CMSIncrementalMode /\-XX\\:MaxGCPauseMillis\\=500 /g;
					$_ =~ s/\-XX\\:CMSIncrementSafetyFactor\\=20 //g;
					$_ =~ s/\-XX\\:CMSInitiatingOccupancyFraction\\=70 //g;
# if it wasn't replaced, add it now
					if ($_ !~ m/\-XX\\:\+UseG1GC/)
                                	{
						$_ =~ s/$/ \-XX\\:\+UseG1GC /;
                                	}
					if ($_ !~ m/\-XX\\:MaxGCPauseMillis\\=500/)
                                	{
						$_ =~ s/$/ \-XX\\:MaxGCPauseMillis\\=500 /;
                                	}
					if ($_ !~ m/\-Djxbrowser.ipc.external\\=true/)
                                	{
						$_ =~ s/$/ \-Djxbrowser.ipc.external\\=true /;
                                	}
					if ($_ !~ m/\-Djxbrowser.browser.type\\=LIGHTWEIGHT/)
                                	{
						$_ =~ s/$/ \-Djxbrowser.browser.type\\=LIGHTWEIGHT /;
                                	}
#
				}
#
				$_ =~ s/com.basis.user.useFork\=true/com.basis.user.useFork\=false/g;
#

####     see if can replace any java with latest/bin/java
#
				if ($_ =~ m/^basis.java.jvm.BBjServices/)
				{
					if ($_ !~ m/\/usr\/java\/latest\/bin\/java/)
					{
						$_ =~ s/usr\/java\/..*\/bin\/java/usr\/java\/latest\/bin\/java/;
					}
				}
				if ($_ =~ m/^basis.java.jvm.Default/)
				{
					if ($_ !~ m/\/usr\/java\/latest\/bin\/java/)
					{
						$_ =~ s/usr\/java\/..*\/bin\/java/usr\/java\/latest\/bin\/java/g;
					}
				}
#
				$_ =~ s/com.basis.server.admin.1.useSSL\=false/com.basis.server.admin.1.useSSL\=true/g;
				$_ =~ s/com.basis.bbj.comm.ProxyManagerServer.start\=false/com.basis.bbj.comm.ProxyManagerServer.start\=true/g;
				$_ =~ s/com.basis.bbj.comm.ThinClientProxyServer.start\=false/com.basis.bbj.comm.ThinClientProxyServer.start\=true/g;
				$_ =~ s/com.basis.bbj.comm.ThinClientServer.start\=false/com.basis.bbj.comm.ThinClientServer.start\=true/g;
#
				$_ =~ s/basis.java.args.Default\=\-client/basis.java.args.Default\=\-XX\\:MaxPermSize\\=128m \-client/g;
				$_ =~ s/basis.java.args.ProxyMgrServer\=\-client \-XX\\:CompileCommandFile/basis.java.args.ProxyMgrServer\=\-XX\\:MaxPermSize\\=128m \-client \-XX\\:CompileCommandFile/g;

#
				if ($_ =~ /basis.java.classpath/)
				{
					if ($_ !~ /\/usr2\/basis\/lib\/mssql-jdbc-7.2.1.jre8.jar/)
						{
							$_ =~ s/$/:\/usr2\/basis\/lib\/mssql-jdbc-7.2.1.jre8.jar/;
						}
					if ($_ !~ /\/usr2\/bbx\/jars\/rtitws.jar/)
						{
							$_ =~ s/$/:\/usr2\/bbx\/jars\/rtitws.jar/;
						}
					if (-e "/usr2/OSAS/progRM/update.jar" || -d "/usr2/OSAS/progRM/" )
					{
						if ($_ !~ /\/usr2\/OSAS\/progRM\/update.jar/)
						{
							$_ =~ s/$/:\/usr2\/OSAS\/progRM\/update.jar/;
						}
					}
					if (-e "/usr2/OSAS/progRM/barcode4j.jar" || -d "/usr2/OSAS/progRM" )
					{
						if ($_ !~ /\/usr2\/OSAS\/progRM\/barcode4j.jar/)
						{
							$_ =~ s/$/:\/usr2\/OSAS\/progRM\/barcode4j.jar/;
						}
					}
#print the existing line, then change it to basis.classpath.bbj_default. Both classpath lines need to be the same with the bbj_default having the prepended (bbj_internal) peice.
				print BBJPROPOUT $_;
					$_ =~ s/basis.java.classpath\=/basis.classpath.bbj_default=(bbj_internal)\\\:/g;
				}
				if ($_ =~ m/bbjservices.ulimit.filedescriptors/)
				{
					$foundulimit = "true";
				}
				if ($_ =~ m/com.basis.bbj.console.rmi/)
				{
					$console_rmi = "true";
				}
				if ($_ =~ m/basis.java.args.BasisIDE/)
				{
					$basis_ide = "true";
				}
				print BBJPROPOUT $_;
			}
			if ($foundulimit ne "true")
			{
				print BBJPROPOUT "bbjservices.ulimit.filedescriptors=16384\n";
			}
			if ($console_rmi ne "true")
			{
				print BBJPROPOUT "com.basis.bbj.console.rmi=false\n";
			}
			if ($basis_ide ne "true")
			{
				print BBJPROPOUT "basis.java.args.BasisIDE\\=\-XX\\:CompileCommandFile\\=/usr2/basis/cfg/.hotspot_compiler \-XX\\:MaxPermSize\\=160m\n";
			}


		close BBJPROP;
		close BBJPROPOUT;
 
		mysystem("mv /usr2/basis/cfg/BBj.properties /usr2/basis/cfg/BBj.properties.bak");
		mysystem("mv /usr2/basis/cfg/BBj.properties.tmp /usr2/basis/cfg/BBj.properties");
		mysystem("chmod 644 /usr2/basis/cfg/BBj.properties");
# Adding /usr2/bbx/bin to the /usr2/basis/cfg/.envsetup file 
		$returnval=mysystem ("grep \"/usr2/bbx/bin\"/ /usr2/basis/bin/.envsetup > /dev/null 2> /dev/null");
     if($returnval != 0) {
           loginfo("Add /usr2/bbx/bin to the Basis env setup PATH.");
           mysystem("cp -p /usr2/basis/bin/.envsetup /usr2/basis/bin/.envsetup.bak");
           open ENVOLD, "< /usr2/basis/bin/.envsetup.bak";
           open ENVNEW, "> /usr2/basis/bin/.envsetup";
           while(<ENVOLD>) {
                my $line = $_;
                if ($line =~ m/PATH=/) {
                     print ENVNEW $line;
                     $line = "PATH=\"\$PATH:\${bbjHome}/bin:\${bbjHome}/lib:/usr2/bbx/bin/\"\n";
                }
                print ENVNEW $line;
           }
           close ENVNEW;
           close ENVOLD;
           mysystem("chmod 775 /usr2/basis/bin/.envsetup");
           mysystem("rm -f /usr2/basis/bin/.envsetup.bak");
     	}
	if ( "$BLM_Remote" eq "true"){
		loginfo("Restoring basis.lic for remote license...");
		mysystem("cp -p /usr2/basis/basis.lic /usr2/basis/basis_lic_install");
		mysystem("cp -p /usr2/basis-old/basis.lic /usr2/basis/basis.lic");
	}
	loginfo("Removing Installation Files........");
		mysystem("rm -fr /usr2/install_bbj");
		if (-d "/usr2/tmp/" && "$tmpDir" eq "/usr2/tmp/" && "$created_tmpDir" eq "true")
		{
			mysystem("rm -fr /usr2/tmp/");
		}
	loginfo("Done with update BBj version.....");
	loginfo("Restarting Basis License Manager.....");
		mysystem("/sbin/service blm stop");
		sleep (2);
		mysystem("/sbin/service blm start");
	loginfo("Restarting BBj Services.....");
		mysystem("$POSDIR/bin/bbjservice.pl --stop");
		sleep (2);
		mysystem("$POSDIR/bin/bbjservice.pl --start");
		sleep (2);
	loginfo("Starting RTI Programs.....");
		mysystem("/sbin/service rti start");
	loginfo("Restart Complete......Finished!");
	}
}

#
# Verify that Java is already (correctly) installed.
#
# Returns
#   1 if installed
#   0 if not
#

sub is_java_already_installed
{
    my ($java_chk) = @_;

    my $java_root = '/usr/java';
    my $java_jre_dir = "$java_root/jre" . $java_chk;
    my $java_jdk_dir = "$java_root/jdk" . $java_chk;

    if (-d $java_root) {
	if (-d $java_jre_dir || -d $java_jdk_dir) {
	    my $link = readlink "$java_root/latest";
	    if (index($link, $java_root) != 0) {
		$link = $java_root . "/" . $link;
	    }
	    if ($link eq $java_jre_dir || $link eq $java_jdk_dir) {
		return(1);
	    }
	}
    }

    return(0);
}


#
#
#### Install Java
#
#

sub get_and_load_java
{
	my ($java_file) = @_;

	my $url = "http://tposlinux.blob.core.windows.net/rtibbjupdate";
	my $java_no_gz_test = $java_file ;
       	 	chomp $java_no_gz_test;
        	my @java_no_gz=split('.gz', $java_no_gz_test);
        	my $java_no_gz=$java_no_gz[$#java_no_gz];

	unless (-f "$tmpDir/$java_file" || -f "$tmpDir/$java_no_gz") {
		mysystem("wget --proxy=off --cache=off --progress=dot:mega -O $tmpDir/$java_file $url/$java_file");
	}
	unless (-f "$tmpDir/$java_file" || -f "$tmpDir/$java_no_gz") {
		logerror("Could not download file $url/$java_file");
		exit(1);
	}

	loginfo("Installing Java...");
	if (-f "$tmpDir/$java_file")
	{
		mysystem("chmod a+rx $tmpDir/$java_file");
		##mysystem("mv $tmpDir/$java_file /usr/java/");
		mysystem("cd /usr/java/ && gunzip $tmpDir/$java_file");
                if($returnval != 0) {
                    logerror("Terminating update_bbj with return code $returnval.");
                    exit($returnval);
                }

	} 
	mysystem("cd /usr/java/ && tar xvf $tmpDir/$java_no_gz");
        if($returnval != 0) {
            logerror("Terminating update_bbj with return code $returnval.");
            exit($returnval);
        }

	mysystem("cd /usr/java/ && rm -r latest");
	mysystem("cd /usr/java/ && ln -s " . $jdir_link . " latest");
        #mysystem("if [ ! -h /usr/bin/java ]; then ln -s /usr/java/latest/bin/java /usr/bin/java; fi");
	if ($returnval != 0) {
		logerror("Java install returned non-zero exitstatus: $returnval.");
		exit($returnval);
	}

	# Normally, clean up is a "good thing", but looks like the convention
	# for this script is to leave the Java download file.
	#loginfo("Cleaning Up...");
	#mysystem("rm -f $tmpDir/$java_file 2>/dev/null");

	if (-d "/usr2/tmp/" && "$tmpDir" eq "/usr2/tmp/")
	{
		open(PIPE, "df -Pm /usr/java|");
		while(<PIPE>){
    			if ($_ !~ /^Filesystem/)
    			{
        			my @df = split(' ', $_ );
        			$availfs = $df[3];
    			}
		}
		close(PIPE);

		open(PIPE,"du -m $tmpDir/$java_no_gz|");
		while(<PIPE>){
        			my @df = split(' ', $_ );
        			$du_java = $df[0];
		}

		if ( $availfs >= $du_java )
		{
			mysystem("mv $tmpDir/$java_no_gz /usr/java");
			loginfo("Moved $java_no_gz to /usr/java ");
		} else {
			loginfo("Not enough space in /usr/java for $java_no_gz, leaving in $tmpDir\n");
			$created_tmpDir = "false";
		}
	}

}

sub install_java
{
	loginfo("Installing Java JDK...");

	if("$ARCH" eq "x86") {
	    get_and_load_java($JDK_X86);
	}

	else {
	    get_and_load_java($JDK_X64);
	}
}


#
#
#### Loginfo  & logerror routines
#
#
sub loginfo
{
	my $message = $_[0];
	my $logtime = strftime("%Y-%m-%d %H:%M:%S", localtime());

	chomp($message);
	open LOGFILE, ">> $POSDIR/log/RTI-Patches.log";
		print LOGFILE "$logtime ($0-$$) <I> $message\r\n";
	close LOGFILE;

	return "";
}


sub logerror
{
	my $message = $_[0];
	my $logtime = strftime("%Y-%m-%d %H:%M:%S", localtime());

	chomp($message);
	open LOGFILE, ">> $POSDIR/log/RTI-Patches.log";
		print LOGFILE "$logtime ($0-$$) <E> $message\r\n";
	close LOGFILE;

	return "";
}

#
# Subroutine to run system commands.  This logs an entry.
#
sub mysystem
{
        my $command = $_[0];
	my $LOG_FILE = "$POSDIR/log/RTI-Patches.log";

        system($command . ">> $LOG_FILE 2>> $LOG_FILE");
        $returnval = WEXITSTATUS($?);
        loginfo($command . " Returned $returnval");

        return ($returnval)
}