########################################################################################
## CHILIASP INSTALLATION SCRIPT (for linux distributions)
##
## This does the main part of the install of Chili!Soft ASP.
########################################################################################

%parameters;

my $i = 0;
foreach (@ARGV) {
  if (/\s*([^\s=]*)\s*=\s*(.*)/) {
    my $key = $1;
    my $value = $2;

    if ($value =~ /\"([^\"]*|\\\"*)\"/) {
      $parameters{$key} = $1;
    }
    else {
      $parameters{$key} = $value;
    }
  }
  else {
    # Unnamed arguments, use incremental naming scheme.
    $parameters{$i++} = $_;
  }
}

$execute_params = join(" ",map { "\"$_\"" } @ARGV);

($asphome,$os,$add_servers) = ($parameters{asphome},$parameters{os},$parameters{add_servers});

# the current Chili!Asp version
$caspver = '3.5.01-slackware';

# The current version of the odbc drivers:
$odbcver = '13';

# number of processes in cnfg file
$maxprocesses_mp = 5;
$maxprocesses_mt = 2;

# The installed asp server directory (asp-[webserver]-[port] set in conf.pm)
$aspserverdir = 'NA';

# The in-process status text
$status_text = "";

# The database we installed samples to
$samplesdatabase="skipped";

# misc parameters
$asp_address = '127.0.0.1';
$lic_name = 'LICENSE.LIC';

# perl needs to be searched for and saved in a preceeding script.
$perl = "";
if (-x "/usr/bin/perl")
{
	$perl = "/usr/bin/perl";
}
elsif (-x "/usr/local/bin/perl")
{
	$perl = "/usr/local/bin/perl";
}
elsif (-x "/opt/perl/bin/perl")
{
	$perl = "/opt/perl/bin/perl";
}
else
{
	$perl = `/usr/bin/which perl`;
}
if ("$perl" eq "")
{
	printf("\n");
	printf("Setup could not find Perl on your machine. Perl must exist\n"); 
	printf("for setup to continue.\n");
	printf("\n");
	printf("Make sure the perl program is installed and is in your path.\n");
	exit(1);
}


########################################################################################
## PARAMETERS FOR CUSTOMIZING INSTALLATION
########################################################################################

$installed_db = "$asphome/installed_db";
$sqlnk_dir = "odbc/sqlnk";
$enable_bean = 1;
$use_netscape = 0;
$use_apache = 1;
$use_apache_rpm = 0;
$use_domino = 0;
$commercial_databases = 0;
$java_has_choice = 0;
#$java_current_version_dirname = "jre1.2";
$java_current_version_dirname = "jrt117_v1a";

########################################################################################
## HELPER FUNCTIONS
########################################################################################

sub read_template
{
  ($#_ == 0) || die "Invalid number of arguments in read_template.";

  my ($filename) = @_;

  my $pattern = join('|', keys %substitute);
  my $result = "";

  if (open(TEMPLATE,"<$asphome/INSTALL/templates/$filename")) {
    while(<TEMPLATE>) {
      s/($pattern)/"$substitute{$1}"/eg;
      $result .= $_;
    }
    close (TEMPLATE);
    return $result;
  }
  else {
    die "Unable to open template file - $filename - in read_template.";
  }
}


########################################################################################
## INSTALLATION PREPARATION
########################################################################################

# This script wants there to be no "/" at the end of asphome.
chop $asphome if $asphome =~ /\/$/;
$asphome =~ s/^\~/$ENV{'HOME'}/;
# turn relative paths into full paths
$pwd = `pwd`;
chomp $pwd;
$asphome =~ s/^(?![\/]).*/$pwd/;

use INSTALL::conditional;
use INSTALL::component;
use INSTALL::query;
use INSTALL::os;
use INSTALL::user;
use INSTALL::services;
use INSTALL::conf;
use INSTALL::bean;
use INSTALL::netscape;
use INSTALL::apache;
use INSTALL::domino;
use INSTALL::no_webserver;
use INSTALL::postgresql;
use INSTALL::ini;
use INSTALL::webserver;

$substitute{'<<perl>>'} = $perl;
$substitute{'<<asphome>>'} = $asphome;
$substitute{'<<execute_params>>'} = $execute_params;


########################################################################################
## UPDATE INSTALLATION DATABASE
########################################################################################

if (! -d '/var/opt') {mkdir('/var/opt', 0775);} # i think /var/opt is standard
if (! -d '/var/opt/casp') {mkdir('/var/opt/casp', 0775);}

# make sure the ini file exists

$pIni=INSTALL::ini::open("/var/opt/casp/chili.ini");
$pSection = INSTALL::ini::insertSection($pIni, $asphome);
if ($pSection)
{
        # update version
        $pSection->{version} = $caspver;
}
INSTALL::ini::save($pIni,"/var/opt/casp/chili.ini");


########################################################################################
## WRITE UNINSTALL SCRIPT
########################################################################################

if (!$add_servers)
{
  $files{'uninstall'} = read_template("uninstall");
  INSTALL::conf::write_files;
  delete $file{'uninstall'};
}


########################################################################################
## DETECT OS VERSION INFORMATION
########################################################################################

if (INSTALL::os::detect) {
}
else {
  die "Unable to detect the running OS among those supported.";
}

$status_text .= "\n";
$status_text .= "                     Chili!Soft ASP install summary\n";
$status_text .= "======================================================================\n\n";
$status_text .= "installed version: $caspver\n";
$status_text .= "               os: $INSTALL::os::Details{os}\n";
$status_text .= "          release: $INSTALL::os::Details{release}\n";
$status_text .= "             arch: $INSTALL::os::Details{hardware}\n";



########################################################################################
## INSTALL/UPDATE CHILIASP USER
########################################################################################

if (INSTALL::user::exists("chiliasp")) {
  my $empty;
  my $answer;

  if (INSTALL::user::updated("chiliasp","psailihc","/dev/null",$empty,$empty,
			     "Chili!ASP Database User")) 
  {
    if (exists $parameters{keep_user}) {
      # Non-interactive.
      if (not INSTALL::conditional::boolean_value($parameters{keep_user})) {
	goto USER_OVERWRITE;
      }
      else {
	goto USER_KEEP;
      }
    }
    else {
      print("\n\n",
	    "NOTE: During installation, Chili!ASP installs a new user with username\n",
	    "      chiliasp.  I have detected the existence of this user (probably\n",
	    "      from a previous installation).  I also notice that one or more of\n",
	    "      the users attributes has been changed from their default values.\n\n");
      
      my $answer = 
	INSTALL::query::query_user("Keep the current user or reinstall","default=k","r");

      if ($answer eq "r") {
	goto USER_OVERWRITE;
      }
      else {
	goto USER_KEEP;
      }
    }

  USER_OVERWRITE:
    
    INSTALL::user::del("chiliasp");
	  
    unless (INSTALL::user::add("chiliasp","psailihc","/dev/null",
			       $empty,$empty,"Chili!ASP Database User")) 
    {
      print STDERR "Error: Unable to create chiliasp user. Exiting.\n\n";
      exit 1;
    }
    
  USER_KEEP:
  }
}
else {
  unless (INSTALL::user::add("chiliasp","psailihc","/dev/null",
                             $empty,$empty,"Chili!ASP Database User")) 
  {
    print STDERR "Error: Unable to create chiliasp user. Exiting.\n\n";
    exit 1;
  }
}

########################################################################################
## INTERNAL DATABASE SETUP
########################################################################################

use INSTALL::internaldb;

if ($add_servers)
{
  # Even if we are not installing the internaldb, we must initialize it so that the
  # substitution variables are filled in appropriately.
  my $internaldb_port = INSTALL::internaldb::ini_read_dbport;

  if (not $internaldb_port) {
    print STDERR ("Error: Unable to discover internal database port number.",
		  "Note: This will mean that Chili!Soft ASP's internal databases will\n",
		  "      be inaccessible to this set of engines.");
  }

  INSTALL::internaldb::initialize($internaldb_port);
}
else
{
  if (not INSTALL::internaldb::install) {
    print STDERR "Error: Unable to complete internal database installation.\n";
    exit 1;
  }
}

########################################################################################
## ADVANCED SETUP PATH
########################################################################################

#system("clear");
#print "ASP ADVANCED INSTALLATION SELECTION\n";
#print "------------------------------------------------------------\n";
#print "Would you like to use the default installation, or advanced\n";
#print "installation? [D/a] ";
#$advanced_q = <STDIN>;
#if ($advanced_q =~ /a/i)
#{
#  $advanced = 1;
#} else {
#  $advanced = 0
#}
#
$advanced = 0;

#system("clear");
#print "ASP ENGINE MODE SELECTION\n";
#print "------------------------------------------------------------\n";
#print "The ASP engine can run in multi-threaded mode or \n";
#print "multi-process mode. The multi-threaded mode allows \n";
#print "faster access to data stored in application state and \n";
#print "consumes the least amount of system resources, but \n";
#print "has limited fault tolerance. The multi-process mode creates\n";
#print "numerous processes for fulfilling ASP requests, providing \n";
#print "maximum fault tolerance. Because application state \n";
#print "is shared between processes, however, access to application \n";
#print "data is slower.\n\n";
#print "We recommend running Chili!Soft ASP in multi-process mode.\n\n\n";
#print "Would you like to use the multi-process engine? [Y/n] ";
#$mpe = <STDIN>;
#if ($mpe =~ /n/i)
#{
#  $mtengine=1;
#  $maxprocesses = $maxprocesses_mt;
#} else {
#  $mtengine=0;
#  $maxprocesses = $maxprocesses_mp;
#}
$mtengine = 1;
$maxprocesses = $maxprocesses_mt;


########################################################################################
## FILE SUBSTITUTION
########################################################################################

# chsetup.sh/global_odbc.sh need to be written before configuring webserver, so hashobj can register

$substitute{'<<mtengine>>'} = $mtengine;
$substitute{'<<maxprocesses_mp>>'} = $maxprocesses_mp;
$substitute{'<<asp_address>>'} = $asp_address;
$substitute{'<<odbcver>>'} = $odbcver;
$substitute{'<<sqlnk_dir>>'} = $sqlnk_dir;
$substitute{'<<os>>'} = $INSTALL::os::Details{os};

$substitute{'<<internaldb::port>>'} = $INSTALL::internaldb::port;
$substitute{'<<internaldb::db_dir>>'} = $INSTALL::internaldb::db_dir;
$substitute{'<<internaldb::dbbin_dir>>'} = $INSTALL::internaldb::dbbin_dir;
$substitute{'<<internaldb::dbdata_dir>>'} = $INSTALL::internaldb::dbdata_dir;
$substitute{'<<internaldb::dblib_dir>>'} = $INSTALL::internaldb::dblib_dir;

if (!$add_servers)
{
  $files{'chsetup.sh'} = read_template("chsetup.sh");
  $files{'global_odbc.sh'} = read_template("global_odbc.sh");
  $files{'chregsvr'} = read_template("chregsvr");
  $files{'chregedit'} = read_template("chregedit");
  $files{'delete_server'} = read_template("delete_server");
  $files{"$sqlnk_dir/ini/.sqlnkdll.ini"} = read_template("sqlnkdll.ini");
  $files{'INSTALL/list-databases'} = read_template("list-databases");

  if ($INSTALL::internaldb::enabled) {
    $files{'global_odbc.ini'} = read_template("global_odbc.ini");
  }

  INSTALL::conf::write_files;
}
else {
  if (open(GLOBAL_ODBC_INI,"<$asphome/global_odbc.ini")) {
    my @global_odbc_data = <GLOBAL_ODBC_INI>;
    $files{"global_odbc.ini"} = join("",@global_odbc_data);
  }
}


########################################################################################
## WEBSERVER INITIALIZATION
########################################################################################

$noninteractive_addserver = 0;
$install_samples = 0;
$friendly_name = "";

# check if anything was passed on the command line
#

if (exists $parameters{webserver_path})
{
  $webserver_path = $parameters{webserver_path};
  $noninteractive_addserver = 1;
}

if (exists $parameters{install_samples})
{
  $install_samples = $parameters{install_samples};
}

if (exists $parameters{friendly_name})
{
  $friendly_name = $parameters{friendly_name};
}

if ($noninteractive_addserver)
{
  # we got the parameters we were expecting, now run silent_configure
 
  $errstr = INSTALL::webserver::configure($webserver_path, $install_samples, 1);
  if ($errstr ne "")
  {
    printf("$errstr");
    exit(1);
  }
}
else
{
  $refresh = 0;
  CONFIGURE_WEBSERVER:
  while (1)
  {
    # we did not get the params we were expecting. detect and query the user interactively

	printf("\n");
    printf("Searching for available web servers... ");
    STDOUT->autoflush(1);
    @webservers = ();
    @webservers_text = ();
    
    pipe READ, WRITE;
    READ->autoflush(1);
    WRITE->autoflush(1);
    
    $SIG{CHLD} = "IGNORE";
	my $pid = fork;
    if ($pid)
    {
		close(WRITE);
	    # put up a silly little status indicator
		my $SPINCOUNT = 0;
		my @SPINLIST = ("|\b", "/\b", "-\b", "\\ \b\b", "|\b", "/\b", "-\b", "\\ \b\b");
		while (kill(0, $pid))
		{
			$SPINCOUNT = ($SPINCOUNT + 1) % 8;
		    print "$SPINLIST[$SPINCOUNT]";
			select undef,undef,undef,.25;
		}
		print "done.";
		print "\n";
		@webservers = <READ>;
		chomp @webservers;
		close(READ);
	}
    else
    {	
    	close(READ);
    	
        @webservers = INSTALL::webserver::getlist($refresh);
        print WRITE join("\n",@webservers), "\n";
        
        close(WRITE);
    	exit(0);
    }   
    $SIG{CHLD} = "DEFAULT";
    
    $refresh = 0;
    printf("\n");
  
    for ($i=0; $i<=$#webservers; $i++)
    {
  	  $info = INSTALL::webserver::get_server_info($webservers[$i]);
  	  if ($info->{type} eq "apache")
  	  {
  	    push @webservers_text, "Apache ($webservers[$i])";
  	  }
  	  elsif ($info->{type} eq "apache-rpm")
  	  {
  	    push @webservers_text, "Apache RPM ($webservers[$i])";
  	  }
    }

    $webserver_choice = 
      INSTALL::query::menu_query_user
        ("CONFIGURING YOUR WEB SERVER",
         "Setup will automatically configure your web server.  Choose which web server you would like to use below.",
         "Which web server would you like to configure", "terminal_mark=?", 
         @webservers_text,
         "Unlisted web server.",
         "Refresh web server list.",
         "Cancel setup.",
        );
  
    $webserver_choice--;   
    if ($webserver_choice == -1)
    {
    }
    elsif ($webserver_choice == ($#webservers_text + 1))
    {
      # chose unlisted webserver, query user for the web server path
      if (INSTALL::webserver::queried_configure() == 0)
      {
      	# success
      	last CONFIGURE_WEBSERVER;
      }
      else
      {
        printf("Press Enter to Retry ");
        <STDIN>;
      }      	
    }
    elsif ($webserver_choice == ($#webservers_text + 2))
    {
      # chose to refrsh list
      $refresh = 1;
    }
    elsif ($webserver_choice == ($#webservers_text + 3))
    {
      # chose to cancel
   	  printf("\n");
   	  printf("Setup canceled by user.\n\n");
   	  exit(1); 
    }
    else
    {
      # see if they want samples
      $query_samples = 
        INSTALL::query::query_user
          ("Enable ASP samples and documentation for this server", "terminal_mark=?", "default=y", "n");

      if (INSTALL::conditional::boolean_value($query_samples)) 
      {
        $install_samples = 1;
      }
    
      $errstr = INSTALL::webserver::configure($webservers[$webserver_choice], $install_samples, 0);
      if ($errstr ne "")
      {
        printf("$errstr\n");
        printf("Press Enter to continue ");
        <STDIN>;
      }
      else
      {
        # we are finished
        last CONFIGURE_WEBSERVER;
      }
    }
  }
  
  # check if webserver is rpm
  
  printf("\n");
  printf("The web server was successfully configured.\n");
  printf("Press Enter to continue. ");
  <STDIN>;
  printf("\n");
}

if ($add_servers)
{
  INSTALL::conf::write_files;
  
  my @asp_server_path = split("/",$aspserverdir);
  $conf_dir_name = $asp_server_path[$#asp_server_path];

  if ($INSTALL::os::Details{distribution_flavor} eq "Slackware") {
    my $source = "../init.d/$conf_dir_name";

    # Generate start links.
    foreach (3 .. 5) {
      my $destination = "/etc/rc.d/rc$_.d/S86$conf_dir_name";

      unlink($destination);
      unless(symlink($source,$destination)) {
	  printf("Error: Unable to make symlink from $source to $destination.\n");
      }
    }

    # Generate kill links.
    foreach (0, 1, 2, 6) {
      my $destination = "/etc/rc.d/rc$_.d/K15$conf_dir_name";

      unlink($destination);
      unless(symlink($source,$destination)) {
	  printf("Error: Unable to make symlink from $source to $destination.\n");
      }
    }
  }

  if (!$noninteractive_addserver)
  {
    # tell the user he has to restart the web server and start the asp engine
    printf("The asp server must be started and the web server\n");
    printf("must be restarted before using your new server.\n");
    printf("\n");
    printf("New asp server: $aspserverdir\n");
    if ($webservers[$webserver_choice] ne "")
    {
      printf("Web server: $webservers[$webserver_choice]\n");
    }
    printf("\n");
  }
  
  exit 0;
}

########################################################################################
## POST WEBSERVER INITIALIZATION
##
## Now that we know where we are installing the first server, we can substitute
## the correct parameters into some of our generated files (this step must come after
## the WEBSERVER INITIALIZATION step)

# setup the reg file to add pointer to license
$files{'settings.reg'} = read_template("settings.reg");

# change path for perl in add_server
$files{'add_server'} = read_template("add_server");

# generate and substitute webserver helper scripts
$files{'INSTALL/list-webservers'} = read_template("list-webservers");


########################################################################################
## CHILIBEAN INITIALIZATION
##

if ($enable_bean != 1)
{
        # remove me when enabling java
        $files{'javasetup.sh'} = 
          (
           "##################################################\n".
           "# Java disabled\n".
           "##################################################\n"
          );
}
else
{
        # make a symlink to the current java version
        system("ln -s $java_current_version_dirname $asphome/bean/jdk");
}

$bean_support = INSTALL::bean::setup;

########################################################################################
## COMMERCIAL DATABASE INITIALIZATION
##

if ($commercial_databases == 1)
{
  # Use query to display menu.
  INSTALL::query::menu_query_user
    ("INSTALLING SUPPORT FOR DATABASES",
     "If you are planning on using a 3rd-party database server ".
     "with Chili!Soft ASP (i.e. Oracle, Sybase or Informix), ".
     "setup can do the proper configuration. Choose Yes (y) ".
     "below. If you do not need setup to configure a database ".
     "server, choose No (N) below. This can be configured later.");

  $database_support = 
    INSTALL::query::query_user
      ("Are you planning to use ASP with a database server", "y", 
       "default=n");

  if (INSTALL::conditional::boolean_value($database_support)) 
  {
  # oracle
    $oracle_support = 
      INSTALL::query::query_user
	("Are you planning to use Chili!Soft ASP with an Oracle database",
	 "y","default=n");
    
    if (INSTALL::conditional::boolean_value($oracle_support)) 
    {
      $oraclehome = $ENV{'ORACLE_HOME'};
      print "\nEnter path to be used as ORACLE_HOME environment variable: ";
      print "[$ENV{'ORACLE_HOME'}] " if $ENV{'ORACLE_HOME'} ne '';
      $neworaclehome = <STDIN>;
      chomp $neworaclehome;
      $oraclehome = $neworaclehome if $neworaclehome ne "\n";
      print "Enter the path to database system libraries (to be appended to LD_LIBRARY_PATH): " if $INSTALL::os::Details{os} eq "sunos5";
      print "Enter the path to database system libraries (to be appended to LIBPATH): " if $INSTALL::os::Details{os} eq "aix4";
      $ld_path1 = <STDIN>;
      chomp $ld_path1;
      $ld_path = $ld_path1;
    }

    if ($oraclehome)
    {
      $dbinit = "ORACLE_HOME=$oraclehome\nexport ORACLE_HOME\n$dbinit";
    }
    
  # sybase
    $sybase_support =
      INSTALL::query::query_user
	("Are you planning to use Chili!Soft ASP with a Sybase database","y",
	 "default=n");

    if (INSTALL::conditional::boolean_value($sybase_support))
    {
      $sybase = $ENV{'SYBASE'};
      print "\nEnter path to be used as SYBASE environment variable: ";
      print "[$ENV{'SYBASE'}] " if $ENV{'SYBASE'} ne '';
      $newsybase = <STDIN>;
      chomp $newsybase;
      $sybase = $newsybase if $newsybase ne "\n";
      print "Enter the path to database system libraries (to be appended to LD_LIBRARY_PATH): " if $INSTALL::os::Details{os} eq "sunos5";
      print "Enter the path to database system libraries (to be appended to LIBPATH): " if $INSTALL::os::Details{os} eq "aix4";
      $ld_path2 = <STDIN>;
      chomp $ld_path2;
      $ld_path = $ld_path ? "${ld_path}:${ld_path2}" : $ld_path2;
    }

    if ($sybase)
    {
      $dbinit = "SYBASE=$sybase\nexport SYBASE\n$dbinit";
    }

  # informix
    $informix_support =
      INSTALL::query::query_user
	("Are you planning to use Chili!Soft ASP with an Informix database",
	 "y","default=n");
    
    if (INSTALL::conditional::boolean_value($informix_support))
    {
      $informixdir = $ENV{'INFORMIXDIR'};
      print "\nEnter path to be used as INFORMIXDIR environment variable: ";
      print "[$ENV{'INFORMIXDIR'}] " if $ENV{'INFORMIXDIR'} ne '';
      $newinformixdir = <STDIN>;
      chomp $newinformixdir;
      $informixdir = $newinformixdir if $newinformixdir ne "\n";
      
      $informixserver = $ENV{'INFORMIXSERVER'};
      print "\nEnter path to be used as INFORMIXSERVER environment variable: ";
      print "[$ENV{'INFORMIXSERVER'}] " if $ENV{'INFORMIXSERVER'} ne '';
      $newinformixserver = <STDIN>;
      chomp $newinformixserver;
      $informixserver = $newinformixserver if $newinformixserver ne "\n";
      print "Enter the path to database system libraries (to be appended to LD_LIBRARY_PATH): " if $INSTALL::os::Details{os} eq "sunos5";
      print "Enter the path to database system libraries (to be appended to LIBPATH): " if $INSTALL::os::Details{os} eq "aix4";
      $ld_path3 = <STDIN>;
      chomp $ld_path3;
      # if they didn't enter multiple paths already (seperated by : ), append $dir/esql to it
      if (! $ld_path3 =~ /:/) { $ld_path3 .= ":$ld_path3/esql" }
      $ld_path = $ld_path ? "${ld_path}:${ld_path3}" : $ld_path3;
    }

    if ($informixdir)
    {
      $dbinit = "INFORMIXDIR=$informixdir\nexport INFORMIXDIR\n$dbinit";
    }

    if ($informixserver)
    {
      $dbinit = "INFORMIXSERVER=$informixserver\nexport INFORMIXSERVER\n$dbinit";
    }
    
  # sqlnk
    $sqlnk_support = 
      INSTALL::query::query_user
	("Are you planning to use Chili!Soft ASP with a Microsoft Access/SQL Server database",
	 "y","default=n");
    
    if (INSTALL::conditional::boolean_value($sqlnk_support))
    {
      $ld_path4 = "$asphome/$sqlnk_dir/lib";
      $ld_path = $ld_path ? "${ld_path}:${ld_path4}" : $ld_path4;
      $dbinit = "SQLNK_HOME=$asphome/$sqlnk_dir/ini\nexport SQLNK_HOME\n$dbinit";
      print "NOTE: You will need to add the server software to the NT box you will be\nserving from.\n";
    }
    
    $dbinit = "LD_LIBRARY_PATH=\$LD_LIBRARY_PATH:$ld_path\nLIBPATH=\$LIBPATH:$ld_path\nexport LD_LIBRARY_PATH LIBPATH\n$dbinit" if $ld_path;
  }    
}


########################################################################################
## REGISTRATION
########################################################################################

$files{'global_odbc.sh'} =~ /^(.*\# extras\n)(.*)$/s;
$files{'global_odbc.sh'} = $1.$dbinit.$2;
INSTALL::conf::write_files;


########################################################################################
## CHECK FOR LICENSE FILE
########################################################################################

# if a license file is already there, we just ignore this step
# if it isn't there and the location was not passed to this script
# we query the user for it. if we are passed the location or the
# user enters the location, we install it

$lic_checked = 0;
while (!$lic_checked)
{
  if (-f "$asphome/$lic_name") {
    $lic_checked = 1;
  }
  elsif (exists $parameters{license_file}) {
    `cp $parameters{license_file} $asphome/$lic_name`;
    $lic_checked = 1;
  }
  else {
    INSTALL::query::menu_query_user
      ("LICENSING",
       "This installation of Chili!Soft ASP does not include a ".
       "server license. If you have already obtained a license ".
       "from Chili!Soft you can specify its location below and ".
       "setup will install it for you. If you do not yet have a ".
       "license you can obtain one from Chili!Soft.");
  
    $get_lic = 
      INSTALL::query::query_user("Do you have a license file to install", "default=y", "n");
    
    if (INSTALL::conditional::boolean_value($get_lic))
    {
      print "\n";
      print "Enter the name and path to the license file. \n";
      print ":";
      $lic_path = <STDIN>;
      chomp $lic_path;
      if (-f "$lic_path")
      {
        `cp $lic_path $asphome/$lic_name`;
        $lic_checked = 1;
        $status_text .= "\nLicense has been installed to $asphome/$lic_name.";
        print "\n";
      }
      else
      {
    	  print "\n";
    	  print "File does not exist: $lic_path\n";
    	  print "\n";
    	  print "Press Enter to try again ";
    	  <STDIN>
      }
    }
    else
    {
    	$status_text .= "\nNOTICE: This software has not been licensed yet.";
        $lic_checked = 1;
    	print "\n";
    	print "NOTICE: You will need to obtain a server license before using\n";
    	print "        Chili!Soft ASP.\n";
    	print "\n";
    	print "Press Enter to complete installation ";
    	<STDIN>
   	}
  }
}



########################################################################################
## SET PERMISSIONS (others should be added)
########################################################################################

chmod 0777, 'logs';
chmod 0777, 'caspsamp';
chmod 0777, "$lic_name";
chmod 0666, 'lib/libchilicap.ini';
chmod 0777, 'chregsvr';
chmod 0777, 'chregedit';
chmod 0755, 'add_server';
chmod 0755, 'delete_server';
chmod 0777, "bean/cbreg/cbreg";
chmod 0777, "INSTALL/unsetenv";
chmod 0777, "INSTALL/list-webservers";
chmod 0777, "INSTALL/list-databases";


########################################################################################
## FINISHING UP INSTALLATION
########################################################################################

#INSTALL::query::menu_query_user
#  ("REGISTERING COMPONENTS",
#   "Setup will now register all components for use with Chili!Soft ASP.");

$regsvr = "$asphome/chregsvr";
$regedit = "$asphome/chregedit";

open (SH, "|/bin/sh") || die "Unable to create subshell for registering COM objects.\n";
        print SH <<"__ENDSH__";
        
        ## before sourcing chsetup.sh, make sure CSTARGET
        ## is unset
        unset CSTARGET
        
        . $asphome/chsetup.sh
        . $asphome/global_odbc.sh
        . $asphome/javasetup.sh

        echo "$regedit $asphome/settings.reg" >>$asphome/logs/install 2>&1
        $regedit $asphome/settings.reg >>$asphome/logs/install 2>&1
        
        echo "$regsvr \$CSLIB/libatl.so" >>$asphome/logs/install 2>&1
        $regsvr \$CSLIB/libatl.so >>$asphome/logs/install 2>&1
        
        echo "$regsvr \$CSLIB/libvbscript.so" >>$asphome/logs/install 2>&1
        $regsvr \$CSLIB/libvbscript.so >>$asphome/logs/install 2>&1
        
        echo "$regsvr \$CSLIB/libjscript.so" >>$asphome/logs/install 2>&1
        $regsvr \$CSLIB/libjscript.so >>$asphome/logs/install 2>&1
        
        echo "$regsvr $asphome/lib/libchiliado.so" >>$asphome/logs/install 2>&1
        $regsvr $asphome/lib/libchiliado.so >>$asphome/logs/install 2>&1
        
        echo "$regsvr $asphome/lib/libchiliscrrun.so" >>$asphome/logs/install 2>&1
        $regsvr $asphome/lib/libchiliscrrun.so >>$asphome/logs/install 2>&1
        
        echo "$regsvr $asphome/lib/libcalc.so" >>$asphome/logs/install 2>&1
        $regsvr $asphome/lib/libcalc.so >>$asphome/logs/install 2>&1
        
        echo "$regsvr $asphome/lib/libchilicap.so" >>$asphome/logs/install 2>&1
        $regsvr $asphome/lib/libchilicap.so >>$asphome/logs/install 2>&1
        
        echo "$regsvr $asphome/lib/libchiliasp.so" >>$asphome/logs/install 2>&1
        $regsvr $asphome/lib/libchiliasp.so >>$asphome/logs/install 2>&1
        
        if [ "$bean_support" = "1" ];
        then
                echo "$regsvr $asphome/bean/cbnative/libcbnative.so" >>$asphome/logs/install 2>&1
                $regsvr $asphome/bean/cbnative/libcbnative.so >>$asphome/logs/install 2>&1
        fi
__ENDSH__
close SH;

$status_text .= "\n\n";
$status_text .= "Software was installed to: $asphome. \n\n";
$status_text .= "The ASP server directory is: $aspserverdir. \n\n";


########################################################################################
## SET LDCONFIG PATH
########################################################################################

if ($INSTALL::os::Details{os} =~ /linux/i)
{
        ## modify ld config file
        `cp /etc/ld.so.conf /etc/ld.so.conf.pre-chiliasp`;
        open (IN, "</etc/ld.so.conf.pre-chiliasp");
        open (LDC, ">/etc/ld.so.conf");
        while (<IN>)
        {
                print LDC if ((! /$asphome\/lib/i));
        }
        print LDC "$asphome/lib\n";
        close LDC;
        close IN;
        `/sbin/ldconfig > /dev/null 2>&1`;
}


########################################################################################
## RESTART SERVERS
########################################################################################


my @asp_server_path = split("/",$aspserverdir);
$conf_dir_name = $asp_server_path[$#asp_server_path];

if (exists $parameters{start_asp}) {
  # Non-interactive
  $start_asp = $parameters{start_asp};
}
else {
  INSTALL::query::menu_query_user
    ("STARTING SERVERS",
     "The ASP server has been installed.  Before using ASP the ".
     "server must be started and the web server must be restarted.");

  $start_asp = 
    INSTALL::query::query_user("Would you like to start the ASP server", "default=y", "n");
}

if (INSTALL::conditional::boolean_value($start_asp)) {
  $status_text .= "The ASP server has been started. \n\n";
  open (SH, "|/bin/sh") || die "Unable to create subshell for ASP server start.\n";
  print SH <<"__ENDSH__";
        
        /etc/rc.d/init.d/$conf_dir_name start
        
__ENDSH__
  close SH;
}
else
{
  $status_text .= "The ASP server has NOT been started. \n\n";
}

print "\n";

if ($apache_rpm == 1)
{
  if (exists $parameters{start_apache}) {
    $start_apche = $parameters{start_apache};
  }
  else {
    $start_apache = 
      INSTALL::query::query_user("Would you like to restart the web server", "default=y", "n");
  }

  if (INSTALL::conditional::boolean_value($start_apache))
  {
    $status_text .= "The web server has been restarted. \n\n";
    open (SH, "|/bin/sh") || die "Unable to create subshell for web server restart.\n";
    print SH <<"__ENDSH__";
                
                /etc/rc.d/init.d/httpd restart
                
__ENDSH__
    close SH;
  }
  else
  {
    $status_text .= "The web server has NOT been restarted. \n\n";
  }
}
else
{
  $status_text .= "The web server has NOT been restarted. \n\n";
  print "You will need to manually restart the web server.\n\n";
}

print "\n";

# FIXME: offer to set asp server to start on reboot
if ($INSTALL::os::Details{distribution_flavor} eq "Slackware") {
  if (exists $parameters{start_asp_onboot}) {
    $start_asp_onboot = $parameters{start_asp_onboot};
  }
  else {
    $start_asp_onboot =
      INSTALL::query::query_user("Would you like to have this server started automatically on system\nboot",
			         "default=y","n");
  }
}
else
{
  # doesn't work on non-redhat type dists
  $start_asp_onboot = "no";
}

if (INSTALL::conditional::boolean_value($start_asp_onboot)) {
  if ($INSTALL::os::Details{distribution_flavor} eq "Slackware") {
    my $source = "../init.d/$conf_dir_name";

    # Generate start links.
    foreach (3 .. 5) {
      my $destination = "/etc/rc.d/rc$_.d/S86$conf_dir_name";

      unlink($destination);
      unless(symlink($source,$destination)) {
	$status_text .= "Error: Unable to make symlink from $source to $destination.";
      }
    }

    # Generate kill links.
    foreach (0, 1, 2, 6) {
      my $destination = "/etc/rc.d/rc$_.d/K15$conf_dir_name";

      unlink($destination);
      unless(symlink($source,$destination)) {
	$status_text .= "Error: Unable to make symlink from $source to $destination.";
      }
    }
  }
  else {
    die "Unsupported distribution flavor found: $INSTALL::os::Details{distribution_flavor}";
  }
  
  $status_text .= "The ASP server will be automatically started on system boot.\n\n";
}
else
{
  $status_text .= "The ASP server will NOT be automatically started on system boot.\n\n";
}

# pause before next screen
if (not exists $parameters{start_apache}) {
  print "\n";
  print "Press Enter to Continue ";
  $answer = <STDIN>;
}

if (!$add_servers && -f "$asphome/INSTALL/admini") {
  if (not exists $parameters{invoke_admini}) {
    INSTALL::query::menu_query_user
      ("ADMINISTRATION CONSOLE INSTALLATION",
       "You now have the opportunity to install the Chili!Soft ASP Administration Console.  This ".
       "server makes configuring Chili!Soft ASP simpler, by making most configuration ".
       "options available through a web-based interface."
      );

    $invoke_admini = INSTALL::query::query_user
      ("Would you like to set up Chili!Soft ASP's Administration Console",
       "default=y","n",
       "terminal_mark=?");
  }
  else {
    $invoke_admini = $parameters{invoke_admini};
  }

  $execute_params .= ' "integral_admin=true" admin_port=$parameters{admin_port}';  
  $substitute{'<<execute_params>>'} = $execute_params;

  my $script = "$asphome/install_admin";

  if (INSTALL::conditional::boolean_value($invoke_admini)) {
    if (not system("$asphome/INSTALL/admini $execute_params")) {
      $status_text .= "The ASP Administration Console was installed.\n\n";

      my $pHash = INSTALL::component::open_component("Administration Console", $asphome);      

      if ($pHash) {
        $status_text .= "Administration Console configuration:\n";
        $status_text .= "  Version: $pHash->{version}\n";
        $status_text .= "  Server port: $pHash->{admin_port}\n";
        $status_text .= "  Admin user: $pHash->{admin_user}\n";
        $status_text .= "  admtool utility location: $asphome/admtool\n\n";
        $status_text .= 
	    ("  The admtool utility can be used to start/stop the Administration Console,\n".
	     "  as well as add/remove users.  Refer to your documentation for a full\n".
	     "  description of its features.\n\n");
      }
    }
    else {
      $status_text .= "The ASP Administration Console was not installed.\n\n";
    }    
  }
  else {
    $status_text .= "The ASP Administration Console was not installed.\n\n";

    if (not exists $parameters{invoke_admini}) {
      print("\n",
	    "Ok.  You may install the Administration Console later by invoking the following\n",
	    "script:\n",
	    "  $script");
    }
  }

  # Create a script which can configure the 'integral' Administration Console.
  my $script_text = read_template("install_admin");  
  
  unless(open(INSTALL_ADMIN,">$script")) {
    print("Error: Unable to create $asphome/install_admin script.\n",
	  "This script is intended to contain the following text: \n",
	  $script_text);
  }
  else {
    print INSTALL_ADMIN $script_text;
    close(INSTALL_ADMIN);
    
    chmod(0755,$script);
  }
}

print "\n";
print "\n";


########################################################################################
## DUMP OUT STATUS FILE
########################################################################################

$status_text .= "An rc script has been created: /etc/rc.d/init.d/$conf_dir_name. \n";
$status_text .= "It can be used to start/stop/restart the ASP server\n";
$status_text .= "\n";
$status_text .= "    -or-\n";
$status_text .= "\n";
$status_text .= "The ASP server can also be started/stopped using the following:\n";
$status_text .= "- $aspserverdir/caspctrl startall\n";
$status_text .= "- $aspserverdir/caspctrl stopall\n\n\n";

$status_text .= "The samples and docs can be found at: http://yourserver/caspsamp/\n\n";
$status_text .= "\n\n\n\n";

open SUMMARY, ">$asphome/logs/install_summary";
print SUMMARY "$status_text\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
print SUMMARY "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
close SUMMARY;



########################################################################################
## INSTALLATION COMPLETE
########################################################################################

if (exists $parameters{view_summary}) {
  $view_summary = $parameters{view_summary};
}
else {
  INSTALL::query::menu_query_user
    ("INSTALLATION COMPLETE",
     "Chili!Soft ASP installation completed. A summary file ".
     "has been created for this installation. It has been ".
     "created in the directory shown below. Please read ".
     "it for further information on using Chili!Soft ASP.\n".
     "Thanks again for choosing Chili!Soft.");
  
  print "Install summary file: $asphome/logs/install_summary\n";
  print "\n";
}

1;