1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance 9# with the License. You may obtain a copy of the License at 10# 11# http://www.apache.org/licenses/LICENSE-2.0 12# 13# Unless required by applicable law or agreed to in writing, 14# software distributed under the License is distributed on an 15# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16# KIND, either express or implied. See the License for the 17# specific language governing permissions and limitations 18# under the License. 19# 20#************************************************************** 21 22 23 24package installer::simplepackage; 25 26# use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); 27use Cwd; 28use File::Copy; 29use installer::download; 30use installer::exiter; 31use installer::globals; 32use installer::logger; 33use installer::strip; 34use installer::systemactions; 35use installer::worker; 36 37#################################################### 38# Checking if the simple packager is required. 39# This can be achieved by setting the global 40# variable SIMPLE_PACKAGE in *.lst file or by 41# setting the environment variable SIMPLE_PACKAGE. 42#################################################### 43 44sub check_simple_packager_project 45{ 46 my ( $allvariables ) = @_; 47 48 if (( $installer::globals::packageformat eq "installed" ) || 49 ( $installer::globals::packageformat eq "archive" )) 50 { 51 $installer::globals::is_simple_packager_project = 1; 52 $installer::globals::patch_user_dir = 1; 53 } 54 elsif( $installer::globals::packageformat eq "dmg" ) 55 { 56 $installer::globals::is_simple_packager_project = 1; 57 } 58} 59 60#################################################### 61# Detecting the directory with extensions 62#################################################### 63 64sub get_extensions_dir 65{ 66 my ( $subfolderdir ) = @_; 67 68 my $extensiondir = $subfolderdir . $installer::globals::separator; 69 if ( $installer::globals::officedirhostname ne "" ) { $extensiondir = $extensiondir . $installer::globals::officedirhostname . $installer::globals::separator; } 70 my $extensionsdir = $extensiondir . "share" . $installer::globals::separator . "extensions"; 71 my $preregdir = $extensiondir . "share" . $installer::globals::separator . "prereg" . $installer::globals::separator . "bundled"; 72 73 return ( $extensionsdir, $preregdir ); 74} 75 76#################################################### 77# Registering extensions 78#################################################### 79 80sub register_extensions 81{ 82 my ($officedir, $languagestringref, $preregdir) = @_; 83 84 my $infoline = ""; 85 86 if ( $preregdir eq "" ) 87 { 88 $infoline = "ERROR: Failed to determine directory \"prereg\" for extension registration! Please check your installation set.\n"; 89 push( @installer::globals::logfileinfo, $infoline); 90 installer::exiter::exit_program($infoline, "register_extensions"); 91 } 92 93 my $programdir = $officedir . $installer::globals::separator; 94 if ( $installer::globals::officedirhostname ne "" ) { $programdir = $programdir . $installer::globals::officedirhostname . $installer::globals::separator; } 95 $programdir = $programdir . "program"; 96 97 my $from = cwd(); 98 chdir($programdir); 99 100 my $unopkgfile = $installer::globals::unopkgfile; 101 102 my $unopkgexists = 1; 103 if (( $installer::globals::languagepack ) && ( ! -f $unopkgfile )) 104 { 105 $unopkgexists = 0; 106 $infoline = "Language packs do not contain unopkg!\n"; 107 push( @installer::globals::logfileinfo, $infoline); 108 } 109 110 if ( ! -f $unopkgfile ) 111 { 112 $unopkgexists = 0; 113 $infoline = "Info: File $unopkgfile does not exist! Extensions cannot be registered.\n"; 114 push( @installer::globals::logfileinfo, $infoline); 115 } 116 117 if ( $unopkgexists ) 118 { 119 my $currentdir = cwd(); 120 print "... current dir: $currentdir ...\n"; 121 $infoline = "Current dir: $currentdir\n"; 122 push( @installer::globals::logfileinfo, $infoline); 123 124 if ( ! -f $unopkgfile ) { installer::exiter::exit_program("ERROR: $unopkgfile not found!", "register_extensions"); } 125 126 my $systemcall = $unopkgfile . " sync --verbose" . " -env:UNO_JAVA_JFW_ENV_JREHOME=true 2\>\&1 |"; 127 128 print "... $systemcall ...\n"; 129 130 $infoline = "Systemcall: $systemcall\n"; 131 push( @installer::globals::logfileinfo, $infoline); 132 133 my @unopkgoutput = (); 134 135 open (UNOPKG, $systemcall); 136 while (<UNOPKG>) 137 { 138 my $lastline = $_; 139 push(@unopkgoutput, $lastline); 140 } 141 close (UNOPKG); 142 143 my $returnvalue = $?; # $? contains the return value of the systemcall 144 145 if ($returnvalue) 146 { 147 # Writing content of @unopkgoutput only in the error case into the log file. Sometimes it 148 # contains strings like "Error" even in the case of success. This causes a packaging error 149 # when the log file is analyzed at the end, even if there is no real error. 150 for ( my $j = 0; $j <= $#unopkgoutput; $j++ ) { push( @installer::globals::logfileinfo, "$unopkgoutput[$j]"); } 151 152 $infoline = "ERROR: Could not execute \"$systemcall\"!\nExitcode: '$returnvalue'\n"; 153 push( @installer::globals::logfileinfo, $infoline); 154 installer::exiter::exit_program("ERROR: $systemcall failed!", "register_extensions"); 155 } 156 else 157 { 158 $infoline = "Success: Executed \"$systemcall\" successfully!\n"; 159 push( @installer::globals::logfileinfo, $infoline); 160 } 161 } 162 163 chdir($from); 164} 165 166######################################################################## 167# Getting the translation file for the Mac Language Pack installer 168######################################################################## 169 170sub get_mac_translation_file 171{ 172 my $translationfilename = $installer::globals::maclangpackfilename; 173 # my $translationfilename = $installer::globals::idtlanguagepath . $installer::globals::separator . $installer::globals::maclangpackfilename; 174 # if ( $installer::globals::unicodensis ) { $translationfilename = $translationfilename . ".uulf"; } 175 # else { $translationfilename = $translationfilename . ".mlf"; } 176 if ( ! -f $translationfilename ) { installer::exiter::exit_program("ERROR: Could not find language file $translationfilename!", "get_mac_translation_file"); } 177 my $translationfile = installer::files::read_file($translationfilename); 178 179 my $infoline = "Reading translation file: $translationfilename\n"; 180 push( @installer::globals::logfileinfo, $infoline); 181 182 return $translationfile; 183} 184 185################################################################## 186# Collecting all identifier from ulf file 187################################################################## 188 189sub get_identifier 190{ 191 my ( $translationfile ) = @_; 192 193 my @identifier = (); 194 195 for ( my $i = 0; $i <= $#{$translationfile}; $i++ ) 196 { 197 my $oneline = ${$translationfile}[$i]; 198 199 if ( $oneline =~ /^\s*\[(.+)\]\s*$/ ) 200 { 201 my $identifier = $1; 202 push(@identifier, $identifier); 203 } 204 } 205 206 return \@identifier; 207} 208 209############################################################## 210# Returning the complete block in all languages 211# for a specified string 212############################################################## 213 214sub get_language_block_from_language_file 215{ 216 my ($searchstring, $languagefile) = @_; 217 218 my @language_block = (); 219 220 for ( my $i = 0; $i <= $#{$languagefile}; $i++ ) 221 { 222 if ( ${$languagefile}[$i] =~ /^\s*\[\s*$searchstring\s*\]\s*$/ ) 223 { 224 my $counter = $i; 225 226 push(@language_block, ${$languagefile}[$counter]); 227 $counter++; 228 229 while (( $counter <= $#{$languagefile} ) && (!( ${$languagefile}[$counter] =~ /^\s*\[/ ))) 230 { 231 push(@language_block, ${$languagefile}[$counter]); 232 $counter++; 233 } 234 235 last; 236 } 237 } 238 239 return \@language_block; 240} 241 242############################################################## 243# Returning a specific language string from the block 244# of all translations 245############################################################## 246 247sub get_language_string_from_language_block 248{ 249 my ($language_block, $language) = @_; 250 251 my $newstring = ""; 252 253 for ( my $i = 0; $i <= $#{$language_block}; $i++ ) 254 { 255 if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ ) 256 { 257 $newstring = $1; 258 last; 259 } 260 } 261 262 if ( $newstring eq "" ) 263 { 264 $language = "en-US"; # defaulting to english 265 266 for ( my $i = 0; $i <= $#{$language_block}; $i++ ) 267 { 268 if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ ) 269 { 270 $newstring = $1; 271 last; 272 } 273 } 274 } 275 276 return $newstring; 277} 278 279######################################################################## 280# Localizing the script for the Mac Language Pack installer 281######################################################################## 282 283sub localize_scriptfile 284{ 285 my ($scriptfile, $translationfile, $languagestringref) = @_; 286 287 # my $translationfile = get_mac_translation_file(); 288 289 my $onelanguage = $$languagestringref; 290 if ( $onelanguage =~ /^\s*(.*?)_/ ) { $onelanguage = $1; } 291 292 # Analyzing the ulf file, collecting all Identifier 293 my $allidentifier = get_identifier($translationfile); 294 295 for ( my $i = 0; $i <= $#{$allidentifier}; $i++ ) 296 { 297 my $identifier = ${$allidentifier}[$i]; 298 my $language_block = get_language_block_from_language_file($identifier, $translationfile); 299 my $newstring = get_language_string_from_language_block($language_block, $onelanguage); 300 301 # removing mask 302 $newstring =~ s/\\\'/\'/g; 303 304 replace_one_variable_in_shellscript($scriptfile, $newstring, $identifier); 305 } 306} 307 308################################################################################# 309# Replacing one variable in Mac shell script 310################################################################################# 311 312sub replace_one_variable_in_shellscript 313{ 314 my ($scriptfile, $variable, $searchstring) = @_; 315 316 for ( my $i = 0; $i <= $#{$scriptfile}; $i++ ) 317 { 318 ${$scriptfile}[$i] =~ s/\[$searchstring\]/$variable/g; 319 } 320} 321 322############################################# 323# Replacing variables in Mac shell script 324############################################# 325 326sub replace_variables_in_scriptfile 327{ 328 my ($scriptfile, $volume_name, $volume_name_app, $allvariables) = @_; 329 330 replace_one_variable_in_shellscript($scriptfile, $volume_name, "FULLPRODUCTNAME" ); 331 replace_one_variable_in_shellscript($scriptfile, $volume_name_app, "FULLAPPPRODUCTNAME" ); 332 replace_one_variable_in_shellscript($scriptfile, $allvariables->{'PRODUCTNAME'}, "PRODUCTNAME" ); 333 replace_one_variable_in_shellscript($scriptfile, $allvariables->{'PRODUCTVERSION'}, "PRODUCTVERSION" ); 334 335 my $scriptname = lc($allvariables->{'PRODUCTNAME'}) . "\.script"; 336 if ( $allvariables->{'PRODUCTNAME'} eq "OpenOffice.org" ) { $scriptname = "org.openoffice.script"; } 337 338 replace_one_variable_in_shellscript($scriptfile, $scriptname, "SEARCHSCRIPTNAME" ); 339} 340 341############################################# 342# Creating the "simple" package. 343# "zip" for Windows 344# "tar.gz" for all other platforms 345# additionally "dmg" on Mac OS X 346############################################# 347 348sub create_package 349{ 350 my ( $installdir, $archivedir, $packagename, $allvariables, $includepatharrayref, $languagestringref, $format ) = @_; 351 352 installer::logger::print_message( "... creating $installer::globals::packageformat file ...\n" ); 353 installer::logger::include_header_into_logfile("Creating $installer::globals::packageformat file:"); 354 355 # moving dir into temporary directory 356 my $pid = $$; # process id 357 my $tempdir = $installdir . "_temp" . "." . $pid; 358 my $systemcall = ""; 359 my $from = ""; 360 my $makesystemcall = 1; 361 my $return_to_start = 0; 362 installer::systemactions::rename_directory($installdir, $tempdir); 363 364 # creating new directory with original name 365 installer::systemactions::create_directory($archivedir); 366 367 my $archive = $archivedir . $installer::globals::separator . $packagename . $format; 368 369 if ( $archive =~ /zip$/ ) 370 { 371 $from = cwd(); 372 $return_to_start = 1; 373 chdir($tempdir); 374 $systemcall = "$installer::globals::zippath -qr $archive ."; 375 376 # Using Archive::Zip fails because of very long path names below "share/uno_packages/cache" 377 # my $packzip = Archive::Zip->new(); 378 # $packzip->addTree("."); # after changing into $tempdir 379 # $packzip->writeToFileNamed($archive); 380 # $makesystemcall = 0; 381 } 382 elsif ( $archive =~ /dmg$/ ) 383 { 384 my $folder = (( -l "$tempdir/$packagename/Applications" ) or ( -l "$tempdir/$packagename/opt" )) ? $packagename : "\."; 385 386 if ( $allvariables->{'PACK_INSTALLED'} ) { 387 $folder = $packagename; 388 } 389 390 # my $volume_name = $allvariables->{'PRODUCTNAME'} . ' ' . $allvariables->{'PRODUCTVERSION'}; # Adding PRODUCTVERSION makes this difficult to maintain! 391 my $volume_name = $allvariables->{'PRODUCTNAME'}; 392 my $volume_name_classic = $allvariables->{'PRODUCTNAME'} . ' ' . $allvariables->{'PRODUCTVERSION'}; 393 my $volume_name_classic_app = $volume_name; # "app" should not contain version number 394 # $volume_name = $volume_name . ' ' . $allvariables->{'PRODUCTEXTENSION'} if $allvariables->{'PRODUCTEXTENSION'}; # Adding PRODUCTEXTENSION makes this difficult to maintain! 395 $volume_name_classic = $volume_name_classic . ' ' . $allvariables->{'PRODUCTEXTENSION'} if $allvariables->{'PRODUCTEXTENSION'}; 396 $volume_name_classic_app = $volume_name_classic_app . ' ' . $allvariables->{'PRODUCTEXTENSION'} if $allvariables->{'PRODUCTEXTENSION'}; 397 if ( $allvariables->{'DMG_VOLUMEEXTENSION'} ) { 398 $volume_name = $volume_name . ' ' . $allvariables->{'DMG_VOLUMEEXTENSION'}; 399 $volume_name_classic = $volume_name_classic . ' ' . $allvariables->{'DMG_VOLUMEEXTENSION'}; 400 $volume_name_classic_app = $volume_name_classic_app . ' ' . $allvariables->{'DMG_VOLUMEEXTENSION'}; 401 } 402 403 my $sla = 'sla.r'; 404 my $ref = ""; 405 406 if ( ! $allvariables->{'HIDELICENSEDIALOG'} ) 407 { 408 installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$sla, $includepatharrayref, 0); 409 } 410 411 my $localtempdir = $tempdir; 412 413 if (( $installer::globals::languagepack ) || ( $installer::globals::patch )) 414 { 415 $localtempdir = "$tempdir/$packagename"; 416 if ( $installer::globals::languagepack ) 417 { 418 $volume_name = "$volume_name Language Pack"; 419 $volume_name_classic = "$volume_name_classic Language Pack"; 420 $volume_name_classic_app = "$volume_name_classic_app Language Pack"; 421 } 422 if ( $installer::globals::patch ) 423 { 424 $volume_name = "$volume_name Patch"; 425 $volume_name_classic = "$volume_name_classic Patch"; 426 $volume_name_classic_app = "$volume_name_classic_app Patch"; 427 } 428 429 # Create tar ball named tarball.tar.bz2 430 # my $appfolder = $localtempdir . "/" . $volume_name . "\.app"; 431 my $appfolder = $localtempdir . "/" . $volume_name_classic_app . "\.app"; 432 my $contentsfolder = $appfolder . "/Contents"; 433 my $tarballname = "tarball.tar.bz2"; 434 435 my $localfrom = cwd(); 436 chdir $appfolder; 437 438 $systemcall = "tar -cjf $tarballname Contents/"; 439 440 print "... $systemcall ...\n"; 441 my $localreturnvalue = system($systemcall); 442 $infoline = "Systemcall: $systemcall\n"; 443 push( @installer::globals::logfileinfo, $infoline); 444 445 if ($localreturnvalue) 446 { 447 $infoline = "ERROR: Could not execute \"$systemcall\"!\n"; 448 push( @installer::globals::logfileinfo, $infoline); 449 } 450 else 451 { 452 $infoline = "Success: Executed \"$systemcall\" successfully!\n"; 453 push( @installer::globals::logfileinfo, $infoline); 454 } 455 456 my $sourcefile = $appfolder . "/" . $tarballname; 457 my $destfile = $contentsfolder . "/" . $tarballname; 458 459 installer::systemactions::remove_complete_directory($contentsfolder); 460 installer::systemactions::create_directory($contentsfolder); 461 462 installer::systemactions::copy_one_file($sourcefile, $destfile); 463 unlink($sourcefile); 464 465 # Copy two files into installation set next to the tar ball 466 # 1. "osx_install.applescript" 467 # 2 "OpenOffice.org Languagepack" 468 469 my $scriptrealfilename = "osx_install.applescript"; 470 my $scriptfilename = ""; 471 if ( $installer::globals::languagepack ) { $scriptfilename = "osx_install_languagepack.applescript"; } 472 if ( $installer::globals::patch ) { $scriptfilename = "osx_install_patch.applescript"; } 473 my $scripthelpersolverfilename = "mac_install.script"; 474 # my $scripthelperrealfilename = $volume_name; 475 my $scripthelperrealfilename = $volume_name_classic_app; 476 my $translationfilename = $installer::globals::macinstallfilename; 477 478 # Finding both files in solver 479 480 my $scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$scriptfilename, $includepatharrayref, 0); 481 if ($$scriptref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script $scriptfilename!", "create_package"); } 482 my $scripthelperref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$scripthelpersolverfilename, $includepatharrayref, 0); 483 if ($$scripthelperref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script $scripthelpersolverfilename!", "create_package"); } 484 my $translationfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$translationfilename, $includepatharrayref, 0); 485 if ($$translationfileref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script translation file $translationfilename!", "create_package"); } 486 487 $scriptfilename = $contentsfolder . "/" . $scriptrealfilename; 488 $scripthelperrealfilename = $contentsfolder . "/" . $scripthelperrealfilename; 489 490 installer::systemactions::copy_one_file($$scriptref, $scriptfilename); 491 installer::systemactions::copy_one_file($$scripthelperref, $scripthelperrealfilename); 492 493 # Replacing variables in script $scriptfilename 494 # Localizing script $scriptfilename 495 my $scriptfilecontent = installer::files::read_file($scriptfilename); 496 my $translationfilecontent = installer::files::read_file($$translationfileref); 497 localize_scriptfile($scriptfilecontent, $translationfilecontent, $languagestringref); 498 # replace_variables_in_scriptfile($scriptfilecontent, $volume_name, $allvariables); 499 replace_variables_in_scriptfile($scriptfilecontent, $volume_name_classic, $volume_name_classic_app, $allvariables); 500 installer::files::save_file($scriptfilename, $scriptfilecontent); 501 502 $systemcall = "chmod 775 " . "\"" . $scriptfilename . "\""; 503 system($systemcall); 504 $systemcall = "chmod 775 " . "\"" . $scripthelperrealfilename . "\""; 505 system($systemcall); 506 507 # Copy also Info.plist and icon file 508 # Finding both files in solver 509 my $iconfile = "ooo3_installer.icns"; 510 my $iconfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$iconfile, $includepatharrayref, 0); 511 if ($$iconfileref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script icon file $iconfile!", "create_package"); } 512 my $subdir = $contentsfolder . "/" . "Resources"; 513 if ( ! -d $subdir ) { installer::systemactions::create_directory($subdir); } 514 $destfile = $subdir . "/" . $iconfile; 515 installer::systemactions::copy_one_file($$iconfileref, $destfile); 516 517 my $infoplistfile = "Info.plist.langpack"; 518 my $installname = "Info.plist"; 519 my $infoplistfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$infoplistfile, $includepatharrayref, 0); 520 if ($$infoplistfileref eq "") { installer::exiter::exit_program("ERROR: Could not find Apple script Info.plist: $infoplistfile!", "create_package"); } 521 $destfile = $contentsfolder . "/" . $installname; 522 installer::systemactions::copy_one_file($$infoplistfileref, $destfile); 523 524 # Replacing variables in Info.plist 525 $scriptfilecontent = installer::files::read_file($destfile); 526 # replace_one_variable_in_shellscript($scriptfilecontent, $volume_name, "FULLPRODUCTNAME" ); 527 replace_one_variable_in_shellscript($scriptfilecontent, $volume_name_classic_app, "FULLAPPPRODUCTNAME" ); # OpenOffice.org Language Pack 528 installer::files::save_file($destfile, $scriptfilecontent); 529 530 chdir $localfrom; 531 } 532 533 $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 && "; 534 if (( $ref ne "" ) && ( $$ref ne "" )) { 535 $systemcall .= "hdiutil unflatten $archive && Rez -a $$ref -o $archive && hdiutil flatten $archive &&"; 536 } 537 $systemcall .= "rm -f $installdir/tmp.dmg"; 538 } 539 else 540 { 541 # getting the path of the getuid.so (only required for Solaris and Linux) 542 my $getuidlibrary = ""; 543 my $ldpreloadstring = ""; 544 if (( $installer::globals::issolarisbuild ) || ( $installer::globals::islinuxbuild )) 545 { 546 $getuidlibrary = installer::download::get_path_for_library($includepatharrayref); 547 if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; } 548 } 549 550 $systemcall = "cd $tempdir; $ldpreloadstring tar -cf - . | gzip > $archive"; 551 } 552 553 if ( $makesystemcall ) 554 { 555 print "... $systemcall ...\n"; 556 my $returnvalue = system($systemcall); 557 my $infoline = "Systemcall: $systemcall\n"; 558 push( @installer::globals::logfileinfo, $infoline); 559 560 if ($returnvalue) 561 { 562 $infoline = "ERROR: Could not execute \"$systemcall\"!\n"; 563 push( @installer::globals::logfileinfo, $infoline); 564 } 565 else 566 { 567 $infoline = "Success: Executed \"$systemcall\" successfully!\n"; 568 push( @installer::globals::logfileinfo, $infoline); 569 } 570 } 571 572 if ( $return_to_start ) { chdir($from); } 573 574 print "... removing $tempdir ...\n"; 575 installer::systemactions::remove_complete_directory($tempdir); 576} 577 578#################################################### 579# Main method for creating the simple package 580# installation sets 581#################################################### 582 583sub create_simple_package 584{ 585 my ( $filesref, $dirsref, $scpactionsref, $linksref, $unixlinksref, $loggingdir, $languagestringref, $shipinstalldir, $allsettingsarrayref, $allvariables, $includepatharrayref ) = @_; 586 587 # Creating directories 588 589 my $current_install_number = ""; 590 my $infoline = ""; 591 592 installer::logger::print_message( "... creating installation directory ...\n" ); 593 installer::logger::include_header_into_logfile("Creating installation directory"); 594 595 $installer::globals::csp_installdir = installer::worker::create_installation_directory($shipinstalldir, $languagestringref, \$current_install_number); 596 $installer::globals::csp_installlogdir = installer::systemactions::create_directory_next_to_directory($installer::globals::csp_installdir, "log"); 597 598 my $installdir = $installer::globals::csp_installdir; 599 my $installlogdir = $installer::globals::csp_installlogdir; 600 601 # Setting package name (similar to the download name) 602 my $packagename = ""; 603 604 if ( $installer::globals::packageformat eq "archive" || 605 $installer::globals::packageformat eq "dmg" ) 606 { 607 $installer::globals::csp_languagestring = $$languagestringref; 608 609 my $locallanguage = $installer::globals::csp_languagestring; 610 611 if ( $allvariables->{'OOODOWNLOADNAME'} ) 612 { 613 $packagename = installer::download::set_download_filename(\$locallanguage, $allvariables); 614 } 615 else 616 { 617 $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "downloadname"); 618 if ( $installer::globals::languagepack ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "langpackdownloadname"); } 619 if ( $installer::globals::patch ) { $downloadname = installer::ziplist::getinfofromziplist($allsettingsarrayref, "patchdownloadname"); } 620 $packagename = installer::download::resolve_variables_in_downloadname($allvariables, $$downloadname, \$locallanguage); 621 } 622 } 623 624 # Work around Windows problems with long pathnames (see issue 50885) by 625 # putting the to-be-archived installation tree into the temp directory 626 # instead of the module output tree (unless LOCALINSTALLDIR dictates 627 # otherwise, anyway); can be removed once issue 50885 is fixed: 628 my $tempinstalldir = $installdir; 629 if ( $installer::globals::iswindowsbuild && 630 $installer::globals::packageformat eq "archive" && 631 !$installer::globals::localinstalldirset ) 632 { 633 $tempinstalldir = File::Temp::tempdir; 634 } 635 636 # Creating subfolder in installdir, which shall become the root of package or zip file 637 my $subfolderdir = ""; 638 if ( $packagename ne "" ) { $subfolderdir = $tempinstalldir . $installer::globals::separator . $packagename; } 639 else { $subfolderdir = $tempinstalldir; } 640 641 if ( ! -d $subfolderdir ) { installer::systemactions::create_directory($subfolderdir); } 642 643 # Create directories, copy files and ScpActions 644 645 installer::logger::print_message( "... creating directories ...\n" ); 646 installer::logger::include_header_into_logfile("Creating directories:"); 647 648 for ( my $i = 0; $i <= $#{$dirsref}; $i++ ) 649 { 650 my $onedir = ${$dirsref}[$i]; 651 652 if ( $onedir->{'HostName'} ) 653 { 654 my $destdir = $subfolderdir . $installer::globals::separator . $onedir->{'HostName'}; 655 656 if ( ! -d $destdir ) 657 { 658 if ( $^O =~ /cygwin/i ) # Cygwin performance check 659 { 660 $infoline = "Try to create directory $destdir\n"; 661 push(@installer::globals::logfileinfo, $infoline); 662 # Directories in $dirsref are sorted and all parents were added -> "mkdir" works without parent creation! 663 if ( ! ( -d $destdir )) { mkdir($destdir, 0775); } 664 } 665 else 666 { 667 installer::systemactions::create_directory_structure($destdir); 668 } 669 } 670 } 671 } 672 673 # stripping files ?! 674 if (( $installer::globals::strip ) && ( ! $installer::globals::iswindowsbuild )) { installer::strip::strip_libraries($filesref, $languagestringref); } 675 676 # copy Files 677 installer::logger::print_message( "... copying files ...\n" ); 678 installer::logger::include_header_into_logfile("Copying files:"); 679 680 for ( my $i = 0; $i <= $#{$filesref}; $i++ ) 681 { 682 my $onefile = ${$filesref}[$i]; 683 684 if (( $onefile->{'Styles'} ) && ( $onefile->{'Styles'} =~ /\bBINARYTABLE_ONLY\b/ )) { next; } 685 if (( $installer::globals::patch ) && ( $onefile->{'Styles'} ) && ( ! ( $onefile->{'Styles'} =~ /\bPATCH\b/ ))) { next; } 686 if (( $installer::globals::patch ) && ( $installer::globals::packageformat eq "dmg" )) { push(@installer::globals::patchfilecollector, "$onefile->{'destination'}\n"); } 687 688 my $source = $onefile->{'sourcepath'}; 689 my $destination = $onefile->{'destination'}; 690 $destination = $subfolderdir . $installer::globals::separator . $destination; 691 692 # Replacing $$ by $ is necessary to install files with $ in its name (back-masquerading) 693 # Otherwise, the following shell command does not work and the file list is not correct 694 $source =~ s/\$\$/\$/; 695 $destination =~ s/\$\$/\$/; 696 697 if ( $^O =~ /cygwin/i ) # Cygwin performance, do not use copy_one_file. "chmod -R" at the end 698 { 699 my $copyreturn = copy($source, $destination); 700 701 if ($copyreturn) 702 { 703 $infoline = "Copy: $source to $destination\n"; 704 $returnvalue = 1; 705 } 706 else 707 { 708 $infoline = "ERROR: Could not copy $source to $destination\n"; 709 $returnvalue = 0; 710 } 711 712 push(@installer::globals::logfileinfo, $infoline); 713 } 714 else 715 { 716 installer::systemactions::copy_one_file($source, $destination); 717 718 if ( ! $installer::globals::iswindowsbuild ) 719 { 720 # see issue 102274 721 my $unixrights = ""; 722 if ( $onefile->{'UnixRights'} ) 723 { 724 $unixrights = $onefile->{'UnixRights'}; 725 726 my $localcall = "$installer::globals::wrapcmd chmod $unixrights \'$destination\' \>\/dev\/null 2\>\&1"; 727 system($localcall); 728 } 729 } 730 } 731 } 732 733 # creating Links 734 735 installer::logger::print_message( "... creating links ...\n" ); 736 installer::logger::include_header_into_logfile("Creating links:"); 737 738 for ( my $i = 0; $i <= $#{$linksref}; $i++ ) 739 { 740 my $onelink = ${$linksref}[$i]; 741 742 if (( $installer::globals::patch ) && ( $onelink->{'Styles'} ) && ( ! ( $onelink->{'Styles'} =~ /\bPATCH\b/ ))) { next; } 743 744 my $destination = $onelink->{'destination'}; 745 $destination = $subfolderdir . $installer::globals::separator . $destination; 746 my $destinationfile = $onelink->{'destinationfile'}; 747 748 my $localcall = "ln -sf \'$destinationfile\' \'$destination\' \>\/dev\/null 2\>\&1"; 749 system($localcall); 750 751 $infoline = "Creating link: \"ln -sf $destinationfile $destination\"\n"; 752 push(@installer::globals::logfileinfo, $infoline); 753 } 754 755 for ( my $i = 0; $i <= $#{$unixlinksref}; $i++ ) 756 { 757 my $onelink = ${$unixlinksref}[$i]; 758 759 if (( $installer::globals::patch ) && ( $onelink->{'Styles'} ) && ( ! ( $onelink->{'Styles'} =~ /\bPATCH\b/ ))) { next; } 760 761 my $target = $onelink->{'Target'}; 762 my $destination = $subfolderdir . $installer::globals::separator . $onelink->{'destination'}; 763 764 my $localcall = "ln -sf \'$target\' \'$destination\' \>\/dev\/null 2\>\&1"; 765 system($localcall); 766 767 $infoline = "Creating Unix link: \"ln -sf $target $destination\"\n"; 768 push(@installer::globals::logfileinfo, $infoline); 769 } 770 771 # Setting privileges for cygwin globally 772 773 if ( $^O =~ /cygwin/i ) 774 { 775 installer::logger::print_message( "... changing privileges in $subfolderdir ...\n" ); 776 installer::logger::include_header_into_logfile("Changing privileges in $subfolderdir:"); 777 778 my $localcall = "chmod -R 755 " . "\"" . $subfolderdir . "\""; 779 system($localcall); 780 } 781 782 installer::logger::print_message( "... removing superfluous directories ...\n" ); 783 installer::logger::include_header_into_logfile("Removing superfluous directories:"); 784 785 my ( $extensionfolder, $preregdir ) = get_extensions_dir($subfolderdir); 786 installer::systemactions::remove_empty_dirs_in_folder($extensionfolder); 787 788 # Registering the extensions 789 790 installer::logger::print_message( "... registering extensions ...\n" ); 791 installer::logger::include_header_into_logfile("Registering extensions:"); 792 register_extensions($subfolderdir, $languagestringref, $preregdir); 793 794 if ( $installer::globals::compiler =~ /^unxmacx/ ) 795 { 796 installer::worker::put_scpactions_into_installset("$installdir/$packagename"); 797 } 798 799 # Creating archive file 800 if ( $installer::globals::packageformat eq "archive" ) 801 { 802 create_package($tempinstalldir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, $installer::globals::archiveformat); 803 } 804 elsif ( $installer::globals::packageformat eq "dmg" ) 805 { 806 create_package($installdir, $installdir, $packagename, $allvariables, $includepatharrayref, $languagestringref, ".dmg"); 807 } 808 809 # Analyzing the log file 810 811 installer::worker::clean_output_tree(); # removing directories created in the output tree 812 installer::worker::analyze_and_save_logfile($loggingdir, $installdir, $installlogdir, $allsettingsarrayref, $languagestringref, $current_install_number); 813} 814 8151; 816