#!/usr/bin/perl
#--------------------------------------------------------------------------------
#--------------------------------------------------------------------------------
# Copyright (c) 1999 - 2000, Intel Corporation 
#
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without 
# modification, are permitted provided that the following conditions are met:
#
# 1. Redistributions of source code must retain the above copyright notice, 
#    this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright notice,
#    this list of conditions and the following disclaimer in the documentation 
#    and/or other materials provided with the distribution.
#
# 3. Neither the name of Intel Corporation nor the names of its contributors 
#    may be used to endorse or promote products derived from this software 
#    without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 
# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
#
#--------------------------------------------------------------------------------
#--------------------------------------------------------------------------------

#   /***************************************************************************
#   **                                                                        **
#   ** INTEL CORPORATION                                                      **
#   **                                                                        **
#   ** This software is supplied under the terms of the license included      **
#   ** above.  All use of this software must be in accordance with the terms  **
#   ** of that license.                                                       **
#   **                                                                        **
#   **  Abstract:                                                             **
#   **    Configuration script for ANS -step 3/3- boot install (Caldera)       **
#   **                                                                        **
#   ***************************************************************************/
use general;

print "\n-- Boot process configuration:\n\n";	 
print "Would you like to save this configuration and load it on boot? ";
if (options("y", "n") eq "y")
{
	 system ("$APP dump_file");
	 print "The ANS configuration process will now modify the init files.\n";
	 print "Please select the runlevels (1-5) on which you would like the\n";
	 print "ANS module to load (example - print \"245\" if you would like\n";
	 print "ANS to load on runlevels 2, 4, and 5): ";
	 $runlevels = <STDIN>;
	 while (!($runlevels=~/^\ *[1-5]*\ *$/))
	 {
		  print "Please select runlevels (1-5): ";
		  $runlevels = <STDIN>;
	 }
	 chomp $runlevels;
	 `chmod +x ans`;
	 `cp ans $SCRIPTDIR/ans`;
	 for ($i = "1"; $i <= "5"; $i++)
	 {
		  if ($i =~ /[$runlevels]/)
		  {
				`ln -s $SCRIPTDIR/ans $LINKSDIR/rc$i.d/S${STARTLEVEL}ans`;
				`ln -s $SCRIPTDIR/ans $LINKSDIR/rc$i.d/K${KILLLEVEL}ans`;
		  }
	 }
}

print "\n\nWould you like to start the network now? ";
`$SCRIPTDIR/network start; $SCRIPTDIR/ans restart` if (options("y", "n") eq "y");

print "ANS Installation and Configuration completed successfully.\n";
