#!<<perl_header>>

use INSTALL::common;
use INSTALL::parameter;

if ($> != 0) {
  exit(not error("$0 must be run as root."));
}

my $pParameters = \%INSTALL::parameter::variables;

#==============================================================================
#------------------------ Default global values
#==============================================================================

$pParameters->{asphome} = "<<asphome>>";
INSTALL::common::set_standard_globals;

my $pGlobals = \%INSTALL::global::variables;
my $pOS = \%INSTALL::os::Details;

#==============================================================================
#------------------------ Start the internaldb
#==============================================================================
use INSTALL::internaldb;
exit(not INSTALL::internaldb::start);