solenv/bin/modules/installer/simplepackage.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package installer::simplepackage;
  20
  21 use Cwd;
  22 use File::Copy;
  23 use installer::download;
  24 use installer::exiter;
  25 use installer::globals;
  26 use installer::logger;
  27 use installer::strip qw(strip_libraries);
  28 use installer::systemactions;
  29 use installer::worker;
  30
  31 ####################################################
  32 # Checking if the simple packager is required.
  33 # This can be achieved by setting the global
  34 # variable SIMPLE_PACKAGE in *.lst file or by
  35 # setting the environment variable SIMPLE_PACKAGE.
  36 ####################################################
  37
  38 sub check_simple_packager_project
  39 {
  40     my ( $allvariables ) = @_;
  41
  42     if (( $installer::globals::packageformat eq "installed" ) ||
  43         ( $installer::globals::packageformat eq "archive" ))
  44     {
  45         $installer::globals::is_simple_packager_project = 1;
  46         $installer::globals::patch_user_dir = 1;
  47     }
  48     elsif( $installer::globals::packageformat eq "dmg" )
  49     {
  50         $installer::globals::is_simple_packager_project = 1;
  51     }
  52 }
  53
  54 ####################################################
  55 # Detecting the directory with extensions
  56 ####################################################
  57
  58 sub get_extensions_dir
  59 {
  60     my ( $subfolderdir ) = @_;
  61
  62     my $extensiondir = $subfolderdir . $installer::globals::separator;
  63     if ( $installer::globals::officedirhostname ne "" ) { $extensiondir = $extensiondir . $installer::globals::officedirhostname . $installer::globals::separator; }
  64     my $extensionsdir = $extensiondir . "share" . $installer::globals::separator . "extensions";
  65
  66     return $extensionsdir;
  67 }
  68
  69 ##################################################################
  70 # Collecting all identifier from ulf file
  71 ##################################################################
  72
  73 sub get_identifier
  74 {
  75     my ( $translationfile ) = @_;
  76
  77     my @identifier = ();
  78
  79     for ( my $i = 0; $i <= $#{$translationfile}; $i++ )
  80     {
  81         my $oneline = ${$translationfile}[$i];
  82
  83         if ( $oneline =~ /^\s*\[(.+)\]\s*$/ )
  84         {
  85             my $identifier = $1;
  86             push(@identifier, $identifier);
  87         }
  88     }
  89
  90     return \@identifier;
  91 }
  92
  93 ##############################################################
  94 # Returning the complete block in all languages
  95 # for a specified string
  96 ##############################################################
  97
  98 sub get_language_block_from_language_file
  99 {
 100     my ($searchstring, $languagefile) = @_;
 101
 102     my @language_block = ();
 103
 104     for ( my $i = 0; $i <= $#{$languagefile}; $i++ )
 105     {
 106         if ( ${$languagefile}[$i] =~ /^\s*\[\s*$searchstring\s*\]\s*$/ )
 107         {
 108             my $counter = $i;
 109
 110             push(@language_block, ${$languagefile}[$counter]);
 111             $counter++;
 112
 113             while (( $counter <= $#{$languagefile} ) && (!( ${$languagefile}[$counter] =~ /^\s*\[/ )))
 114             {
 115                 push(@language_block, ${$languagefile}[$counter]);
 116                 $counter++;
 117             }
 118
 119             last;
 120         }
 121     }
 122
 123     return \@language_block;
 124 }
 125
 126 ##############################################################
 127 # Returning a specific language string from the block
 128 # of all translations
 129 ##############################################################
 130
 131 sub get_language_string_from_language_block
 132 {
 133     my ($language_block, $language) = @_;
 134
 135     my $newstring = "";
 136
 137     for ( my $i = 0; $i <= $#{$language_block}; $i++ )
 138     {
 139         if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
 140         {
 141             $newstring = $1;
 142             last;
 143         }
 144     }
 145
 146     if ( $newstring eq "" )
 147     {
 148         $language = "en-US";    # defaulting to english
 149
 150         for ( my $i = 0; $i <= $#{$language_block}; $i++ )
 151         {
 152             if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
 153             {
 154                 $newstring = $1;
 155                 last;
 156             }
 157         }
 158     }
 159
 160     return $newstring;
 161 }
 162
 163 ########################################################################
 164 # Localizing the script for the Mac Language Pack installer
 165 ########################################################################
 166
 167 sub localize_scriptfile
 168 {
 169     my ($scriptfile, $translationfile, $languagestringref) = @_;
 170
 171     my $onelanguage = $$languagestringref;
 172     if ( $onelanguage =~ /^\s*(.*?)_/ ) { $onelanguage = $1; }
 173
 174     # Analyzing the ulf file, collecting all Identifier
 175     my $allidentifier = get_identifier($translationfile);
 176
 177     for ( my $i = 0; $i <= $#{$allidentifier}; $i++ )
 178     {
 179         my $identifier = ${$allidentifier}[$i];
 180         my $language_block = get_language_block_from_language_file($identifier, $translationfile);
 181         my $newstring = get_language_string_from_language_block($language_block, $onelanguage);
 182
 183         # removing mask
 184         $newstring =~ s/\\\'/\'/g;
 185
 186         replace_one_variable_in_shellscript($scriptfile, $newstring, $identifier);
 187     }
 188 }
 189
 190 #################################################################################
 191 # Replacing one variable in Mac shell script
 192 #################################################################################
 193
 194 sub replace_one_variable_in_shellscript
 195 {
 196     my ($scriptfile, $variable, $searchstring) = @_;
 197
 198     for ( my $i = 0; $i <= $#{$scriptfile}; $i++ )
 199     {
 200         ${$scriptfile}[$i] =~ s/\[$searchstring\]/$variable/g;
 201     }
 202 }
 203
 204 #############################################
 205 # Replacing variables in Mac shell script
 206 #############################################
 207
 208 sub replace_variables_in_scriptfile
 209 {
 210     my ($scriptfile, $volume_name, $volume_name_app, $allvariables) = @_;
 211
 212     replace_one_variable_in_shellscript($scriptfile, $volume_name, "FULLPRODUCTNAME" );
 213     replace_one_variable_in_shellscript($scriptfile, $volume_name_app, "FULLAPPPRODUCTNAME" );
 214     replace_one_variable_in_shellscript($scriptfile, $allvariables->{'PRODUCTNAME'}, "PRODUCTNAME" );
 215     replace_one_variable_in_shellscript($scriptfile, $allvariables->{'PRODUCTVERSION'}, "PRODUCTVERSION" );
 216
 217     my $scriptname = $allvariables->{'BUNDLEIDENTIFIER'};
 218
 219     replace_one_variable_in_shellscript($scriptfile, $scriptname, "SEARCHSCRIPTNAME" );
 220 }
 221
 222 #############################################
 223 # Creating the "simple" package.
 224 # "zip" for Windows
 225 # "tar.gz" for all other platforms
 226 # additionally "dmg" on Mac OS X
 227 #############################################
 228
 229 sub create_package
 230 {
 231     my ( $installdir, $archivedir, $packagename, $allvariables, $includepatharrayref, $languagestringref, $format ) = @_;
 232
 233     installer::logger::print_message( "... creating $installer::globals::packageformat file ...\n" );
 234     installer::logger::include_header_into_logfile("Creating $installer::globals::packageformat file:");
 235
 236     # moving dir into temporary directory
 237     my $pid = $$; # process id
 238     my $tempdir = $installdir . "_temp" . "." . $pid;
 239     my $systemcall = "";
 240     my $from = "";
 241     my $makesystemcall = 1;
 242     my $return_to_start = 0;
 243     installer::systemactions::rename_directory($installdir, $tempdir);
 244
 245     # creating new directory with original name
 246     installer::systemactions::create_directory($archivedir);
 247
 248     my $archive = $archivedir . $installer::globals::separator . $packagename . $format;
 249
 250     if ( $archive =~ /zip$/ )
 251     {
 252         $from = cwd();
 253         $return_to_start = 1;
 254         chdir($tempdir);
 255         $systemcall = "$installer::globals::zippath -qr $archive .";
 256
 257         # Using Archive::Zip fails because of very long path names below "share/uno_packages/cache"
 258         # my $packzip = Archive::Zip->new();
 259         # $packzip->addTree(".");   # after changing into $tempdir
 260         # $packzip->writeToFileNamed($archive);
 261         # $makesystemcall = 0;
 262     }
 263      elsif ( $archive =~ /dmg$/ )
 264     {
 265         my $folder = (( -l "$tempdir/$packagename/Applications" ) or ( -l "$tempdir/$packagename/opt" )) ? $packagename : "\.";
 266
 267         if ( $allvariables->{'PACK_INSTALLED'} ) {
 268             $folder = $packagename;
 269         }
 270
 271         my $volume_name = $allvariables->{'PRODUCTNAME'};
 272         my $volume_name_classic = $allvariables->{'PRODUCTNAME'} . ' ' . $allvariables->{'PRODUCTVERSION'};
 273         my $volume_name_classic_app = $volume_name;  # "app" should not contain version number
 274         if ( $allvariables->{'DMG_VOLUMEEXTENSION'} ) {
 275             $volume_name = $volume_name . ' ' . $allvariables->{'DMG_VOLUMEEXTENSION'};
 276             $volume_name_classic = $volume_name_classic . ' ' . $allvariables->{'DMG_VOLUMEEXTENSION'};
 277             $volume_name_classic_app = $volume_name_classic_app . ' ' . $allvariables->{'DMG_VOLUMEEXTENSION'};
 278         }
 279
 280         my $sla = 'sla.r';
 281         my $ref = "";
 282
 283         if ( ! $allvariables->{'HIDELICENSEDIALOG'} )
 284         {
 285             installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$sla, $includepatharrayref, 0);
 286         }
 287
 288         my $localtempdir = $tempdir;
 289
 290         if (( $installer::globals::languagepack ) || ( $installer::globals::helppack ))
 291         {
 292             # LanguagePack and HelpPack files are collected in $srcfolder, packaged into
 293             # tarball.tar.bz2 and finally the Language Pack.app is assembled in $appfolder
 294             $localtempdir = "$tempdir/$packagename";
 295             my $srcfolder = $localtempdir . "/" . $volume_name_classic_app . "\.app";
 296
 297             $volume_name             .= " Language Pack";
 298             $volume_name_classic     .= " Language Pack";
 299             $volume_name_classic_app .= " Language Pack";
 300
 301             my $appfolder = $localtempdir . "/" . $volume_name_classic_app . "\.app";
 302             my $contentsfolder = $appfolder . "/Contents";
 303             my $tarballname = "tarball.tar.bz2";
 304
 305             my $localfrom = cwd();
 306             chdir $srcfolder;
 307
 308             $systemcall = "tar -cjf $tarballname Contents/";
 309
 310             print "... $systemcall ...\n";
 311             my $localreturnvalue = system($systemcall);
 312             $infoline = "Systemcall: $systemcall\n";
 313             push( @installer::globals::logfileinfo, $infoline);
 314
 315             if ($localreturnvalue)
 316             {
 317                 $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
 318                 push( @installer::globals::logfileinfo, $infoline);
 319             }
 320             else
 321             {
 322                 $infoline = "Success: Executed \"$systemcall\" successfully!\n";
 323                 push( @installer::globals::logfileinfo, $infoline);
 324             }
 325
 326             my $sourcefile = $srcfolder . "/" . $tarballname;
 327             my $destfile = $contentsfolder . "/" . $tarballname;
 328
 329             installer::systemactions::remove_complete_directory($appfolder);
 330             installer::systemactions::create_directory($appfolder);
 331             installer::systemactions::create_directory($contentsfolder);
 332
 333             installer::systemactions::copy_one_file($sourcefile, $destfile);
 334             installer::systemactions::remove_complete_directory($srcfolder);
 335
 336             # Copy two files into installation set next to the tar ball
 337             # 1. "osx_install.applescript"
 338             # 2 "OpenOffice.org Languagepack"
 339
 340             my $scriptrealfilename = "osx_install.applescript";
 341             my $scriptfilename = "";
 342             if ( $installer::globals::languagepack ) { $scriptfilename = "osx_install_languagepack.applescript"; }
 343             if ( $installer::globals::helppack ) { $scriptfilename = "osx_install_helppack.applescript"; }
 344             my $scripthelperfilename = $ENV{'SRCDIR'} . "/setup_native/scripts/mac_install.script";
 345             # my $scripthelperrealfilename = $volume_name;
 346             my $scripthelperrealfilename = $volume_name_classic_app;
 347
 348             # Finding both files in source tree
 349
 350             my $scriptref = $ENV{'SRCDIR'} . "/setup_native/scripts/" . $scriptfilename;
 351             if (! -f $scriptref) { installer::exiter::exit_program("ERROR: Could not find Apple script $scriptfilename ($scriptref)!", "create_package"); }
 352             if (! -f $scripthelperfilename) { installer::exiter::exit_program("ERROR: Could not find Apple script $scripthelperfilename!", "create_package"); }
 353
 354             $scriptfilename = $contentsfolder . "/" . $scriptrealfilename;
 355             $scripthelperrealfilename = $contentsfolder . "/" . $scripthelperrealfilename;
 356
 357             installer::systemactions::copy_one_file($scriptref, $scriptfilename);
 358             installer::systemactions::copy_one_file($scripthelperfilename, $scripthelperrealfilename);
 359
 360             # Replacing variables in script $scriptfilename
 361             # Localizing script $scriptfilename
 362             my $scriptfilecontent = installer::files::read_file($scriptfilename);
 363             my $translationfilecontent = installer::files::read_file($installer::globals::macinstallfilename);
 364             localize_scriptfile($scriptfilecontent, $translationfilecontent, $languagestringref);
 365             # replace_variables_in_scriptfile($scriptfilecontent, $volume_name, $allvariables);
 366             replace_variables_in_scriptfile($scriptfilecontent, $volume_name_classic, $volume_name_classic_app, $allvariables);
 367             installer::files::save_file($scriptfilename, $scriptfilecontent);
 368
 369             chmod 0775, $scriptfilename;
 370             chmod 0775, $scripthelperrealfilename;
 371
 372             # Copy also Info.plist and icon file
 373             # Finding both files in source tree
 374             my $iconfile = "ooo3_installer.icns";
 375             my $iconfileref = $ENV{'SRCDIR'} . "/setup_native/source/mac/" . $iconfile;
 376             if (! -f $iconfileref) { installer::exiter::exit_program("ERROR: Could not find Apple script icon file $iconfile ($iconfileref)!", "create_package"); }
 377             my $subdir = $contentsfolder . "/" . "Resources";
 378             if ( ! -d $subdir ) { installer::systemactions::create_directory($subdir); }
 379             $destfile = $subdir . "/" . $iconfile;
 380             installer::systemactions::copy_one_file($iconfileref, $destfile);
 381
 382             my $installname = "Info.plist";
 383             my $infoplistfile = $ENV{'SRCDIR'} . "/setup_native/source/mac/Info.plist.langpack";
 384             if (! -f $infoplistfile) { installer::exiter::exit_program("ERROR: Could not find Apple script Info.plist: $infoplistfile!", "create_package"); }
 385             $destfile = $contentsfolder . "/" . $installname;
 386             installer::systemactions::copy_one_file($infoplistfile, $destfile);
 387
 388             # Replacing variables in Info.plist
 389             $scriptfilecontent = installer::files::read_file($destfile);
 390             # replace_one_variable_in_shellscript($scriptfilecontent, $volume_name, "FULLPRODUCTNAME" );
 391             replace_one_variable_in_shellscript($scriptfilecontent, $volume_name_classic_app, "FULLAPPPRODUCTNAME" ); # OpenOffice.org Language Pack
 392             installer::files::save_file($destfile, $scriptfilecontent);
 393
 394             chdir $localfrom;
 395         }
 396         elsif ($volume_name_classic_app eq 'LibreOffice' || $volume_name_classic_app eq 'LibreOfficeDev')
 397         {
 398             my $subdir = "$tempdir/$packagename/$volume_name_classic_app.app/Contents/Resources";
 399             if ( ! -d $subdir ) { installer::systemactions::create_directory($subdir); }
 400             # iterate over OS X localizations
 401             foreach $lang ("ca", "cs", "da", "de", "el", "en", "es", "fi", "fr", "hr", "hu", "id", "it", "ja", "ko", "ms", "nl", "no", "pl", "pt", "pt_PT", "ro", "ru", "sk", "sv", "th", "tr", "uk", "vi", "zh_CN", "zh_TW")
 402             {
 403                 installer::systemactions::create_directory($subdir . "/" . $lang . ".lproj");
 404             }
 405             if ( defined($ENV{'MACOSX_CODESIGNING_IDENTITY'}) && $ENV{'MACOSX_CODESIGNING_IDENTITY'} ne "" )
 406             {
 407                 $systemcall = "$ENV{'SRCDIR'}/solenv/bin/macosx-codesign-app-bundle $localtempdir/$folder/$volume_name_classic_app.app";
 408                 print "... $systemcall ...\n";
 409                 my $returnvalue = system($systemcall);
 410                 $infoline = "Systemcall: $systemcall\n";
 411                 push( @installer::globals::logfileinfo, $infoline);
 412
 413                 if ($returnvalue)
 414                 {
 415                     $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
 416                     push( @installer::globals::logfileinfo, $infoline);
 417                 }
 418                 else
 419                 {
 420                     $infoline = "Success: Executed \"$systemcall\" successfully!\n";
 421                     push( @installer::globals::logfileinfo, $infoline);
 422                 }
 423             }
 424         }
 425
 426         $systemcall = "cd $localtempdir && hdiutil create -srcfolder $folder $archive -ov -fs HFS+ -volname \"$volume_name\" -format UDBZ";
 427         if (( $ref ne "" ) && ( $$ref ne "" )) {
 428             $systemcall .= " && hdiutil unflatten $archive && Rez -a $$ref -o $archive && hdiutil flatten $archive &&";
 429         }
 430     }
 431     else
 432     {
 433         # getting the path of the getuid.so (only required for Solaris and Linux)
 434         my $getuidlibrary = "";
 435         my $ldpreloadstring = "";
 436         if (( $installer::globals::issolarisbuild ) || ( $installer::globals::islinuxbuild ))
 437         {
 438             $getuidlibrary = installer::download::get_path_for_library($includepatharrayref);
 439             if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
 440         }
 441
 442         $systemcall = "cd $tempdir; $ldpreloadstring tar -cf - . | gzip > $archive";
 443     }
 444
 445     if ( $makesystemcall )
 446     {
 447         print "... $systemcall ...\n";
 448         my $returnvalue = system($systemcall);
 449         my $infoline = "Systemcall: $systemcall\n";
 450         push( @installer::globals::logfileinfo, $infoline);
 451
 452         if ($returnvalue)
 453         {
 454             $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
 455             push( @installer::globals::logfileinfo, $infoline);
 456         }
 457         else
 458         {
 459             $infoline = "Success: Executed \"$systemcall\" successfully!\n";
 460             push( @installer::globals::logfileinfo, $infoline);
 461         }
 462     }
 463
 464     if ( $return_to_start ) { chdir($from); }
 465
 466     print "... removing $tempdir ...\n";
 467     installer::systemactions::remove_complete_directory($tempdir);
 468 }
 469
 470 ####################################################
 471 # Main method for creating the simple package
 472 # installation sets
 473 ####################################################
 474
 475 sub create_simple_package
 476 {
 477     my ( $filesref, $dirsref, $scpactionsref, $linksref, $unixlinksref, $loggingdir, $languagestringref, $shipinstalldir, $allsettingsarrayref, $allvariables, $includepatharrayref ) = @_;
 478
 479     # Creating directories
 480
 481     my $current_install_number = "";
 482     my $infoline = "";
 483
 484     installer::logger::print_message( "... creating installation directory ...\n" );
 485     installer::logger::include_header_into_logfile("Creating installation directory");
 486
 487     $installer::globals::csp_installdir = installer::worker::create_installation_directory($shipinstalldir, $languagestringref, \$current_install_number);
 488     $installer::globals::csp_installlogdir = installer::systemactions::create_directory_next_to_directory($installer::globals::csp_installdir, "log");
 489
 490     my $installdir = $installer::globals::csp_installdir;
 491     my $installlogdir = $installer::globals::csp_installlogdir;
 492
 493     # Setting package name (similar to the download name)
 494     my $packagename = "";
 495
 496     if ( $installer::globals::packageformat eq "archive"  ||
 497         $installer::globals::packageformat eq "dmg" )
 498     {
 499         $installer::globals::csp_languagestring = $$languagestringref;
 500
 501         my $locallanguage = $installer::globals::csp_languagestring;
 502
 503         if ( $allvariables->{'OOODOWNLOADNAME'} )
 504         {
 505             $packagename = installer::download::set_download_filename(\$locallanguage, $allvariables);
 506         }
 507         else
 508         {
 509             $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "downloadname");
 510             if ( $installer::globals::languagepack ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "langpackdownloadname"); }
 511             if ( $installer::globals::helppack ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "helppackdownloadname"); }
 512             $packagename = installer::download::resolve_variables_in_downloadname($allvariables, $$downloadname, \$locallanguage);
 513         }
 514     }
 515
 516     # Work around Windows problems with long pathnames (see issue 50885) by
 517     # putting the to-be-archived installation tree into the temp directory
 518     # instead of the module output tree (unless LOCALINSTALLDIR dictates
 519     # otherwise, anyway); can be removed once issue 50885 is fixed:
 520     my $tempinstalldir = $installdir;
 521     if ( $installer::globals::iswindowsbuild &&
 522          $installer::globals::packageformat eq "archive" &&
 523          !$installer::globals::localinstalldirset )
 524     {
 525         $tempinstalldir = File::Temp::tempdir;
 526     }
 527
 528     # Creating subfolder in installdir, which shall become the root of package or zip file
 529     my $subfolderdir = "";
 530     if ( $packagename ne "" ) { $subfolderdir = $tempinstalldir . $installer::globals::separator . $packagename; }
 531     else { $subfolderdir = $tempinstalldir; }
 532
 533     if ( ! -d $subfolderdir ) { installer::systemactions::create_directory($subfolderdir); }
 534
 535     # Create directories, copy files and ScpActions
 536
 537     installer::logger::print_message( "... creating directories ...\n" );
 538     installer::logger::include_header_into_logfile("Creating directories:");
 539
 540     for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
 541     {
 542         my $onedir = ${$dirsref}[$i];
 543
 544         if ( $onedir->{'HostName'} )
 545         {
 546             my $destdir = $subfolderdir . $installer::globals::separator . $onedir->{'HostName'};
 547
 548             if ( ! -d $destdir )
 549             {
 550                 if ( $^O =~ /cygwin/i ) # Cygwin performance check
 551                 {
 552                     $infoline = "Try to create directory $destdir\n";
 553                     push(@installer::globals::logfileinfo, $infoline);
 554                     # Directories in $dirsref are sorted and all parents were added -> "mkdir" works without parent creation!
 555                     if ( ! ( -d $destdir )) { mkdir($destdir, 0775); }
 556                 }
 557                 else
 558                 {
 559                     installer::systemactions::create_directory_structure($destdir);
 560                 }
 561             }
 562         }
 563     }
 564
 565     # stripping files ?!
 566     if (( $installer::globals::strip ) && ( ! $installer::globals::iswindowsbuild )) { strip_libraries($filesref, $languagestringref); }
 567
 568     # copy Files
 569     installer::logger::print_message( "... copying files ...\n" );
 570     installer::logger::include_header_into_logfile("Copying files:");
 571
 572     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 573     {
 574         my $onefile = ${$filesref}[$i];
 575
 576         if (( $onefile->{'Styles'} ) && ( $onefile->{'Styles'} =~ /\bBINARYTABLE_ONLY\b/ )) { next; }
 577
 578         my $source = $onefile->{'sourcepath'};
 579         my $destination = $onefile->{'destination'};
 580         $destination = $subfolderdir . $installer::globals::separator . $destination;
 581
 582         # Replacing $$ by $ is necessary to install files with $ in its name (back-masquerading)
 583         # Otherwise, the following shell command does not work and the file list is not correct
 584         $source =~ s/\$\$/\$/;
 585         $destination =~ s/\$\$/\$/;
 586
 587         if ( $^O =~ /cygwin/i ) # Cygwin performance, do not use copy_one_file. "chmod -R" at the end
 588         {
 589             my $copyreturn = copy($source, $destination);
 590
 591             if ($copyreturn)
 592             {
 593                 $infoline = "Copy: $source to $destination\n";
 594                 $returnvalue = 1;
 595             }
 596             else
 597             {
 598                 $infoline = "ERROR: Could not copy $source to $destination $!\n";
 599                 $returnvalue = 0;
 600             }
 601
 602             push(@installer::globals::logfileinfo, $infoline);
 603         }
 604         else
 605         {
 606             installer::systemactions::copy_one_file($source, $destination);
 607
 608             if ( ! $installer::globals::iswindowsbuild )
 609             {
 610                 # see issue 102274
 611                 if ( $onefile->{'UnixRights'} )
 612                 {
 613                     if ( ! -l $destination ) # that would be rather pointless
 614                     {
 615                         chmod oct($onefile->{'UnixRights'}), $destination;
 616                     }
 617                 }
 618             }
 619         }
 620     }
 621
 622     # creating Links
 623
 624     installer::logger::print_message( "... creating links ...\n" );
 625     installer::logger::include_header_into_logfile("Creating links:");
 626
 627     for ( my $i = 0; $i <= $#{$linksref}; $i++ )
 628     {
 629         my $onelink = ${$linksref}[$i];
 630
 631         my $destination = $onelink->{'destination'};
 632         $destination = $subfolderdir . $installer::globals::separator . $destination;
 633         my $destinationfile = $onelink->{'destinationfile'};
 634
 635         my $localcall = "ln -sf \'$destinationfile\' \'$destination\' \>\/dev\/null 2\>\&1";
 636         system($localcall);
 637
 638         $infoline = "Creating link: \"ln -sf $destinationfile $destination\"\n";
 639         push(@installer::globals::logfileinfo, $infoline);
 640     }
 641
 642     for ( my $i = 0; $i <= $#{$unixlinksref}; $i++ )
 643     {
 644         my $onelink = ${$unixlinksref}[$i];
 645
 646         my $target = $onelink->{'Target'};
 647         my $destination = $subfolderdir . $installer::globals::separator . $onelink->{'destination'};
 648
 649         my $localcall = "ln -sf \'$target\' \'$destination\' \>\/dev\/null 2\>\&1";
 650         system($localcall);
 651
 652         $infoline = "Creating Unix link: \"ln -sf $target $destination\"\n";
 653         push(@installer::globals::logfileinfo, $infoline);
 654     }
 655
 656     # Setting privileges for cygwin globally
 657
 658     if ( $^O =~ /cygwin/i )
 659     {
 660         installer::logger::print_message( "... changing privileges in $subfolderdir ...\n" );
 661         installer::logger::include_header_into_logfile("Changing privileges in $subfolderdir:");
 662
 663         my $localcall = "chmod -R 755 " . "\"" . $subfolderdir . "\"";
 664         system($localcall);
 665     }
 666
 667     installer::logger::print_message( "... removing superfluous directories ...\n" );
 668     installer::logger::include_header_into_logfile("Removing superfluous directories:");
 669
 670     my $extensionfolder = get_extensions_dir($subfolderdir);
 671     installer::systemactions::remove_empty_dirs_in_folder($extensionfolder);
 672
 673     if ( $installer::globals::platformid eq 'macosx_x86_64' )
 674     {
 675         installer::worker::put_scpactions_into_installset("$installdir/$packagename");
 676     }
 677
 678     # Creating archive file
 679     if ( $installer::globals::packageformat eq "archive" )
 680     {
 681         create_package($tempinstalldir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, $installer::globals::archiveformat);
 682     }
 683     elsif ( $installer::globals::packageformat eq "dmg" )
 684     {
 685         create_package($installdir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, ".dmg");
 686     }
 687
 688     # Analyzing the log file
 689
 690     installer::worker::clean_output_tree(); # removing directories created in the output tree
 691     installer::worker::analyze_and_save_logfile($loggingdir, $installdir, $installlogdir, $allsettingsarrayref, $languagestringref, $current_install_number);
 692 }
 693
 694 1;