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             $localtempdir = "$tempdir/$packagename";
 293             if ( $installer::globals::helppack ) { $volume_name = "$volume_name Help Pack"; }
 294             if ( $installer::globals::languagepack )
 295             {
 296                 $volume_name = "$volume_name Language Pack";
 297                 $volume_name_classic = "$volume_name_classic Language Pack";
 298                 $volume_name_classic_app = "$volume_name_classic_app Language Pack";
 299             }
 300
 301             # Create tar ball named tarball.tar.bz2
 302             # my $appfolder = $localtempdir . "/" . $volume_name . "\.app";
 303             my $appfolder = $localtempdir . "/" . $volume_name_classic_app . "\.app";
 304             my $contentsfolder = $appfolder . "/Contents";
 305             my $tarballname = "tarball.tar.bz2";
 306
 307             my $localfrom = cwd();
 308             chdir $appfolder;
 309
 310             $systemcall = "tar -cjf $tarballname Contents/";
 311
 312             print "... $systemcall ...\n";
 313             my $localreturnvalue = system($systemcall);
 314             $infoline = "Systemcall: $systemcall\n";
 315             push( @installer::globals::logfileinfo, $infoline);
 316
 317             if ($localreturnvalue)
 318             {
 319                 $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
 320                 push( @installer::globals::logfileinfo, $infoline);
 321             }
 322             else
 323             {
 324                 $infoline = "Success: Executed \"$systemcall\" successfully!\n";
 325                 push( @installer::globals::logfileinfo, $infoline);
 326             }
 327
 328             my $sourcefile = $appfolder . "/" . $tarballname;
 329             my $destfile = $contentsfolder . "/" . $tarballname;
 330
 331             installer::systemactions::remove_complete_directory($contentsfolder);
 332             installer::systemactions::create_directory($contentsfolder);
 333
 334             installer::systemactions::copy_one_file($sourcefile, $destfile);
 335             unlink($sourcefile);
 336
 337             # Copy two files into installation set next to the tar ball
 338             # 1. "osx_install.applescript"
 339             # 2 "OpenOffice.org Languagepack"
 340
 341             my $scriptrealfilename = "osx_install.applescript";
 342             my $scriptfilename = "";
 343             if ( $installer::globals::languagepack ) { $scriptfilename = "osx_install_languagepack.applescript"; }
 344             if ( $installer::globals::helppack ) { $scriptfilename = "osx_install_helppack.applescript"; }
 345             my $scripthelperfilename = $ENV{'SRCDIR'} . "/setup_native/scripts/mac_install.script";
 346             # my $scripthelperrealfilename = $volume_name;
 347             my $scripthelperrealfilename = $volume_name_classic_app;
 348
 349             # Finding both files in source tree
 350
 351             my $scriptref = $ENV{'SRCDIR'} . "/setup_native/scripts/" . $scriptfilename;
 352             if (! -f $scriptref) { installer::exiter::exit_program("ERROR: Could not find Apple script $scriptfilename ($scriptref)!", "create_package"); }
 353             if (! -f $scripthelperfilename) { installer::exiter::exit_program("ERROR: Could not find Apple script $scripthelperfilename!", "create_package"); }
 354
 355             $scriptfilename = $contentsfolder . "/" . $scriptrealfilename;
 356             $scripthelperrealfilename = $contentsfolder . "/" . $scripthelperrealfilename;
 357
 358             installer::systemactions::copy_one_file($scriptref, $scriptfilename);
 359             installer::systemactions::copy_one_file($scripthelperfilename, $scripthelperrealfilename);
 360
 361             # Replacing variables in script $scriptfilename
 362             # Localizing script $scriptfilename
 363             my $scriptfilecontent = installer::files::read_file($scriptfilename);
 364             my $translationfilecontent = installer::files::read_file($installer::globals::macinstallfilename);
 365             localize_scriptfile($scriptfilecontent, $translationfilecontent, $languagestringref);
 366             # replace_variables_in_scriptfile($scriptfilecontent, $volume_name, $allvariables);
 367             replace_variables_in_scriptfile($scriptfilecontent, $volume_name_classic, $volume_name_classic_app, $allvariables);
 368             installer::files::save_file($scriptfilename, $scriptfilecontent);
 369
 370             chmod 0775, $scriptfilename;
 371             chmod 0775, $scripthelperrealfilename;
 372
 373             # Copy also Info.plist and icon file
 374             # Finding both files in source tree
 375             my $iconfile = "ooo3_installer.icns";
 376             my $iconfileref = $ENV{'SRCDIR'} . "/setup_native/source/mac/" . $iconfile;
 377             if (! -f $iconfileref) { installer::exiter::exit_program("ERROR: Could not find Apple script icon file $iconfile ($iconfileref)!", "create_package"); }
 378             my $subdir = $contentsfolder . "/" . "Resources";
 379             if ( ! -d $subdir ) { installer::systemactions::create_directory($subdir); }
 380             $destfile = $subdir . "/" . $iconfile;
 381             installer::systemactions::copy_one_file($iconfileref, $destfile);
 382
 383             my $installname = "Info.plist";
 384             my $infoplistfile = $ENV{'SRCDIR'} . "/setup_native/source/mac/Info.plist.langpack";
 385             if (! -f $infoplistfile) { installer::exiter::exit_program("ERROR: Could not find Apple script Info.plist: $infoplistfile!", "create_package"); }
 386             $destfile = $contentsfolder . "/" . $installname;
 387             installer::systemactions::copy_one_file($infoplistfile, $destfile);
 388
 389             # Replacing variables in Info.plist
 390             $scriptfilecontent = installer::files::read_file($destfile);
 391             # replace_one_variable_in_shellscript($scriptfilecontent, $volume_name, "FULLPRODUCTNAME" );
 392             replace_one_variable_in_shellscript($scriptfilecontent, $volume_name_classic_app, "FULLAPPPRODUCTNAME" ); # OpenOffice.org Language Pack
 393             installer::files::save_file($destfile, $scriptfilecontent);
 394
 395             chdir $localfrom;
 396         }
 397         else
 398         {
 399             if (($volume_name_classic_app eq 'LibreOffice' || $volume_name_classic_app eq 'LibreOfficeDev') &&
 400                 defined($ENV{'MACOSX_CODESIGNING_IDENTITY'}) && $ENV{'MACOSX_CODESIGNING_IDENTITY'} ne "" )
 401             {
 402                 $systemcall = "$ENV{'SRCDIR'}/solenv/bin/macosx-codesign-app-bundle $localtempdir/$folder/$volume_name_classic_app.app";
 403                 print "... $systemcall ...\n";
 404                 my $returnvalue = system($systemcall);
 405                 $infoline = "Systemcall: $systemcall\n";
 406                 push( @installer::globals::logfileinfo, $infoline);
 407
 408                 if ($returnvalue)
 409                 {
 410                     $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
 411                     push( @installer::globals::logfileinfo, $infoline);
 412                 }
 413                 else
 414                 {
 415                     $infoline = "Success: Executed \"$systemcall\" successfully!\n";
 416                     push( @installer::globals::logfileinfo, $infoline);
 417                 }
 418             }
 419         }
 420
 421         $systemcall = "cd $localtempdir && hdiutil makehybrid -hfs -hfs-openfolder $folder $folder -hfs-volume-name \"$volume_name\" -ov -o $installdir/tmp && hdiutil convert -ov -format UDBZ $installdir/tmp.dmg -o $archive && ";
 422         if (( $ref ne "" ) && ( $$ref ne "" )) {
 423             $systemcall .= "hdiutil unflatten $archive && Rez -a $$ref -o $archive && hdiutil flatten $archive &&";
 424         }
 425         $systemcall .= "rm -f $installdir/tmp.dmg";
 426     }
 427     else
 428     {
 429         # getting the path of the getuid.so (only required for Solaris and Linux)
 430         my $getuidlibrary = "";
 431         my $ldpreloadstring = "";
 432         if (( $installer::globals::issolarisbuild ) || ( $installer::globals::islinuxbuild ))
 433         {
 434             $getuidlibrary = installer::download::get_path_for_library($includepatharrayref);
 435             if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
 436         }
 437
 438         $systemcall = "cd $tempdir; $ldpreloadstring tar -cf - . | gzip > $archive";
 439     }
 440
 441     if ( $makesystemcall )
 442     {
 443         print "... $systemcall ...\n";
 444         my $returnvalue = system($systemcall);
 445         my $infoline = "Systemcall: $systemcall\n";
 446         push( @installer::globals::logfileinfo, $infoline);
 447
 448         if ($returnvalue)
 449         {
 450             $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
 451             push( @installer::globals::logfileinfo, $infoline);
 452         }
 453         else
 454         {
 455             $infoline = "Success: Executed \"$systemcall\" successfully!\n";
 456             push( @installer::globals::logfileinfo, $infoline);
 457         }
 458     }
 459
 460     if ( $return_to_start ) { chdir($from); }
 461
 462     print "... removing $tempdir ...\n";
 463     installer::systemactions::remove_complete_directory($tempdir);
 464 }
 465
 466 ####################################################
 467 # Main method for creating the simple package
 468 # installation sets
 469 ####################################################
 470
 471 sub create_simple_package
 472 {
 473     my ( $filesref, $dirsref, $scpactionsref, $linksref, $unixlinksref, $loggingdir, $languagestringref, $shipinstalldir, $allsettingsarrayref, $allvariables, $includepatharrayref ) = @_;
 474
 475     # Creating directories
 476
 477     my $current_install_number = "";
 478     my $infoline = "";
 479
 480     installer::logger::print_message( "... creating installation directory ...\n" );
 481     installer::logger::include_header_into_logfile("Creating installation directory");
 482
 483     $installer::globals::csp_installdir = installer::worker::create_installation_directory($shipinstalldir, $languagestringref, \$current_install_number);
 484     $installer::globals::csp_installlogdir = installer::systemactions::create_directory_next_to_directory($installer::globals::csp_installdir, "log");
 485
 486     my $installdir = $installer::globals::csp_installdir;
 487     my $installlogdir = $installer::globals::csp_installlogdir;
 488
 489     # Setting package name (similar to the download name)
 490     my $packagename = "";
 491
 492     if ( $installer::globals::packageformat eq "archive"  ||
 493         $installer::globals::packageformat eq "dmg" )
 494     {
 495         $installer::globals::csp_languagestring = $$languagestringref;
 496
 497         my $locallanguage = $installer::globals::csp_languagestring;
 498
 499         if ( $allvariables->{'OOODOWNLOADNAME'} )
 500         {
 501             $packagename = installer::download::set_download_filename(\$locallanguage, $allvariables);
 502         }
 503         else
 504         {
 505             $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "downloadname");
 506             if ( $installer::globals::languagepack ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "langpackdownloadname"); }
 507             if ( $installer::globals::helppack ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "helppackdownloadname"); }
 508             $packagename = installer::download::resolve_variables_in_downloadname($allvariables, $$downloadname, \$locallanguage);
 509         }
 510     }
 511
 512     # Work around Windows problems with long pathnames (see issue 50885) by
 513     # putting the to-be-archived installation tree into the temp directory
 514     # instead of the module output tree (unless LOCALINSTALLDIR dictates
 515     # otherwise, anyway); can be removed once issue 50885 is fixed:
 516     my $tempinstalldir = $installdir;
 517     if ( $installer::globals::iswindowsbuild &&
 518          $installer::globals::packageformat eq "archive" &&
 519          !$installer::globals::localinstalldirset )
 520     {
 521         $tempinstalldir = File::Temp::tempdir;
 522     }
 523
 524     # Creating subfolder in installdir, which shall become the root of package or zip file
 525     my $subfolderdir = "";
 526     if ( $packagename ne "" ) { $subfolderdir = $tempinstalldir . $installer::globals::separator . $packagename; }
 527     else { $subfolderdir = $tempinstalldir; }
 528
 529     if ( ! -d $subfolderdir ) { installer::systemactions::create_directory($subfolderdir); }
 530
 531     # Create directories, copy files and ScpActions
 532
 533     installer::logger::print_message( "... creating directories ...\n" );
 534     installer::logger::include_header_into_logfile("Creating directories:");
 535
 536     for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
 537     {
 538         my $onedir = ${$dirsref}[$i];
 539
 540         if ( $onedir->{'HostName'} )
 541         {
 542             my $destdir = $subfolderdir . $installer::globals::separator . $onedir->{'HostName'};
 543
 544             if ( ! -d $destdir )
 545             {
 546                 if ( $^O =~ /cygwin/i ) # Cygwin performance check
 547                 {
 548                     $infoline = "Try to create directory $destdir\n";
 549                     push(@installer::globals::logfileinfo, $infoline);
 550                     # Directories in $dirsref are sorted and all parents were added -> "mkdir" works without parent creation!
 551                     if ( ! ( -d $destdir )) { mkdir($destdir, 0775); }
 552                 }
 553                 else
 554                 {
 555                     installer::systemactions::create_directory_structure($destdir);
 556                 }
 557             }
 558         }
 559     }
 560
 561     # stripping files ?!
 562     if (( $installer::globals::strip ) && ( ! $installer::globals::iswindowsbuild )) { strip_libraries($filesref, $languagestringref); }
 563
 564     # copy Files
 565     installer::logger::print_message( "... copying files ...\n" );
 566     installer::logger::include_header_into_logfile("Copying files:");
 567
 568     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 569     {
 570         my $onefile = ${$filesref}[$i];
 571
 572         if (( $onefile->{'Styles'} ) && ( $onefile->{'Styles'} =~ /\bBINARYTABLE_ONLY\b/ )) { next; }
 573
 574         my $source = $onefile->{'sourcepath'};
 575         my $destination = $onefile->{'destination'};
 576         $destination = $subfolderdir . $installer::globals::separator . $destination;
 577
 578         # Replacing $$ by $ is necessary to install files with $ in its name (back-masquerading)
 579         # Otherwise, the following shell command does not work and the file list is not correct
 580         $source =~ s/\$\$/\$/;
 581         $destination =~ s/\$\$/\$/;
 582
 583         if ( $^O =~ /cygwin/i ) # Cygwin performance, do not use copy_one_file. "chmod -R" at the end
 584         {
 585             my $copyreturn = copy($source, $destination);
 586
 587             if ($copyreturn)
 588             {
 589                 $infoline = "Copy: $source to $destination\n";
 590                 $returnvalue = 1;
 591             }
 592             else
 593             {
 594                 $infoline = "ERROR: Could not copy $source to $destination $!\n";
 595                 $returnvalue = 0;
 596             }
 597
 598             push(@installer::globals::logfileinfo, $infoline);
 599         }
 600         else
 601         {
 602             installer::systemactions::copy_one_file($source, $destination);
 603
 604             if ( ! $installer::globals::iswindowsbuild )
 605             {
 606                 # see issue 102274
 607                 if ( $onefile->{'UnixRights'} )
 608                 {
 609                     if ( ! -l $destination ) # that would be rather pointless
 610                     {
 611                         chmod oct($onefile->{'UnixRights'}), $destination;
 612                     }
 613                 }
 614             }
 615         }
 616     }
 617
 618     # creating Links
 619
 620     installer::logger::print_message( "... creating links ...\n" );
 621     installer::logger::include_header_into_logfile("Creating links:");
 622
 623     for ( my $i = 0; $i <= $#{$linksref}; $i++ )
 624     {
 625         my $onelink = ${$linksref}[$i];
 626
 627         my $destination = $onelink->{'destination'};
 628         $destination = $subfolderdir . $installer::globals::separator . $destination;
 629         my $destinationfile = $onelink->{'destinationfile'};
 630
 631         my $localcall = "ln -sf \'$destinationfile\' \'$destination\' \>\/dev\/null 2\>\&1";
 632         system($localcall);
 633
 634         $infoline = "Creating link: \"ln -sf $destinationfile $destination\"\n";
 635         push(@installer::globals::logfileinfo, $infoline);
 636     }
 637
 638     for ( my $i = 0; $i <= $#{$unixlinksref}; $i++ )
 639     {
 640         my $onelink = ${$unixlinksref}[$i];
 641
 642         my $target = $onelink->{'Target'};
 643         my $destination = $subfolderdir . $installer::globals::separator . $onelink->{'destination'};
 644
 645         my $localcall = "ln -sf \'$target\' \'$destination\' \>\/dev\/null 2\>\&1";
 646         system($localcall);
 647
 648         $infoline = "Creating Unix link: \"ln -sf $target $destination\"\n";
 649         push(@installer::globals::logfileinfo, $infoline);
 650     }
 651
 652     # Setting privileges for cygwin globally
 653
 654     if ( $^O =~ /cygwin/i )
 655     {
 656         installer::logger::print_message( "... changing privileges in $subfolderdir ...\n" );
 657         installer::logger::include_header_into_logfile("Changing privileges in $subfolderdir:");
 658
 659         my $localcall = "chmod -R 755 " . "\"" . $subfolderdir . "\"";
 660         system($localcall);
 661     }
 662
 663     installer::logger::print_message( "... removing superfluous directories ...\n" );
 664     installer::logger::include_header_into_logfile("Removing superfluous directories:");
 665
 666     my $extensionfolder = get_extensions_dir($subfolderdir);
 667     installer::systemactions::remove_empty_dirs_in_folder($extensionfolder);
 668
 669     if ( $installer::globals::compiler =~ /^unxmacx/ )
 670     {
 671         installer::worker::put_scpactions_into_installset("$installdir/$packagename");
 672     }
 673
 674     # Creating archive file
 675     if ( $installer::globals::packageformat eq "archive" )
 676     {
 677         create_package($tempinstalldir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, $installer::globals::archiveformat);
 678     }
 679     elsif ( $installer::globals::packageformat eq "dmg" )
 680     {
 681         create_package($installdir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, ".dmg");
 682     }
 683
 684     # Analyzing the log file
 685
 686     installer::worker::clean_output_tree(); # removing directories created in the output tree
 687     installer::worker::analyze_and_save_logfile($loggingdir, $installdir, $installlogdir, $allsettingsarrayref, $languagestringref, $current_install_number);
 688 }
 689
 690 1;