# Make sure we have an initial database suitable for this installer. The goal
# is to encapsulates all the compatibilty issues in this (consequently ugly)
# function
sub get_initial_database {
my $made_dir1;
my $made_dir2;
my $bkp_dir;
my $bkp;
my $kind;
my $version;
my $intermediate_format;
my $status;
my $state_file;
my $state_files;
if (not (-e $gInstallerMainDB)) {
# This is the first installation. Create the installer database from
# scratch
print wrap('Creating a new installer database using the tar3 format.' . "\n\n", 0);
$made_dir1 = 0;
if (not (-d $gRegistryDir)) {
safe_mkdir($gRegistryDir);
$made_dir1 = 1;
}
safe_chmod(0755, $gRegistryDir);
if (not open(INSTALLDB, '>' . $gInstallerMainDB)) {
if ($made_dir1) {
rmdir($gRegistryDir);
}
error('Unable to open the tar installer database ' . $gInstallerMainDB
. ' in write-mode.' . "\n\n");
}
# Force a flush after every write operation.
# See 'Programming Perl', p. 110
select((select(INSTALLDB), $| = 1)[0]);
if ($made_dir1) {
db_add_dir($gRegistryDir);
}
# This file is going to be modified after its creation by this program.
# Do not timestamp it
db_add_file($gInstallerMainDB, 0);
return;
}
print wrap('A previous installation of VMware software has been detected.' . "\n\n", 0);
#
# Convert the previous installer database to our format and backup it
# Uninstall the previous installation
#
$bkp_dir = make_tmp_dir('vmware-installer');
$bkp = $bkp_dir . '/prev_db.tar.gz';
if (-x $gInstallerObject) {
$kind = direct_command(shell_string($gInstallerObject) . ' kind');
chop($kind);
if (system(shell_string($gInstallerObject) . ' version >/dev/null 2>&1')) {
# No version method -> this is version 1
$version = '1';
} else {
$version = direct_command(shell_string($gInstallerObject) . ' version');
chop($version);
}
print wrap('The previous installation was made by the ' . $kind
. ' installer (version ' . $version . ').' . "\n\n", 0);
if ($version < 2) {
# The best database format those installers know is tar. We will have to
# upgrade the format
$intermediate_format = 'tar';
} elsif ($version == 2) {
# Those installers at least know about the tar2 database format. We won't
# have to do much
$intermediate_format='tar2'
} else {
# Those installers at least know about the tar3 database format. We won't
# have to do anything
$intermediate_format = 'tar3';
}
system(shell_string($gInstallerObject) . ' convertdb '
. shell_string($intermediate_format) . ' ' . shell_string($bkp));
# Uninstall the previous installation
$status = system(shell_string($gInstallerObject) . ' uninstall');
# Beware, beyond this point, $gInstallerObject does not exist
# anymore.
} else {
# No installer object -> this is the old installer, which we don't support
# anymore.
$status = 1;
}
if ($status) {
remove_tmp_dir($bkp_dir);
error('Failure' . "\n\n");
}
