802 lines
31 KiB
Perl
802 lines
31 KiB
Perl
#*************************************************************************
|
|
#
|
|
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
|
#
|
|
# Copyright 2000, 2010 Oracle and/or its affiliates.
|
|
#
|
|
# OpenOffice.org - a multi-platform office productivity suite
|
|
#
|
|
# This file is part of OpenOffice.org.
|
|
#
|
|
# OpenOffice.org is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU Lesser General Public License version 3
|
|
# only, as published by the Free Software Foundation.
|
|
#
|
|
# OpenOffice.org is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU Lesser General Public License version 3 for more details
|
|
# (a copy is included in the LICENSE file that accompanied this code).
|
|
#
|
|
# You should have received a copy of the GNU Lesser General Public License
|
|
# version 3 along with OpenOffice.org. If not, see
|
|
# <http://www.openoffice.org/license.html>
|
|
# for a copy of the LGPLv3 License.
|
|
#
|
|
#*************************************************************************
|
|
|
|
package installer::simplepackage;
|
|
|
|
use Cwd;
|
|
use File::Copy;
|
|
use installer::download;
|
|
use installer::exiter;
|
|
use installer::globals;
|
|
use installer::logger;
|
|
use installer::strip;
|
|
use installer::systemactions;
|
|
use installer::worker;
|
|
|
|
####################################################
|
|
# Checking if the simple packager is required.
|
|
# This can be achieved by setting the global
|
|
# variable SIMPLE_PACKAGE in *.lst file or by
|
|
# setting the environment variable SIMPLE_PACKAGE.
|
|
####################################################
|
|
|
|
sub check_simple_packager_project
|
|
{
|
|
my ( $allvariables ) = @_;
|
|
|
|
if (( $installer::globals::packageformat eq "installed" ) ||
|
|
( $installer::globals::packageformat eq "archive" ))
|
|
{
|
|
$installer::globals::is_simple_packager_project = 1;
|
|
$installer::globals::patch_user_dir = 1;
|
|
}
|
|
elsif( $installer::globals::packageformat eq "dmg" )
|
|
{
|
|
$installer::globals::is_simple_packager_project = 1;
|
|
}
|
|
}
|
|
|
|
####################################################
|
|
# Detecting the directory with extensions
|
|
####################################################
|
|
|
|
sub get_extensions_dir
|
|
{
|
|
my ( $subfolderdir ) = @_;
|
|
|
|
my $extensiondir = $subfolderdir . $installer::globals::separator;
|
|
if ( $installer::globals::officedirhostname ne "" ) { $extensiondir = $extensiondir . $installer::globals::officedirhostname . $installer::globals::separator; }
|
|
my $extensionsdir = $extensiondir . "share" . $installer::globals::separator . "extensions";
|
|
my $preregdir = $extensiondir . "share" . $installer::globals::separator . "prereg" . $installer::globals::separator . "bundled";
|
|
|
|
return ( $extensionsdir, $preregdir );
|
|
}
|
|
|
|
####################################################
|
|
# Registering extensions
|
|
####################################################
|
|
|
|
sub register_extensions
|
|
{
|
|
my ($officedir, $languagestringref, $preregdir) = @_;
|
|
|
|
my $infoline = "";
|
|
|
|
if ( $preregdir eq "" )
|
|
{
|
|
$infoline = "ERROR: Failed to determine directory \"prereg\" for extension registration! Please check your installation set.\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
installer::exiter::exit_program($infoline, "register_extensions");
|
|
}
|
|
|
|
my $programdir = $officedir . $installer::globals::separator;
|
|
if ( $installer::globals::officedirhostname ne "" ) { $programdir = $programdir . $installer::globals::officedirhostname . $installer::globals::separator; }
|
|
$programdir = $programdir . "program";
|
|
|
|
my $from = cwd();
|
|
chdir($programdir);
|
|
|
|
my $unopkgfile = $installer::globals::unopkgfile;
|
|
|
|
my $unopkgexists = 1;
|
|
if (( $installer::globals::languagepack ) && ( ! -f $unopkgfile ))
|
|
{
|
|
$unopkgexists = 0;
|
|
$infoline = "Language packs do not contain unopkg!\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
}
|
|
|
|
if ( ! -f $unopkgfile )
|
|
{
|
|
$unopkgexists = 0;
|
|
$infoline = "Info: File $unopkgfile does not exist! Extensions cannot be registered.\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
}
|
|
|
|
if ( $unopkgexists )
|
|
{
|
|
my $currentdir = cwd();
|
|
print "... current dir: $currentdir ...\n";
|
|
$infoline = "Current dir: $currentdir\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
|
|
if ( ! -f $unopkgfile ) { installer::exiter::exit_program("ERROR: $unopkgfile not found!", "register_extensions"); }
|
|
|
|
my $localtemppath = installer::systemactions::create_directories("uno", $languagestringref);
|
|
|
|
my $slash = "";
|
|
|
|
if ( $installer::globals::iswindowsbuild )
|
|
{
|
|
if ( $^O =~ /cygwin/i )
|
|
{
|
|
$localtemppath = $installer::globals::cyg_temppath;
|
|
$preregdir = qx{cygpath -m "$preregdir"};
|
|
chomp($preregdir);
|
|
}
|
|
$localtemppath =~ s/\\/\//g;
|
|
$slash = "/"; # Third slash for Windows. Other OS pathes already start with "/"
|
|
}
|
|
|
|
$preregdir =~ s/\/\s*$//g;
|
|
|
|
my $systemcall = "JFW_PLUGIN_DO_NOT_CHECK_ACCESSIBILITY=1 " . $unopkgfile . " sync --verbose -env:BUNDLED_EXTENSIONS_USER=\"file://" . $slash . $preregdir . "\"" . " -env:UserInstallation=file://" . $slash . $localtemppath . " 2\>\&1 |";
|
|
|
|
print "... $systemcall ...\n";
|
|
|
|
$infoline = "Systemcall: $systemcall\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
|
|
my @unopkgoutput = ();
|
|
|
|
open (UNOPKG, $systemcall);
|
|
while (<UNOPKG>)
|
|
{
|
|
my $lastline = $_;
|
|
push(@unopkgoutput, $lastline);
|
|
}
|
|
close (UNOPKG);
|
|
|
|
my $returnvalue = $?; # $? contains the return value of the systemcall
|
|
|
|
if ($returnvalue)
|
|
{
|
|
# Writing content of @unopkgoutput only in the error case into the log file. Sometimes it
|
|
# contains strings like "Error" even in the case of success. This causes a packaging error
|
|
# when the log file is analyzed at the end, even if there is no real error.
|
|
for ( my $j = 0; $j <= $#unopkgoutput; $j++ ) { push( @installer::globals::logfileinfo, "$unopkgoutput[$j]"); }
|
|
|
|
$infoline = "ERROR: Could not execute \"$systemcall\"!\nExitcode: '$returnvalue'\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
installer::exiter::exit_program("ERROR: $systemcall failed!", "register_extensions");
|
|
}
|
|
else
|
|
{
|
|
$infoline = "Success: Executed \"$systemcall\" successfully!\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
}
|
|
}
|
|
|
|
chdir($from);
|
|
}
|
|
|
|
########################################################################
|
|
# Getting the translation file for the Mac Language Pack installer
|
|
########################################################################
|
|
|
|
sub get_mac_translation_file
|
|
{
|
|
my $translationfilename = $installer::globals::maclangpackfilename;
|
|
if ( ! -f $translationfilename ) { installer::exiter::exit_program("ERROR: Could not find language file $translationfilename!", "get_mac_translation_file"); }
|
|
my $translationfile = installer::files::read_file($translationfilename);
|
|
|
|
my $infoline = "Reading translation file: $translationfilename\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
|
|
return $translationfile;
|
|
}
|
|
|
|
##################################################################
|
|
# Collecting all identifier from ulf file
|
|
##################################################################
|
|
|
|
sub get_identifier
|
|
{
|
|
my ( $translationfile ) = @_;
|
|
|
|
my @identifier = ();
|
|
|
|
for ( my $i = 0; $i <= $#{$translationfile}; $i++ )
|
|
{
|
|
my $oneline = ${$translationfile}[$i];
|
|
|
|
if ( $oneline =~ /^\s*\[(.+)\]\s*$/ )
|
|
{
|
|
my $identifier = $1;
|
|
push(@identifier, $identifier);
|
|
}
|
|
}
|
|
|
|
return \@identifier;
|
|
}
|
|
|
|
##############################################################
|
|
# Returning the complete block in all languages
|
|
# for a specified string
|
|
##############################################################
|
|
|
|
sub get_language_block_from_language_file
|
|
{
|
|
my ($searchstring, $languagefile) = @_;
|
|
|
|
my @language_block = ();
|
|
|
|
for ( my $i = 0; $i <= $#{$languagefile}; $i++ )
|
|
{
|
|
if ( ${$languagefile}[$i] =~ /^\s*\[\s*$searchstring\s*\]\s*$/ )
|
|
{
|
|
my $counter = $i;
|
|
|
|
push(@language_block, ${$languagefile}[$counter]);
|
|
$counter++;
|
|
|
|
while (( $counter <= $#{$languagefile} ) && (!( ${$languagefile}[$counter] =~ /^\s*\[/ )))
|
|
{
|
|
push(@language_block, ${$languagefile}[$counter]);
|
|
$counter++;
|
|
}
|
|
|
|
last;
|
|
}
|
|
}
|
|
|
|
return \@language_block;
|
|
}
|
|
|
|
##############################################################
|
|
# Returning a specific language string from the block
|
|
# of all translations
|
|
##############################################################
|
|
|
|
sub get_language_string_from_language_block
|
|
{
|
|
my ($language_block, $language) = @_;
|
|
|
|
my $newstring = "";
|
|
|
|
for ( my $i = 0; $i <= $#{$language_block}; $i++ )
|
|
{
|
|
if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
|
|
{
|
|
$newstring = $1;
|
|
last;
|
|
}
|
|
}
|
|
|
|
if ( $newstring eq "" )
|
|
{
|
|
$language = "en-US"; # defaulting to english
|
|
|
|
for ( my $i = 0; $i <= $#{$language_block}; $i++ )
|
|
{
|
|
if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
|
|
{
|
|
$newstring = $1;
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
|
|
return $newstring;
|
|
}
|
|
|
|
########################################################################
|
|
# Localizing the script for the Mac Language Pack installer
|
|
########################################################################
|
|
|
|
sub localize_scriptfile
|
|
{
|
|
my ($scriptfile, $translationfile, $languagestringref) = @_;
|
|
|
|
my $onelanguage = $$languagestringref;
|
|
if ( $onelanguage =~ /^\s*(.*?)_/ ) { $onelanguage = $1; }
|
|
|
|
# Analyzing the ulf file, collecting all Identifier
|
|
my $allidentifier = get_identifier($translationfile);
|
|
|
|
for ( my $i = 0; $i <= $#{$allidentifier}; $i++ )
|
|
{
|
|
my $identifier = ${$allidentifier}[$i];
|
|
my $language_block = get_language_block_from_language_file($identifier, $translationfile);
|
|
my $newstring = get_language_string_from_language_block($language_block, $onelanguage);
|
|
|
|
# removing mask
|
|
$newstring =~ s/\\\'/\'/g;
|
|
|
|
replace_one_variable_in_shellscript($scriptfile, $newstring, $identifier);
|
|
}
|
|
}
|
|
|
|
#################################################################################
|
|
# Replacing one variable in Mac shell script
|
|
#################################################################################
|
|
|
|
sub replace_one_variable_in_shellscript
|
|
{
|
|
my ($scriptfile, $variable, $searchstring) = @_;
|
|
|
|
for ( my $i = 0; $i <= $#{$scriptfile}; $i++ )
|
|
{
|
|
${$scriptfile}[$i] =~ s/\[$searchstring\]/$variable/g;
|
|
}
|
|
}
|
|
|
|
#############################################
|
|
# Replacing variables in Mac shell script
|
|
#############################################
|
|
|
|
sub replace_variables_in_scriptfile
|
|
{
|
|
my ($scriptfile, $volume_name, $allvariables) = @_;
|
|
|
|
replace_one_variable_in_shellscript($scriptfile, $volume_name, "FULLPRODUCTNAME" );
|
|
replace_one_variable_in_shellscript($scriptfile, $allvariables->{'PRODUCTNAME'}, "PRODUCTNAME" );
|
|
replace_one_variable_in_shellscript($scriptfile, $allvariables->{'PRODUCTVERSION'}, "PRODUCTVERSION" );
|
|
|
|
my $scriptname = lc($allvariables->{'PRODUCTNAME'}) . "\.script";
|
|
if ( $allvariables->{'PRODUCTNAME'} eq "LibreOffice" ) { $scriptname = "org.libreoffice.script"; }
|
|
|
|
replace_one_variable_in_shellscript($scriptfile, $scriptname, "SEARCHSCRIPTNAME" );
|
|
}
|
|
|
|
#############################################
|
|
# Creating the "simple" package.
|
|
# "zip" for Windows
|
|
# "tar.gz" for all other platforms
|
|
# additionally "dmg" on Mac OS X
|
|
#############################################
|
|
|
|
sub create_package
|
|
{
|
|
my ( $installdir, $archivedir, $packagename, $allvariables, $includepatharrayref, $languagestringref, $format ) = @_;
|
|
|
|
installer::logger::print_message( "... creating $installer::globals::packageformat file ...\n" );
|
|
installer::logger::include_header_into_logfile("Creating $installer::globals::packageformat file:");
|
|
|
|
# moving dir into temporary directory
|
|
my $pid = $$; # process id
|
|
my $tempdir = $installdir . "_temp" . "." . $pid;
|
|
my $systemcall = "";
|
|
my $from = "";
|
|
my $makesystemcall = 1;
|
|
my $return_to_start = 0;
|
|
installer::systemactions::rename_directory($installdir, $tempdir);
|
|
|
|
# creating new directory with original name
|
|
installer::systemactions::create_directory($archivedir);
|
|
|
|
my $archive = $archivedir . $installer::globals::separator . $packagename . $format;
|
|
|
|
if ( $archive =~ /zip$/ )
|
|
{
|
|
$from = cwd();
|
|
$return_to_start = 1;
|
|
chdir($tempdir);
|
|
$systemcall = "$installer::globals::zippath -qr $archive .";
|
|
|
|
# Using Archive::Zip fails because of very long path names below "share/uno_packages/cache"
|
|
# my $packzip = Archive::Zip->new();
|
|
# $packzip->addTree("."); # after changing into $tempdir
|
|
# $packzip->writeToFileNamed($archive);
|
|
# $makesystemcall = 0;
|
|
}
|
|
elsif ( $archive =~ /dmg$/ )
|
|
{
|
|
my $folder = (( -l "$tempdir/$packagename/Applications" ) or ( -l "$tempdir/$packagename/opt" )) ? $packagename : "\.";
|
|
|
|
if ( $allvariables->{'PACK_INSTALLED'} ) {
|
|
$folder = $packagename;
|
|
}
|
|
|
|
my $volume_name = $allvariables->{'PRODUCTNAME'} . ' ' . $allvariables->{'PRODUCTVERSION'};
|
|
$volume_name = $volume_name . ' ' . $allvariables->{'PRODUCTEXTENSION'} if $allvariables->{'PRODUCTEXTENSION'};
|
|
if ( $allvariables->{'DMG_VOLUMEEXTENSION'} ) {
|
|
$volume_name = $volume_name . ' ' . $allvariables->{'DMG_VOLUMEEXTENSION'};
|
|
}
|
|
|
|
my $sla = 'sla.r';
|
|
my $ref = "";
|
|
|
|
if ( ! $allvariables->{'HIDELICENSEDIALOG'} )
|
|
{
|
|
installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$sla, $includepatharrayref, 0);
|
|
}
|
|
|
|
my $localtempdir = $tempdir;
|
|
|
|
if (( $installer::globals::languagepack ) || ( $installer::globals::patch ))
|
|
{
|
|
$localtempdir = "$tempdir/$packagename";
|
|
if ( $installer::globals::languagepack ) { $volume_name = "$volume_name Language Pack"; }
|
|
if ( $installer::globals::patch ) { $volume_name = "$volume_name Patch"; }
|
|
|
|
# Create tar ball named tarball.tar.bz2
|
|
my $appfolder = $localtempdir . "/" . $volume_name . "\.app";
|
|
my $contentsfolder = $appfolder . "/Contents";
|
|
my $tarballname = "tarball.tar.bz2";
|
|
|
|
my $localfrom = cwd();
|
|
chdir $appfolder;
|
|
|
|
$systemcall = "tar -cjf $tarballname Contents/";
|
|
|
|
print "... $systemcall ...\n";
|
|
my $localreturnvalue = system($systemcall);
|
|
$infoline = "Systemcall: $systemcall\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
|
|
if ($localreturnvalue)
|
|
{
|
|
$infoline = "ERROR: Could not execute \"$systemcall\"!\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
}
|
|
else
|
|
{
|
|
$infoline = "Success: Executed \"$systemcall\" successfully!\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
}
|
|
|
|
my $sourcefile = $appfolder . "/" . $tarballname;
|
|
my $destfile = $contentsfolder . "/" . $tarballname;
|
|
|
|
installer::systemactions::remove_complete_directory($contentsfolder);
|
|
installer::systemactions::create_directory($contentsfolder);
|
|
|
|
installer::systemactions::copy_one_file($sourcefile, $destfile);
|
|
unlink($sourcefile);
|
|
|
|
# Copy two files into installation set next to the tar ball
|
|
# 1. "osx_install.applescript"
|
|
# 2 "OpenOffice.org Languagepack"
|
|
|
|
my $scriptrealfilename = "osx_install.applescript";
|
|
my $scriptfilename = "";
|
|
if ( $installer::globals::languagepack ) { $scriptfilename = "osx_install_languagepack.applescript"; }
|
|
if ( $installer::globals::patch ) { $scriptfilename = "osx_install_patch.applescript"; }
|
|
my $scripthelpersolverfilename = "mac_install.script";
|
|
my $scripthelperrealfilename = $volume_name;
|
|
my $translationfilename = $installer::globals::macinstallfilename;
|
|
|
|
# Finding both files in solver
|
|
|
|
my $scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$scriptfilename, $includepatharrayref, 0);
|
|
if ($$scriptref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script $scriptfilename!", "create_package"); }
|
|
my $scripthelperref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$scripthelpersolverfilename, $includepatharrayref, 0);
|
|
if ($$scripthelperref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script $scripthelpersolverfilename!", "create_package"); }
|
|
my $translationfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$translationfilename, $includepatharrayref, 0);
|
|
if ($$translationfileref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script translation file $translationfilename!", "create_package"); }
|
|
|
|
$scriptfilename = $contentsfolder . "/" . $scriptrealfilename;
|
|
$scripthelperrealfilename = $contentsfolder . "/" . $scripthelperrealfilename;
|
|
|
|
installer::systemactions::copy_one_file($$scriptref, $scriptfilename);
|
|
installer::systemactions::copy_one_file($$scripthelperref, $scripthelperrealfilename);
|
|
|
|
# Replacing variables in script $scriptfilename
|
|
# Localizing script $scriptfilename
|
|
my $scriptfilecontent = installer::files::read_file($scriptfilename);
|
|
my $translationfilecontent = installer::files::read_file($$translationfileref);
|
|
localize_scriptfile($scriptfilecontent, $translationfilecontent, $languagestringref);
|
|
replace_variables_in_scriptfile($scriptfilecontent, $volume_name, $allvariables);
|
|
installer::files::save_file($scriptfilename, $scriptfilecontent);
|
|
|
|
chmod 0775, $scriptfilename;
|
|
chmod 0775, $scripthelperrealfilename;
|
|
|
|
# Copy also Info.plist and icon file
|
|
# Finding both files in solver
|
|
my $iconfile = "ooo3_installer.icns";
|
|
my $iconfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$iconfile, $includepatharrayref, 0);
|
|
if ($$iconfileref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script icon file $iconfile!", "create_package"); }
|
|
my $subdir = $contentsfolder . "/" . "Resources";
|
|
if ( ! -d $subdir ) { installer::systemactions::create_directory($subdir); }
|
|
$destfile = $subdir . "/" . $iconfile;
|
|
installer::systemactions::copy_one_file($$iconfileref, $destfile);
|
|
|
|
my $infoplistfile = "Info.plist.langpack";
|
|
my $installname = "Info.plist";
|
|
my $infoplistfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$infoplistfile, $includepatharrayref, 0);
|
|
if ($$infoplistfileref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script Info.plist: $infoplistfile!", "create_package"); }
|
|
$destfile = $contentsfolder . "/" . $installname;
|
|
installer::systemactions::copy_one_file($$infoplistfileref, $destfile);
|
|
|
|
# Replacing variables in Info.plist
|
|
$scriptfilecontent = installer::files::read_file($destfile);
|
|
replace_one_variable_in_shellscript($scriptfilecontent, $volume_name, "FULLPRODUCTNAME" );
|
|
installer::files::save_file($destfile, $scriptfilecontent);
|
|
|
|
chdir $localfrom;
|
|
}
|
|
|
|
$systemcall = "cd $localtempdir && hdiutil makehybrid -hfs -hfs-openfolder $folder $folder -hfs-volume-name \"$volume_name\" -ov -o $installdir/tmp && hdiutil convert -ov -format UDZO $installdir/tmp.dmg -o $archive && ";
|
|
if (( $ref ne "" ) && ( $$ref ne "" )) {
|
|
$systemcall .= "hdiutil unflatten $archive && Rez -a $$ref -o $archive && hdiutil flatten $archive &&";
|
|
}
|
|
$systemcall .= "rm -f $installdir/tmp.dmg";
|
|
}
|
|
else
|
|
{
|
|
# getting the path of the getuid.so (only required for Solaris and Linux)
|
|
my $getuidlibrary = "";
|
|
my $ldpreloadstring = "";
|
|
if (( $installer::globals::issolarisbuild ) || ( $installer::globals::islinuxbuild ))
|
|
{
|
|
$getuidlibrary = installer::download::get_path_for_library($includepatharrayref);
|
|
if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
|
|
}
|
|
|
|
$systemcall = "cd $tempdir; $ldpreloadstring tar -cf - . | gzip > $archive";
|
|
}
|
|
|
|
if ( $makesystemcall )
|
|
{
|
|
print "... $systemcall ...\n";
|
|
my $returnvalue = system($systemcall);
|
|
my $infoline = "Systemcall: $systemcall\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
|
|
if ($returnvalue)
|
|
{
|
|
$infoline = "ERROR: Could not execute \"$systemcall\"!\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
}
|
|
else
|
|
{
|
|
$infoline = "Success: Executed \"$systemcall\" successfully!\n";
|
|
push( @installer::globals::logfileinfo, $infoline);
|
|
}
|
|
}
|
|
|
|
if ( $return_to_start ) { chdir($from); }
|
|
|
|
print "... removing $tempdir ...\n";
|
|
installer::systemactions::remove_complete_directory($tempdir);
|
|
}
|
|
|
|
####################################################
|
|
# Main method for creating the simple package
|
|
# installation sets
|
|
####################################################
|
|
|
|
sub create_simple_package
|
|
{
|
|
my ( $filesref, $dirsref, $scpactionsref, $linksref, $unixlinksref, $loggingdir, $languagestringref, $shipinstalldir, $allsettingsarrayref, $allvariables, $includepatharrayref ) = @_;
|
|
|
|
# Creating directories
|
|
|
|
my $current_install_number = "";
|
|
my $infoline = "";
|
|
|
|
installer::logger::print_message( "... creating installation directory ...\n" );
|
|
installer::logger::include_header_into_logfile("Creating installation directory");
|
|
|
|
$installer::globals::csp_installdir = installer::worker::create_installation_directory($shipinstalldir, $languagestringref, \$current_install_number);
|
|
$installer::globals::csp_installlogdir = installer::systemactions::create_directory_next_to_directory($installer::globals::csp_installdir, "log");
|
|
|
|
my $installdir = $installer::globals::csp_installdir;
|
|
my $installlogdir = $installer::globals::csp_installlogdir;
|
|
|
|
# Setting package name (similar to the download name)
|
|
my $packagename = "";
|
|
|
|
if ( $installer::globals::packageformat eq "archive" ||
|
|
$installer::globals::packageformat eq "dmg" )
|
|
{
|
|
$installer::globals::csp_languagestring = $$languagestringref;
|
|
|
|
my $locallanguage = $installer::globals::csp_languagestring;
|
|
|
|
if ( $allvariables->{'OOODOWNLOADNAME'} )
|
|
{
|
|
$packagename = installer::download::set_download_filename(\$locallanguage, $allvariables);
|
|
}
|
|
else
|
|
{
|
|
$downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "downloadname");
|
|
if ( $installer::globals::languagepack ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "langpackdownloadname"); }
|
|
if ( $installer::globals::patch ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "patchdownloadname"); }
|
|
$packagename = installer::download::resolve_variables_in_downloadname($allvariables, $$downloadname, \$locallanguage);
|
|
}
|
|
}
|
|
|
|
# Work around Windows problems with long pathnames (see issue 50885) by
|
|
# putting the to-be-archived installation tree into the temp directory
|
|
# instead of the module output tree (unless LOCALINSTALLDIR dictates
|
|
# otherwise, anyway); can be removed once issue 50885 is fixed:
|
|
my $tempinstalldir = $installdir;
|
|
if ( $installer::globals::iswindowsbuild &&
|
|
$installer::globals::packageformat eq "archive" &&
|
|
!$installer::globals::localinstalldirset )
|
|
{
|
|
$tempinstalldir = File::Temp::tempdir;
|
|
}
|
|
|
|
# Creating subfolder in installdir, which shall become the root of package or zip file
|
|
my $subfolderdir = "";
|
|
if ( $packagename ne "" ) { $subfolderdir = $tempinstalldir . $installer::globals::separator . $packagename; }
|
|
else { $subfolderdir = $tempinstalldir; }
|
|
|
|
if ( ! -d $subfolderdir ) { installer::systemactions::create_directory($subfolderdir); }
|
|
|
|
# Create directories, copy files and ScpActions
|
|
|
|
installer::logger::print_message( "... creating directories ...\n" );
|
|
installer::logger::include_header_into_logfile("Creating directories:");
|
|
|
|
for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
|
|
{
|
|
my $onedir = ${$dirsref}[$i];
|
|
|
|
if ( $onedir->{'HostName'} )
|
|
{
|
|
my $destdir = $subfolderdir . $installer::globals::separator . $onedir->{'HostName'};
|
|
|
|
if ( ! -d $destdir )
|
|
{
|
|
if ( $^O =~ /cygwin/i ) # Cygwin performance check
|
|
{
|
|
$infoline = "Try to create directory $destdir\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
# Directories in $dirsref are sorted and all parents were added -> "mkdir" works without parent creation!
|
|
if ( ! ( -d $destdir )) { mkdir($destdir, 0775); }
|
|
}
|
|
else
|
|
{
|
|
installer::systemactions::create_directory_structure($destdir);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# stripping files ?!
|
|
if (( $installer::globals::strip ) && ( ! $installer::globals::iswindowsbuild )) { installer::strip::strip_libraries($filesref, $languagestringref); }
|
|
|
|
# copy Files
|
|
installer::logger::print_message( "... copying files ...\n" );
|
|
installer::logger::include_header_into_logfile("Copying files:");
|
|
|
|
for ( my $i = 0; $i <= $#{$filesref}; $i++ )
|
|
{
|
|
my $onefile = ${$filesref}[$i];
|
|
|
|
if (( $onefile->{'Styles'} ) && ( $onefile->{'Styles'} =~ /\bBINARYTABLE_ONLY\b/ )) { next; }
|
|
if (( $installer::globals::patch ) && ( $onefile->{'Styles'} ) && ( ! ( $onefile->{'Styles'} =~ /\bPATCH\b/ ))) { next; }
|
|
|
|
my $source = $onefile->{'sourcepath'};
|
|
my $destination = $onefile->{'destination'};
|
|
$destination = $subfolderdir . $installer::globals::separator . $destination;
|
|
|
|
# Replacing $$ by $ is necessary to install files with $ in its name (back-masquerading)
|
|
# Otherwise, the following shell command does not work and the file list is not correct
|
|
$source =~ s/\$\$/\$/;
|
|
$destination =~ s/\$\$/\$/;
|
|
|
|
if ( $^O =~ /cygwin/i ) # Cygwin performance, do not use copy_one_file. "chmod -R" at the end
|
|
{
|
|
my $copyreturn = copy($source, $destination);
|
|
|
|
if ($copyreturn)
|
|
{
|
|
$infoline = "Copy: $source to $destination\n";
|
|
$returnvalue = 1;
|
|
}
|
|
else
|
|
{
|
|
$infoline = "ERROR: Could not copy $source to $destination\n";
|
|
$returnvalue = 0;
|
|
}
|
|
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
}
|
|
else
|
|
{
|
|
installer::systemactions::copy_one_file($source, $destination);
|
|
|
|
if ( ! $installer::globals::iswindowsbuild )
|
|
{
|
|
# see issue 102274
|
|
if ( $onefile->{'UnixRights'} )
|
|
{
|
|
chmod oct($onefile->{'UnixRights'}), $destination;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# creating Links
|
|
|
|
installer::logger::print_message( "... creating links ...\n" );
|
|
installer::logger::include_header_into_logfile("Creating links:");
|
|
|
|
for ( my $i = 0; $i <= $#{$linksref}; $i++ )
|
|
{
|
|
my $onelink = ${$linksref}[$i];
|
|
|
|
if (( $installer::globals::patch ) && ( $onelink->{'Styles'} ) && ( ! ( $onelink->{'Styles'} =~ /\bPATCH\b/ ))) { next; }
|
|
|
|
my $destination = $onelink->{'destination'};
|
|
$destination = $subfolderdir . $installer::globals::separator . $destination;
|
|
my $destinationfile = $onelink->{'destinationfile'};
|
|
|
|
my $localcall = "ln -sf \'$destinationfile\' \'$destination\' \>\/dev\/null 2\>\&1";
|
|
system($localcall);
|
|
|
|
$infoline = "Creating link: \"ln -sf $destinationfile $destination\"\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
}
|
|
|
|
for ( my $i = 0; $i <= $#{$unixlinksref}; $i++ )
|
|
{
|
|
my $onelink = ${$unixlinksref}[$i];
|
|
|
|
if (( $installer::globals::patch ) && ( $onelink->{'Styles'} ) && ( ! ( $onelink->{'Styles'} =~ /\bPATCH\b/ ))) { next; }
|
|
|
|
my $target = $onelink->{'Target'};
|
|
my $destination = $subfolderdir . $installer::globals::separator . $onelink->{'destination'};
|
|
|
|
my $localcall = "ln -sf \'$target\' \'$destination\' \>\/dev\/null 2\>\&1";
|
|
system($localcall);
|
|
|
|
$infoline = "Creating Unix link: \"ln -sf $target $destination\"\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
}
|
|
|
|
# Setting privileges for cygwin globally
|
|
|
|
if ( $^O =~ /cygwin/i )
|
|
{
|
|
installer::logger::print_message( "... changing privileges in $subfolderdir ...\n" );
|
|
installer::logger::include_header_into_logfile("Changing privileges in $subfolderdir:");
|
|
|
|
my $localcall = "chmod -R 755 " . "\"" . $subfolderdir . "\"";
|
|
system($localcall);
|
|
}
|
|
|
|
installer::logger::print_message( "... removing superfluous directories ...\n" );
|
|
installer::logger::include_header_into_logfile("Removing superfluous directories:");
|
|
|
|
my ( $extensionfolder, $preregdir ) = get_extensions_dir($subfolderdir);
|
|
installer::systemactions::remove_empty_dirs_in_folder($extensionfolder);
|
|
|
|
# Registering the extensions
|
|
|
|
installer::logger::print_message( "... registering extensions ...\n" );
|
|
installer::logger::include_header_into_logfile("Registering extensions:");
|
|
register_extensions($subfolderdir, $languagestringref, $preregdir);
|
|
|
|
if ( $installer::globals::compiler =~ /^unxmacx/ )
|
|
{
|
|
installer::worker::put_scpactions_into_installset("$installdir/$packagename");
|
|
}
|
|
|
|
# Creating archive file
|
|
if ( $installer::globals::packageformat eq "archive" )
|
|
{
|
|
create_package($tempinstalldir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, $installer::globals::archiveformat);
|
|
}
|
|
elsif ( $installer::globals::packageformat eq "dmg" )
|
|
{
|
|
create_package($installdir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, ".dmg");
|
|
}
|
|
|
|
# Analyzing the log file
|
|
|
|
installer::worker::clean_output_tree(); # removing directories created in the output tree
|
|
installer::worker::analyze_and_save_logfile($loggingdir, $installdir, $installlogdir, $allsettingsarrayref, $languagestringref, $current_install_number);
|
|
}
|
|
|
|
1;
|